Cherche si une connexion est etablie avec une machine ou non

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:

---

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

C'est bon j'ai ajouter ce code

Code:

---

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

---