usuário = “MyServer”
Ajustar WS = CreateObject (“WScript.Shell”)
Ajustar o oExec = a WS. Exec (“quser /server: ” & usuário)
Fazer
WScript.Sleep 10
Dar laços até oExec.Status = 1
Fazer até oExec.stdOut.atEndOfStream
'introduzir o código aqui para avaliar a saída
'oExec.StdOut.readLine permitirá que você alcance a saída
'uma linha de cada vez
Laço
|