Hola amigos,
Un cliente nos pidio cambiar la contraseña de admistrador local de los equipos.
Se puede hacer por ejemplo montando una GPO tal que asi :
Lanzaremos un script en .VBS de inicio de sesion por equipo, el cual tiene que ser miembro de un grupo, como se ve en el filtrado anterior.
El codigo es :
El usuario es itadmin y el pass es Prueba205
Set objlocal = GetObject("WinNT://.")
objlocal.Filter = Array("user")
strComputer = "."
For Each User In objlocal
If lcase(User.Name) = lcase("itadmin") Then
Set objUser = GetObject("WinNT://" & strComputer & "/" & User.Name & ", user")
objUser.SetPassword "Prueba205"
objUser.SetInfo
'msgbox User.Name & " already exists." & vbCrLf & "The password was re-set."
'WScript.Quit
End If
Next
En caso de disponer de mas de un adm local, el script se puede modificar por ejemplo :
Set objlocal = GetObject("WinNT://.")
objlocal.Filter = Array("user")
strComputer = "."
For Each User In objlocal
If lcase(User.Name) = lcase("itadmin") or lcase(User.Name) = lcase("itadmin2") Then
Set objUser = GetObject("WinNT://" & strComputer & "/" & User.Name & ", user")
objUser.SetPassword "Prueba205"
objUser.SetInfo
'msgbox User.Name & " already exists." & vbCrLf & "The password was re-set."
'WScript.Quit
End If
Next
