[vbs] exécution d'un script
Résolu
admininfo
Messages postés
333
Date d'inscription
Statut
Membre
Dernière intervention
-
admininfo -
admininfo -
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
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
A voir également:
- [vbs] exécution d'un script
- Script vidéo youtube - Guide
- Vbs windows - Accueil - Optimisation
- Mas script - Accueil - Windows
- Ghost script - Télécharger - Polices de caractères
- Script cmd - Guide
