Bonjour, peux t'on ajouter plusieurs groupe dans une même requête .
Si oui quelle en est la syntaxe.
Exemple :
If MemberOf(ObjGroupDict, "groupname1, groupname2") Then
WSHNetwork.MapNetworkDrive "I:", "\\SRV1\Dtoto"
End If
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Stéphane [MS]
Bonjour,
Le texte que vous indiquez fait, sans doute, partie d'un script beaucoup plus long. En effet, MemeberOf n'est pas un mot clé de VBScript.
En effectuant une recherche sur Internet, je suis tombé sur le code suivant qui reste à adapter, mais le principe général d'utiliser une collection et des Case est bon :
======================== For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN
Select Case strGroupName Case "Group1" objNetwork.MapNetworkDrive "X:", "server1groupshare1"
Case "All-Users" objNetwork.MapNetworkDrive "P:", "Server2public"
End Select Next ================================ -- Cdlt Stéphane
Bonjour, peux t'on ajouter plusieurs groupe dans une même requête . Si oui quelle en est la syntaxe. Exemple : If MemberOf(ObjGroupDict, "groupname1, groupname2") Then WSHNetwork.MapNetworkDrive "I:", "SRV1Dtoto" End If
Merci
Hervé
Bonjour,
Le texte que vous indiquez fait, sans doute, partie d'un script beaucoup
plus long. En effet, MemeberOf n'est pas un mot clé de VBScript.
En effectuant une recherche sur Internet, je suis tombé sur le code suivant
qui reste à adapter, mais le principe général d'utiliser une collection et
des Case est bon :
======================== For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN
Select Case strGroupName
Case "Group1"
objNetwork.MapNetworkDrive "X:", "\server1groupshare1"
Case "All-Users"
objNetwork.MapNetworkDrive "P:", "\Server2public"
End Select
Next
================================
--
Cdlt
Stéphane
Bonjour, peux t'on ajouter plusieurs groupe dans une même requête .
Si oui quelle en est la syntaxe.
Exemple :
If MemberOf(ObjGroupDict, "groupname1, groupname2") Then
WSHNetwork.MapNetworkDrive "I:", "\SRV1Dtoto"
End If
Le texte que vous indiquez fait, sans doute, partie d'un script beaucoup plus long. En effet, MemeberOf n'est pas un mot clé de VBScript.
En effectuant une recherche sur Internet, je suis tombé sur le code suivant qui reste à adapter, mais le principe général d'utiliser une collection et des Case est bon :
======================== For Each strGroup in objUser.MemberOf strGroupPath = "LDAP://" & strGroup Set objGroup = GetObject(strGroupPath) strGroupName = objGroup.CN
Select Case strGroupName Case "Group1" objNetwork.MapNetworkDrive "X:", "server1groupshare1"
Case "All-Users" objNetwork.MapNetworkDrive "P:", "Server2public"
End Select Next ================================ -- Cdlt Stéphane
Bonjour, peux t'on ajouter plusieurs groupe dans une même requête . Si oui quelle en est la syntaxe. Exemple : If MemberOf(ObjGroupDict, "groupname1, groupname2") Then WSHNetwork.MapNetworkDrive "I:", "SRV1Dtoto" End If
