Cambio de Contrasenas locales

Buenas a todos.

He buscado una forma de cambiar la contrasena de los administradores
locales de muchos equipos en un dominio. En un foro he encontrado lo
siguiente:


Realiza las correspondientes pruebas en un equipo para comprobar que te lo
cambia de forma correcta. Tendras que encriptar el fichero para que tus
usuarios no conozcan la contraseña o puedan acceder al script, para ello
utiliza el comando desde un cmd : cscript .
Una vez encriptado el fichero , tendras que crear una directiva , accede a
configuracion del equipo -> Configuracion de windows -> Archivos de
comandos -> Inicio -> Agrega en Inicio , el fichero encriptado.vbe



Pego el codigo :



On Error Resume Next

strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell")

'Query Admin Members
Set colGroups = GetObject("WinNT://" & strComputer)
colGroups.Filter = Array("group")
For Each objGroup In colGroups
'check the administrators local group members..
If (InStr(1,objGroup.Name,"Administradores",1) >0) Then
For Each objUser in objGroup.Members
strUSER=strUSER &vbCrLf& objuser.class &"="& objUser.name
next
End If
Next

Set objUser = GetObject("WinNT://" & strComputer & "/administrador")
objUser.SetPassword "NUEVA_CONTRASEÑA"
objUser.Setinfo

If Err <> 0 Then
'write eventlog
call logit ("1","Admin Password Change: Failed " & Err &
vbCrLf&Err.Description _
&vbCrLf&Err.Source &vbCrLf& strUSER)
Else
call logit ("0","Admin Password Change: Successfull")
End if


'*******************************
Function logit(strStatus,strDescription)
WshShell.LogEvent strStatus,strDescription
End Function





Mi problema, es que no se como encriptar con el comando cscript o no
entiendo esa parte. Si ejecuto csript.exe /? me arroja algunos
modificadores pero nada dicen de la encripcion.

Si me pudieran orientar seria grandioso.



Muchas gracias.