Script – Troca senha administrador local

‘ Script – Troca senha administrador local
sNewPassword = "cc@sh@suporte"
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 

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s