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
