Salut je m'explique je souhaite mapper des lecteurs pour les utilisateurs selon le groupe. J'ai ce bout de code mais je suis pas sure.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'On Error Resume Next
'Déclaration des variables'
Dim objGroupList, objADObject, strGroup, objUser
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshVarEnv = WshShell.Environment("PROCESS")
strNetBiosDomain = WshVarEnv.Item ("USERDOMAIN")
strLogonServer = WshShell.ExpandEnvironmentStrings("%Logonserver%")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")
 
Set objUser = GetObject("WinNT://" & strNetBiosDomain & "/" _
  & strUserName & ",user")
 
Dim objNetwork 
Set objNetwork = CreateObject("Wscript.Network") 
 
'Condition 1 : Si l'utilisateur appartient à "G_Informatique"
If IsMember("G_Informatique") Then
objNetwork.RemoveNetworkDrive "Z:"
objNetwork.MapNetworkDrive "Z:" , "\\monserveur\partage"
WshShell.run strLogonServer & "netlogon\AuditCompta.vbs"
End If
'Fin du script'
WScript.quit
 
'Les 2 Fonctions de test d'appartenance aux groupes'
Function IsMember(strGroup)
  If IsEmpty(objGroupList) Then
    Call ReadGroups
  End If
  IsMember = objGroupList.Exists(strGroup)
End Function
 
Sub ReadGroups
  Dim objGroup
  Set objGroupList = CreateObject("Scripting.Dictionary")
  objGroupList.CompareMode = vbTextCompare
  For Each objGroup In objUser.Groups
    objGroupList(objGroup.name) = True
  Next
  Set objGroup = Nothing
End Sub