SCRIPT VBS ISMEMBER

'/////////////////////////////////////////////////////////
'/////////////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

05 mars 2007 15:31:10 :

.