Script vbs ismember

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

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)