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