1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Script vbs ismember

Script vbs ismember

1/5 (1 avis)

Snippet vu 18 132 fois - Téléchargée 26 fois

Commenter

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
cs_maxkweeger Messages postés 41 Date d'inscription dimanche 30 juin 2002 Statut Membre Dernière intervention 6 avril 2010
6 avril 2010 à 15:35
Salut !

J'aime beaucoup ton script bernes3

Ce n'est pas récent mais ça m'a bien dépanné !!
S'inscrire maintenant

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.

Du même auteur (bernes3)