servidor = “MyServer”
Fijar WS = CreateObject (“WScript.Shell”)
Fijar al oExec = a WS. Exec (“quser /server: ” y servidor)
Hacer
WScript.Sleep 10
Colocar hasta oExec.Status = 1
Hacer hasta oExec.stdOut.atEndOfStream
'insertar el código aquí para evaluar salida
'oExec.StdOut.readLine permitirá que usted tenga acceso a la salida
'una línea a la vez
Lazo
|