exécuter un bat à partire d'un vbs Résolu/Fermé

Question

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 ???   

Configuration: Windows 7 / Firefox 3.6.22

Reivax962 · Answer

Bonjour,

Je ne suis pas un pro de VBS, mais je vois plusieurs points d'achoppement possible :

 - var=True C'est le seul endroit où tu utilises var en minuscule ;
 - Case "CN=groupe,OU=Global,OU=Security,OU=ou,DC=fr,DC=dc,DC=com" : es-tu sûr d'avoir un strMember qui valle exactement ça ?

dans ta boucle FOR, essaie de faire un 
WScript.Echo strMember 

pour voir exactement ce qu'il y a dans cette variable à chaque itération...

Xavier

admininfo · Answer

var pas de soucie à ce niveau

pour CN=groupe,OU=Global,OU=Security,OU=ou,DC=fr,DC=dc,DC=com"

je l'ai modifier pour pas que tout le monde voie les ou

je vais essayer ta dernière option

admininfo · Answer

merci dsl

admininfo · Answer

ça me créer une box mais ne m'affiche rien

admininfo · Answer

en faite la commande seule Set WshShell = CreateObject("WScript.Shell")
Wshshell.run "\mon\adresse\log.bat","True" 


fonctionne mais ne marche pas avec les condition autour je voudrais la faire fonctionner au milieu de ses conditions pour qu'en fonction du groupe il me démarre tel ou tel script

admininfo · Answer

pas d'idée

Exécuter un bat à partire d'un vbs

6 réponses

Discussions similaires