Bediener = „MyServer“
Einstellen WS = CreateObject („WScript.Shell“)
oExec = WS einstellen. Exec („quser /server: “ u. Bediener)
Tun
WScript.Sleep 10
Bis schlingen oExec.Status = 1
Bis oExec.stdOut.atEndOfStream tun
'Code hier einsetzen, um Ausgang auszuwerten
'oExec.StdOut.readLine erlaubt Ihnen, auf den Ausgang zurückzugreifen
'eine Linie auf einmal
Schleife
|