Esse script tem o objetivo de alterar a senha de administrador local via GPO no Dominio Windows 2003 que não te a opção que esta disponivel hoje no Winows 2008.
Com isso ele possibilita criar a GPO e no Startup e Shutdown colocar o script para alterar a senha, caso haja na organização aqueles que gostam de quebrar a senha do administrador local, ficara com ela até reinicar a maquina.
On Error Resume Next
Set objNetwork = CreateObject(“Wscript.Network”)
strComputer = objNetwork.ComputerName
Set objWMIService = GetObject(“winmgmts:\\” & strComputer & “\root\cimv2”)
Set colAccounts = objWMIService.ExecQuery _
(“Select * From Win32_UserAccount Where Domain = ‘” & strComputer & “‘”)
For Each objAccount In colAccounts
If Left(objAccount.SID, 6) = “S-1-5-” And Right(objAccount.SID, 4) = “-500” Then
‘Wscript.echo objAccount.Name
Set objUser = GetObject(“WinNT://” & strComputer & “/” & objAccount.Name & “”)
objUser.SetPassword “senha ” ‘Wscript.Arguments(0)
objUser.SetInfo
End If
Next