SCRIPT VBS ISMEMBER ismember, groupe, ad, mappage, Source N°41749

Information sur la source

Catégorie :Réseau & Internet Classé sous : ismember, groupe, ad, mappage Niveau : Débutant Date de création : 05/03/2007 Date de mise à jour : 05/03/2007 15:31:10 Vu : 7 501

Auteur : bernes3

Ecrire un message privé

Note :

6,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Ce Script permet de mapper un lecteur réseau en fonction de l'appartenance à un groupe AD

Source

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

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