Bonjour,
j'ai ce script qui marche et je veut afficher un message qui me prévien si je ne suis pas connecter à cette machine.
ce code affiche tout les utilisateurs du groupe administrateur si il est connecté

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
' workstation PARWST
 
 
strComputer = "PARWST"
Set colGroups = GetObject("WinNT://" & strComputer & "")
colGroups.Filter = Array("group")
For Each objGroup In colGroups
    If objGroup.Name  = "Administrateurs" Then    
	For Each objUser in objGroup.Members
	    If objUser.Name <> "Administrateur"  And objUser.Name <> "DL_Admin_WKSTA" And objUser.Name <> "Domain Admins" And objUser.Name <> "tivoli_admin" Then
 
                Wscript.Echo objUser.Name
 
  	    End If
	Next
    End If
Next
Merci à l'avance pour vos réponse