Cambio de pass a estaciones de trabajo

31/05/2005 - 01:49 por Damian Vasquez Ramiro | Informe spam
Hola Foro.

Quisiera me ayudaran en esto.
Quiero cambiar el password local de administrador en mis estaciones de
trabajo estoy en una red con win2003(AD) y clientes 2000 y XP, son
bastantes, que me pueden sugerir para esta tarea.
Eh revisado los post y mencionan un scrip pero no lo encuentro.

gracias por su respuesta

Saludos
Damian
 

Leer las respuestas

#1 Fernando Reyes [MS MVP]
31/05/2005 - 17:41 | Informe spam
Cortesía de Rodolfo Parrado Gutiérrez [MS MVP]:

<pego>
sNewPassword = "testpassword"
Set oWshNet = CreateObject("WScript.Network")
sComputer = oWshNet.ComputerName
sAdminName = GetAdministratorName
On Error Resume Next
Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName & ",user")
oUser.SetPassword sNewPassword
oUser.SetInfo
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
Exit For
End if
Next
End Function
</pego>

Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Cómete al correcaminos para escribirme)


Fue Damian Vasquez Ramiro () el que, con sus
deditos, escribió:

Hola Foro.

Quisiera me ayudaran en esto.
Quiero cambiar el password local de administrador en mis estaciones de
trabajo estoy en una red con win2003(AD) y clientes 2000 y XP, son
bastantes, que me pueden sugerir para esta tarea.
Eh revisado los post y mencionan un scrip pero no lo encuentro.

gracias por su respuesta

Saludos
Damian

Preguntas similares