Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 826 fois - Téléchargée 24 fois
'///////////////////////////////////////////////////////// '/////////////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
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.