Cita de: palophp en 25 Octubre 2016, 20:31 PM
Hola.
Estoy realizando un script para apagar los equipos de un dominio, pero no se me apagan ni metiendo las credenciales del administrador de cada equipo.
Utilizo la sentencia ConnectServer pero no hay tu tia.
Alguien me ayuda?
Este es el codigo, pero no me hace nada:Código (vb) [Seleccionar]
Dim sUser, sPassword
'set remote credentials
sUser = "adm"
sPassword = "***"
'Establecemos control de errores
On Error Resume Next
'get WMI locator
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
'Connect to remote WMI
Set oConnection = oLocator.ConnectServer(StrEquipo, "\root\cimv2", sUser, sPassword)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & StrEquipo & oConnection)
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next
Fijate con el shutdown de windows, le podés pasar -m \\PC con user y pass