SysKB.com

Il peut être pratique de savoir rapidement qui est connecté sur un serveur distant. Ce script WMI, avec un Inputbox intégré, va vous rendre ce service.

Créez un fichier ScriptWMI.vbs à l’aide d’un éditeur de texte et insérez le code suivant:

Option Explicit
Dim objWMIService, objComputer, colComputer, strComputer
strComputer = inputbox( "Nom du serveur", "Input" )
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
Wscript.Echo objComputer.UserName & " is logged on"
Next

Double-cliquez sur le fichier nouvellement créé pour exécuter le script

Indiquez le nom du système local ou distant:

Le login de la personne connectée s’affiche: