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:
Le login de la personne connectée s’affiche:
Bonjour ce script ne fonctionne pas complètement dans mon entreprise, il m’affiche bien le nom des utilisateur qui sont connecter sur un poste , mais pas les machine distante. Seriez-vous pourquoi ? le script est-il fonctionnel ?