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 63 64 65 66 67 68
| For Each strMemberOf in arrMemberOf
arrGroup = Split(strMemberOf,",")
strGroup = Mid(arrGroup(0),4)
Select Case strGroup
Case "Groupe1"
objNetwork.MapNetworkDrive "G:" , strFileServer & "\labosoft"
drvG = 1
objNetwork.MapNetworkDrive "I:" , strFileServer & "\groupwa$"
msgbox "drvG PVCS " & drvG
Case "Groupe2"
objNetwork.MapNetworkDrive "F:" , strFileServer & "\APPLIS"
Case "Groupe3"
objNetwork.MapNetworkDrive "H:" , strFileServer & "\CAO\DTC"
Case "Groupe4"
objNetwork.MapNetworkDrive "I:" , strFileServer & "\IDEP_CN8"
Case "Groupe5"
objNetwork.MapNetworkDrive "J:" , strFileServer & "\VTW"
Case "Groupe6"
objNetwork.MapNetworkDrive "S:" , strFileServer & "\VTW"
Case "Groupe7"
objNetwork.MapNetworkDrive "K:" , strFileServer & "\CAO-DEI"
Case "Groupe8"
objNetwork.MapNetworkDrive "L:" , strFileServer & "\Design"
Case "Groupe9"
objNetwork.MapNetworkDrive "N:" , strFileServer & "\comites"
Case "Groupe10"
objNetwork.MapNetworkDrive "R:" , strFileServer & "Archives_DEI"
Case "Groupe11"
objNetwork.MapNetworkDrive "V:" , strFileServer & "\GESCOF$"
Case "Groupe12"
objNetwork.MapNetworkDrive "V:" , strFileServer & "\EMC"
Case "Groupe13"
objNetwork.MapNetworkDrive "V:" , strFileServer & "\validation"
Case "Groupe14"
objNetwork.MapNetworkDrive "V:" , strFileServer & "\SQA_VSC"
Case "Groupe15"
objNetwork.MapNetworkDrive "W:" , strFileServer & "\Normes"
Case "Groupe16"
objNetwork.MapNetworkDrive "Y:" , strFileServer & "ECAD_Library"
Case "Groupe17"
objNetwork.MapNetworkDrive "Z:" , strFileServer & "\informatique$"
Case "Groupe18"
objNetwork.MapNetworkDrive "Q:" , strFileServer & "commun"
Case "Groupe19"
objNetwork.MapNetworkDrive "U:" , strFileServer & "\usercao$\" & strUserName , True
drvU = 1
objNetwork.MapNetworkDrive "O:" , strFileServer & "\cao"
Case Else
drvG = 0
drvU = 0
End Select
Next
If drvG = 0 Then
objNetwork.MapNetworkDrive "G:" , strFileServer & "\groupwa$"
End If
If drvU = 0 Then
objNetwork.MapNetworkDrive "U:" , strFileServer & "\user$\" & strUserName , True
End If
objNetwork.MapNetworkDrive "P:" , strFileServer & "\projets"
objNetwork.MapNetworkDrive "X:" , strFileServer & "\tech$"
objNetwork.MapNetworkDrive "S:" , strFileServer & "\services"
objNetwork.MapNetworkDrive "T:" , strFileServer & "\transferts" |
Partager