none
Script para mudar senha de Administrador Local RRS feed

  • Pergunta

  • Oh um camarada me deu essa .bat

     

    o script ficou assim

     

    echo off
    cmd /c net user administrador ( "aki vc poe a senha")

    exit

    no meu caso eu salvei em .bat

    sexta-feira, 2 de março de 2007 12:55

Respostas

  • Bom dia Marco

    Use assim

    Set objUser = GetObject _
        ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")

    objUser.ChangePassword "i5A2sj*!", "jl3R86df"

    http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

    sexta-feira, 2 de março de 2007 14:26
  •  

    Com esse abaixo, ele altera a senha do adm local até mesmo se o nome desse usuario estiver alterado..:

     

    sNewPassword = "SENHANOVA"

    Set oWshNet = CreateObject("WScript.Network")
    sComputer = "."
    sAdminName = GetAdministratorName

    On Error Resume Next
    Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName & ",user")
    oUser.SetPassword sNewPassword
    oUser.SetInfo
    'wscript.echo "setado: " & sNewPassword
    On Error Goto 0

    'powered by edutrom

    Function GetAdministratorName()
        Dim sUserSID, oWshNetwork, oUserAccount

        Set oWshNetwork = CreateObject("WScript.Network")
        Set oUserAccounts = GetObject( _
             "winmgmts://" & oWshNetwork.ComputerName & "/root/cimv2") _
             .ExecQuery("Select Name, SID from Win32_UserAccount" _
           & " WHERE Domain = '" & oWshNetwork.ComputerName & "'")

        On Error Resume Next
        For Each oUserAccount In oUserAccounts
          If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _
             Right(oUserAccount.SID, 4) = "-500" Then
            GetAdministratorName = oUserAccount.Name

     'wscript.echo oUserAccount.Name & ": " & oUserAccount.SID

            Exit For
          End if
        Next
    End Function

    segunda-feira, 12 de março de 2007 18:08
  • Olá,

    primeiramente, sugiro que leia algum artigo relacionado à criação de scripts... alguma introdução, só pra ter uma idéia de como funciona.

    No segundo exemplo, a senha está logo na primeira linha.

    Além disso, sempre que tiver alguma dúvida, poste como uma nova thread no forum. Não continue uma thread que já tenha sido respondida, ainda que seja sobre um assunto relacionado. Isso melhora o sistema de busca.

    []s,

    Vinicius Canto
    terça-feira, 27 de março de 2007 20:11
    Moderador

Todas as Respostas

  • Bom dia Marco

    Use assim

    Set objUser = GetObject _
        ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")

    objUser.ChangePassword "i5A2sj*!", "jl3R86df"

    http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

    sexta-feira, 2 de março de 2007 14:26
  •  

    Com esse abaixo, ele altera a senha do adm local até mesmo se o nome desse usuario estiver alterado..:

     

    sNewPassword = "SENHANOVA"

    Set oWshNet = CreateObject("WScript.Network")
    sComputer = "."
    sAdminName = GetAdministratorName

    On Error Resume Next
    Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName & ",user")
    oUser.SetPassword sNewPassword
    oUser.SetInfo
    'wscript.echo "setado: " & sNewPassword
    On Error Goto 0

    'powered by edutrom

    Function GetAdministratorName()
        Dim sUserSID, oWshNetwork, oUserAccount

        Set oWshNetwork = CreateObject("WScript.Network")
        Set oUserAccounts = GetObject( _
             "winmgmts://" & oWshNetwork.ComputerName & "/root/cimv2") _
             .ExecQuery("Select Name, SID from Win32_UserAccount" _
           & " WHERE Domain = '" & oWshNetwork.ComputerName & "'")

        On Error Resume Next
        For Each oUserAccount In oUserAccounts
          If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _
             Right(oUserAccount.SID, 4) = "-500" Then
            GetAdministratorName = oUserAccount.Name

     'wscript.echo oUserAccount.Name & ": " & oUserAccount.SID

            Exit For
          End if
        Next
    End Function

    segunda-feira, 12 de março de 2007 18:08
  • Senhores,

    Preciso de um Script para mudar senha de Administrador Local....   Esse que está no fórum funciona ? Onde coloco a senha nova ??

    Obrigado,

    Gobira

    agobira@hotmail.com

     

    segunda-feira, 26 de março de 2007 20:11
  • Olá,

    primeiramente, sugiro que leia algum artigo relacionado à criação de scripts... alguma introdução, só pra ter uma idéia de como funciona.

    No segundo exemplo, a senha está logo na primeira linha.

    Além disso, sempre que tiver alguma dúvida, poste como uma nova thread no forum. Não continue uma thread que já tenha sido respondida, ainda que seja sobre um assunto relacionado. Isso melhora o sistema de busca.

    []s,

    Vinicius Canto
    terça-feira, 27 de março de 2007 20:11
    Moderador
  •  

    Este Script funciona para a conta " Administrador " ou " Admin " ?

    Outra coisa, alguém pode postar o Script da maneira que ele tem que sem, pois não tenho muita experiência com Script.

     

    Obrigado.

    segunda-feira, 7 de abril de 2008 15:27
  • Boa tarde Dmestre,

     

    Segue script, basta copiar e deixar como nome.vbs e rodar!!!

     

    strComputer = "."
    Set objUser = GetObject("WinNT://" & strComputer & "/administrador, user")

    objUser.SetPassword "ab-12345"
    objUser.SetInfo

     

    OBS: Lembrando que é administrador caso S.O esteja Português.

     

    Abraços

    terça-feira, 8 de abril de 2008 17:09