[vbs] exécution d'un script

Bonjour,

voila j'ai créer un vbs qui est censé m'exécuter un batch en fonction de si il appartiens bien au groupe1 et un autre batch si il n'appartient pas à ce groupe mais ca ne fonctionne pas avez vous une idée du problème deux jours à modifier remodifier j'y arrive pas

merci d'avance

Set WshShell = CreateObject("WScript.Shell")
Set args = WScript.Arguments
Utilisateur=""
NomCN=UCase(args(0))
Set objGroup = GetObject("LDAP://CN=groupe1,OU=Groups,OU=Sgroups,OU=ou,DC=dc,DC=dc1,DC=dc2")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")
For Each strMember in arrMemberOf
Membre=Split(strmember,",")
If UCase(Membre(0)) = "CN="&NomCn Then Utilisateur="OK"
Next
If Utilisateur="OK" Then
wshshell.run "\\monserveur\logon\log1.bat",2
Else
wshshell.run "\\monserveur\logon\log2.bat",2
End if