Cambio de Password al Administrador del equipoT

Puede servirte esto?

Cambiar password de administrador local estaciones script de inicio de
maquinas..


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


By Rodolfo Parrado

Espero serte de ayuda.
Salu2!

Juansa
MS MVP Windows Server Networking

"La vida es fascinante: sólo hay que mirarla a través de las gafas
correctas".
Alejandro Dumas (1803-1870); escritor francés
"Aprender sin pensar es inútil. Pensar sin aprender, peligroso".
Confucio (551-479 a. C.); filósofo chino.
"Un error no se convierte en verdad por el hecho de que todo el mundo
crea en él".
Mahatma Gandhi (1869-1948); político y pensador indio.

"Freddy Vargas" wrote in message
news:

Tengo lo siguiente
Un ambiente de Dominio
Los usuarios se logean al dominio y a la vez pertencen al grupo de usuario
avanzado..
dentro del grupo administradores estan los DOMAIN ADMINS.. y el
adminsitrador del equipo ademas otro grupo de administracion que cree
Quiero hacer lo siguiente

Un metodo..no se cual para cambiar el password del usuario ADMINISTRADOR

DEL

EQUIPO automaticamente.. como se podra hacer?


saludos