Cambio de pass a estaciones de trabajo

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

Muchas Gracias Fernando

Un saludo Damian!!!

Hola,

Tambien puedes usar Cusmgr.exe que viene con el Windows 2000 Server Resource
Kit tool

Saludos

angelluis

"Damian Vasquez Ramiro" escribió en el
mensaje news:

Muchas Gracias Fernando

Un saludo Damian!!!

No, gracias Rodolfo -(|:o))

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

(Corta las dos orejas y el rabo si quieres escribirme)


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

Muchas Gracias Fernando

Un saludo Damian!!!