Cambio contraseña Administrador por politicas

defina una politica de inicio de sistema (no de usuario) y que tengan permisos de lectura los domain comouters y no los domain users y pone en la primera linea el password que quiere...
cada vez que la maquina prenda cambiara el password de administrador local (adicionalmnete restrinja grupos y renombre la cuenta de administrador para estandarizar a todo el mundo con la misma)

note que el scrip cambia el password sin importar como se llame la cuenta de adminisrador local...

Cambiar password de administrador local estaciones scrip 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






-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Esther" escribió en el mensaje news:

Hola a todos,
alguien sabe si es posible cambiar el password de Administrador local de x
maquinas mediante politicas (adm)??

Muchas gracias

NOtas adicionales copie despues de -- a un archivo vbs y lo pone en la carpeta de inicio que defina en la politica y cambie los permisos de seguridad como le dije anteriormente

-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Rodolfo Parrado Gutiérrez [MVP Windows]" escribió en el mensaje news:
defina una politica de inicio de sistema (no de usuario) y que tengan permisos de lectura los domain comouters y no los domain users y pone en la primera linea el password que quiere...
cada vez que la maquina prenda cambiara el password de administrador local (adicionalmnete restrinja grupos y renombre la cuenta de administrador para estandarizar a todo el mundo con la misma)

note que el scrip cambia el password sin importar como se llame la cuenta de adminisrador local...

Cambiar password de administrador local estaciones scrip 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






-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Esther" escribió en el mensaje news:

Hola a todos,
alguien sabe si es posible cambiar el password de Administrador local de x
maquinas mediante politicas (adm)??

Muchas gracias

otra nota... esto solo cambia el password de administrador local a estaciones 2000 y XP y a servidores 2000 y 2003... ojo no la cambia sobre controladores de dominio...

-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Rodolfo Parrado Gutiérrez [MVP Windows]" escribió en el mensaje news:
defina una politica de inicio de sistema (no de usuario) y que tengan permisos de lectura los domain comouters y no los domain users y pone en la primera linea el password que quiere...
cada vez que la maquina prenda cambiara el password de administrador local (adicionalmnete restrinja grupos y renombre la cuenta de administrador para estandarizar a todo el mundo con la misma)

note que el scrip cambia el password sin importar como se llame la cuenta de adminisrador local...

Cambiar password de administrador local estaciones scrip 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






-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Esther" escribió en el mensaje news:

Hola a todos,
alguien sabe si es posible cambiar el password de Administrador local de x
maquinas mediante politicas (adm)??

Muchas gracias

En este link hay una forma más fácil de hacerlo si Rodolfo me permite.

http://support.microsoft.com/defaul...272530#kb1

;)

Un saludo.
"Rodolfo Parrado Gutiérrez [MVP Windows]"
escribió en el mensaje news:%23OpHt$
otra nota... esto solo cambia el password de administrador local a
estaciones 2000 y XP y a servidores 2000 y 2003... ojo no la cambia sobre
controladores de dominio...

-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y
no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que
muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Rodolfo Parrado Gutiérrez [MVP Windows]"
escribió en el mensaje news:
defina una politica de inicio de sistema (no de usuario) y que tengan
permisos de lectura los domain comouters y no los domain users y pone en la
primera linea el password que quiere...
cada vez que la maquina prenda cambiara el password de administrador
local (adicionalmnete restrinja grupos y renombre la cuenta de
administrador para estandarizar a todo el mundo con la misma)

note que el scrip cambia el password sin importar como se llame la cuenta de
adminisrador local...

Cambiar password de administrador local estaciones scrip 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






-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y
no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que
muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Esther" escribió en el mensaje
news:

Hola a todos,
alguien sabe si es posible cambiar el password de Administrador local de x
maquinas mediante politicas (adm)??

Muchas gracias

No estoy de acuerdo que sea mas facil, ya que si la maquina no esta prendida eso no funciona... de la otra forma se asegura cada vez que prenden una maquina que el password se esta cambiando... se lo digo por experiencia al manejar varias sucursales y maquinas que se prenden a diferentes horas y que nunca estan prendidas todas ademas con el script se asegura que una maquina nueva que entregue helpdesk quede con el password que usted quiere si no le tocaria estarlo ejecutando cada determinado tiempo y lo veo muy manual esto... y sin log de errores

;-)

-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"juanma" <juanm.nogueira@(quita esto)itconsulting-sistemas.com> escribió en el mensaje news:

En este link hay una forma más fácil de hacerlo si Rodolfo me permite.

http://support.microsoft.com/defaul...272530#kb1

;)

Un saludo.
"Rodolfo Parrado Gutiérrez [MVP Windows]"
escribió en el mensaje news:%23OpHt$
otra nota... esto solo cambia el password de administrador local a
estaciones 2000 y XP y a servidores 2000 y 2003... ojo no la cambia sobre
controladores de dominio...

-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y
no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que
muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Rodolfo Parrado Gutiérrez [MVP Windows]"
escribió en el mensaje news:
defina una politica de inicio de sistema (no de usuario) y que tengan
permisos de lectura los domain comouters y no los domain users y pone en la
primera linea el password que quiere...
cada vez que la maquina prenda cambiara el password de administrador
local (adicionalmnete restrinja grupos y renombre la cuenta de
administrador para estandarizar a todo el mundo con la misma)

note que el scrip cambia el password sin importar como se llame la cuenta de
adminisrador local...

Cambiar password de administrador local estaciones scrip 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






-
Rodolfo Parrado Gutiérrez
http://tinyurl.com/6bvzu
Bogotá - Colombia
-
MVP Windows Server
MCT, MCSE, MCSA, MCDST, MCP+I
-
Este mensaje se proporciona "como está" sin garantías de ninguna índole, y
no otorga ningún derecho.
-
Asegúrese de buscar desde el enlace sobre lo que esta preguntando, ya que
muchas veces la pregunta ya fue respondida más de una vez
http://groups.google.com/groups?hl=....public.es
-

"Esther" escribió en el mensaje
news:

Hola a todos,
alguien sabe si es posible cambiar el password de Administrador local de x
maquinas mediante politicas (adm)??

Muchas gracias