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

Ajouter un commentaire Commentaire
Messages postés
41
Date d'inscription
dimanche 30 juin 2002
Statut
Membre
Dernière intervention
6 avril 2010

Salut !

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.