Exécuter un bat à partire d'un vbs

Bonjour,


voila j'ai un problème je veut lancer un batch à partir d'un vbs

je vous explique j'ai créer un batch qui va appeler un vbs ce vbs va dire si tu est dans ce groupe exécute ce script si tu est dans ce groupe exécute ce scripte j'ai tout bien fait mais ça ne fonctionne pas et je ne trouve pas l'erreur pouvez vous m'aider ??

voila mon vbs

Sub testpresence
Set WshShell = CreateObject("WScript.Shell")
Set args = WScript.Arguments
Utilisateur=""
NomCn = UCase(args(0))
Set objGroup1 = GetObject("LDAP://CN="&NomCn&",OU=USERACCOUNTS,OU=ou,DC=fr,DC=dc,DC=COM")
objGroup1.GetInfo
arrMemberOf = objGroup1.GetEx("memberof")
Var = False


For Each strMember in arrMemberOf
Select Case strMember
Case "CN=groupe,OU=Global,OU=Security,OU=ou,DC=fr,DC=dc,DC=com" var=True : Exit For
Case Else Var=False
End Select
Next
If Var = True Then
Set WshShell = CreateObject("WScript.Shell")
Wshshell.run "\\mon\adresse\log.bat","True"
End If
End Sub


donc la il est cencé me lancer le .bat qui correspond au groupe mais il ne le fait pas ???