Discussion :

[aefmaaradji]

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

[aefmaaradji]

C'est bon j'ai ajouter ce code

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
 
'--------------------------------------------------------------------
'Pour tester si la connexion est établie avec le destinataire ou non
'--------------------------------------------------------------------
	i=0
	For Each objGroup In colGroups 
	Do While i<=0 	
		If  objGroup.Name  <> "" Then 
			Wscript.Echo "Ordinateur est connecté à la machine " & strComputer
		Else 
			Wscript.Echo "Ordinateur ne peut pas se connecter à la machine " & strComputer
		End If
	i=i+1
	Loop
	Next
	If  i=0 Then Wscript.Echo "Ordinateur ne peut pas se connecter à la machine " & strComputer