Discussion :

[cikky]

bonjour,
je débute en vbs j'aurai besoin d'un peu d'aide pour un script logon. il faut que le script mappe des lecteurs réseaux selon l'appartenance de l'utilisateur à tel ou tel groupe (une quinzaine de groupe en tout). j'ai essayé avec une boucle for each et select case mais bisarement il m'exécute systématiquement la partie dans le case else, j'ai pensé à des confitions if, mais pour une quinzaine de groupe en conditions ca fait bcp...
quelqu'un pourrait il m'aider?
merci

[SfJ5Rpw8]

Bonsoir,

ton instruction Select case/ Case... doit être mal écrite ...

malheureusement tu as oublié de la postée

[cikky]

Bonjour,

oups c'est exact, voici la partie du code:

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
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"

Les lecteur P X S et T sont obligatoires pour tous
Les lecteurs G et U peuvent pointer vers différents lecteurs, dépendant du groupe.

[ced600]

à l'aide de msgbox ou wscript.echo affiche le contenu de strGroup pour vérifier que tu à bien GroupeX où X représente un nombre.

[cikky]

alors j'ai mis un msgbox comme tu dis et dans le Case Else
par exemple, il affiche bien que je fais partie du Groupe17, mais ensuite il m'affiche le msgbox du Case Else. et là je ne comprend pas pourquoi, pourtant le Case Else est exécuté que si aucun des Case ne l'est, non?

[cikky]

alors j'ai mis un msgbox comme tu dis et dans le Case Else
par exemple, il affiche bien que je fais partie du Groupe17, mais ensuite il m'affiche le msgbox du Case Else. et là je ne comprend pas pourquoi, pourtant le Case Else est exécuté que si aucun des Case ne l'est, non?

Ah non au temps pour moi, l'utilisateur test ne faisait pas partie du groupe 17, donc normal qu'il passe par le Case Else.
Mais le pb maintenant, c'est que pr un user du Groupe1, il devrait donc avoir le lecteur G

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Case "GRoupe1"
						objNetwork.MapNetworkDrive "G:" , strFileServer & "\labosoft"
						drvG = 1

le flag est à 1, mais ensuite il m'indique une erreur comme quoi le lecteur G est déjà utilisé à cet endroit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If drvG = 0 Then
			objNetwork.MapNetworkDrive "G:" , strFileServer & "\groupwa$"
		End If

il a pas pris en compte mon flag