strComputer = inputbox (« écrire svp le nom de l'ordinateur : ")
'Vérifier que l'utilisateur a écrit une valeur
si strComputer = puis ""
wscript.quit
finir si
Erreurs de poignée SUR d'ERREUR RÉSUMÉ APRÈS 'se reliant à l'ordinateur (non branché, erreur etc. de permissions)
placer l'objWMI = le GetObject (« winmgmts : {impersonationLevel=impersonate} ! / » et strComputer et "")
si errent <> 0 puis 'vérifier l'erreur
erreur de wscript.echo « se reliant à l'ordinateur spécifique : » et err.description
wscript.quit
finir si
SUR L'ERREUR 0 GOTO 'arrêter la prochaine gestion d'erreur de résumé
placer le colOS = l'objWMI.ExecQuery (« choisir * à partir de Win32_ComputerSystem »)
Pour chaque objItem dans le colOS
si "" <> de strUsers alors
strUsers = strUsers et « , » et objItem.UserName
autrement
strUsers = objItem.UserName
Finir si
Après
wscript.echo « les utilisateurs suivants sont ouverts une session » et strComputer et « : » et strUsers
|