Hola amigos,
En ocasiones nos encontramos con sesiones de escritorio remoto colgadas en algunos servidores.
Con este comando, las podremos visualizar:
query session /server:nombredelserver
En mi caso quiero cerrar la sesion del usuario itadmin, usaremos
reset session 2 /server:nombre
Como veis, la ha cerrado
Un comando util para el dia a dia.
jueves, 21 de mayo de 2020
miércoles, 6 de mayo de 2020
Windows Server 2019 : GPO cambiar contraseña usuario administrador local
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
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
Suscribirse a:
Entradas (Atom)