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
Ce code est correctement formaté.
Vous pouvez directement le COPIER / COLLER dans un fichier VBS.

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

Indiquez le nom du système local ou distant:

Input Box VBS Script

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

Script VBS WMI qui est connecté

Articles similaires