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 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62
| ON ERROR RESUME NEXT
Dim UserName
set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
UserName = WshNetwork.UserName
DomainName="yy.com"
LogonServer=WshShell.ExpandEnvironmentStrings("%LogonServer%")
Set UserObj = GetObject("LDAP://" & DomainName & "/" & UserName)
Set WshProcessEnv = WshShell.Environment("PROCESS")
' *************** BOUCLE VERIFICATION GROUPE AD **********************
For Each GroupObj In UserObj.groups
WshNetwork.MapNetworkDrive "P:" , WshProcessEnv("HOMESHARE")
WshNetwork.MapNetworkDrive "Q:" , "\\chemin1"
WshNetwork.MapNetworkDrive "S:" , "\\chemin2"
WshNetwork.MapNetworkDrive "L:" , "\\chemin3"
If IsMember(DomainName&"/"&UserName, "Grp1") Then
WshNetwork.MapNetworkDrive "K:" , "\\chemin4"
End if
If IsMember(DomainName&"/"&UserName, "Grp2") Then
WshNetwork.MapNetworkDrive "W:", "\\chemin5"
End if
If IsMember(DomainName&"/"&UserName, "Grp3") Then
WshNetwork.MapNetworkDrive "R:", "\\chemin6"
End If
If IsMember(DomainName&"/"&UserName, "Grp4") Then
WshNetwork.MapNetworkDrive "M:", "\\chemin7"
End If
Next
'Function IsMember (strGroup)
' Set WshNetwork = CreateObject ("WScript.Network")
' Set oGroup = GetObject ( _
' "WinNT://" & WshNetwork.UserDomain & "/" & strGroup)
' IsMember = WshNetwork.IsMember ( _
' "WinNT://" & WshNetwork.UserDomain & "/" & _
' WshNetwork.UserName)
'End Function
Function IsMember(sDomainUser, sGroup) 'IsMember("yy.com/user", "Grp1")
Dim oUser,oGroup,GrpExists
Set oUser = GetObject("WinNT://"& sDomainUser & ",user")
For Each oGroup In oUser.Groups
If oGroup.Name = sGroup Then GrpExists = 1
Next
Set oUser = Nothing
Set oGroup = Nothing
IsMember = GrpExists
End Function
'Function IsMember(strGroup)
'IsMember=False
'If InStr(UserGroups,"[" & strGroup & "]") Then
'IsMember=True
'End If
'End Function |
Partager