none
Alterar senha adm local com qualquer nome RRS feed

  • Pergunta

  • Salve Galera!

    Preciso de um script que rode na inicialização dos servidores via gpo que altere a senha do administrador local, independente do nome, ex.. administrador, administrator, admin...

    Tenho este script abaixo, se eu rodar ele direto, não vai.... funciona somente se executar no prompt como administrador e funciona certinho...

    Coloquei ele na gpo, ela aplica certinho, confirmado no rsop, mas o script não rola.... não sei tem alguma limitação para este tipo de função que ele faz... alguém tem alguma ideia para ajudar?

    '***************************************************************************************************
    'Função: Altera a Senha do Administrador local
    '***************************************************************************************************
    sNewPassword = "senha"

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

        On Error Resume Next
        Set oUser = GetObject("WinNT://" & sComputer & "/Administrador, user")
        oUser.SetPassword sNewPassword
        oUser.SetInfo
        'wscript.echo "setado: " & sNewPassword
        On Error Goto 0
        
    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


    by Dimiro MCP | MCDST | ITILF Foi útil? Classifique! Se resolveu, avalie! ;) °dimiro.com | ºtwitter.com/bydimiro

    sexta-feira, 26 de julho de 2019 11:27

Todas as Respostas