serveur = « MyServer »
Placer le WS = le CreateObject (« WScript.Shell »)
Placer l'oExec = le WS. Exec (« quser /server : » et serveur)
Faire
WScript.Sleep 10
Faire une boucle jusqu'à oExec.Status = 1
Faire jusqu'à oExec.stdOut.atEndOfStream
'insérer le code ici pour évaluer le rendement
'oExec.StdOut.readLine te permettra d'accéder au rendement
'une ligne à la fois
Boucle
|