Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Dim objWMIService, objComputer, colComputer, strComputer 
strComputer = "P019092" 'Nom de la machine distante
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 & " est connecté"
Next
J'ai trouvé ce code qui me permet de savoir à distance qui est connecté sur tel ou tel machine...

Le nom du poste est en dure dans le code P019092.
J'aimerais un pop-up qui me demande le nom de machine avant d'executer ça pour ne pas avoir à aller dans le code à chaque fois et par concéquent fournir cet utilitaire à mes collégues.

Si vous savez je vous remercie par avance.
Je l'aurais bien fait moi-même mais je connais pratiquement rien à ce langage.