Script vbs ismember
Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 892 fois - Téléchargée 25 fois
Contenu du snippet
Ce Script permet de mapper un lecteur réseau en fonction de l'appartenance à un groupe AD
Source / Exemple :
'/////////////////////////////////////////////////////////
'/////////////Fonction utilisateur IsMember\\\\\\\\\\\\\\\
'Script permettant de mapper un lecteur réseau en fonction
'de l'appartenance à un groupe.
'
'sGroup Nom du groupe
'Renvoie True si utilisateur est membre du groupe
'Enjoy !!! bernes3@gmail.com
'/////////////////////////////////////////////////////////
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Option Explicit
Dim groupe, util, res, chemin, dico, strmap, fso
set res = CreateObject("Wscript.network")
Set fso = CreateObject("Scripting.FileSystemObject")
Function IsMember(sGroup)
Dim sAdsPath,oUser,oGroup,g_oGroupDict,g_oNet
'Peupler dictionnaire si pas encore créé
If IsEmpty(g_oGroupDict) Then
Set g_oGroupDict=CreateObject("Scripting.Dictionary")
g_oGroupDict.CompareMode = vbTextCompare
sAdsPath = res.UserDomain &"/"& res.UserName
Set oUser = GetObject("WinNT://"& sAdsPath & ",user")
For Each oGroup In oUser.Groups
g_oGroupDict.Add oGroup.Name, "-"
Next
Set oUser = Nothing
End If
IsMember = CBool(g_oGroupDict.Exists(sGroup))
End Function
'Tests de l'appartenance à un groupe
If IsMember("GG_INFORMATIQUE") then
If (fso.folderexists("G:\") = False) Then
res.MapNetworkDrive "G:", "\\SERVEUR\ECHANGES\INFORMATIQUE"
Else
res.RemoveNetworkDrive "G:"
res.MapNetworkDrive "G:", "\\SERVEUR\ECHANGES\INFORMATIQUE"
End If
End if
If IsMember("GG_COMPTA") then
If (fso.folderexists("G:\") = False) Then
res.MapNetworkDrive "G:", "\\SERVEUR\ECHANGES\COMPTA"
Else
res.RemoveNetworkDrive "G:"
res.MapNetworkDrive "G:", "\\SERVEUR\ECHANGES\COMPTA"
End If
End if
wscript.quit
A voir également
- Ismember python
- Ismember - Meilleures réponses
- Python ismember - Meilleures réponses
- Jeu de la vie python - Guide
- Code python jeu - Guide
- Tour de hanoï python - Guide
- Générateur de labyrinthe python - Guide
- Traducteur python - Guide
J'aime beaucoup ton script bernes3
Ce n'est pas récent mais ça m'a bien dépanné !!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.