Mappage lecteurs réseaux selon groupe

Version imprimable

26/11/2008, 16h54
cikky

Mappage lecteurs réseaux selon groupe

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
26/11/2008, 22h42
SfJ5Rpw8

Bonsoir,

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

malheureusement tu as oublié de la postée :roll:

Bonjour,

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

Code:

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.

27/11/2008, 09h48
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.
27/11/2008, 09h58
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?
27/11/2008, 10h06
cikky
Citation:

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:

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:

1 2 3 If drvG = 0 Then objNetwork.MapNetworkDrive "G:" , strFileServer & "\groupwa$" End If
il a pas pris en compte mon flag

Bonjour,

Moi pour vérifier si je passe bien par une boucle ou un if ou un select,je mets un stop ,si je passe bien à l'endroit ou je veux le programme s'arrête sur le stop.
exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Select Case strGroup 
					Case "Groupe1"
						objNetwork.MapNetworkDrive "G:" , strFileServer & "\labosoft"
						drvG = 1		
						objNetwork.MapNetworkDrive "I:" , strFileServer & "\groupwa$"
						msgbox "drvG 
                      stop 'un stop ici :si le programme ne s'arrête pas ici c'est que le select n trouve pas "Groupe1" alors cherche l'erreur
 
PVCS " & drvG
					Case "Groupe2

A+

Merci pour vos contributions, j'ai réglé le pb
j'ai abandonné le système de flag et plutôt utilisé un if en vérifiant l'existence d'un lecteur réseau (pourquoi n'y ai je pas penser avant?!:roll:)
Le pb venait du fait qu'a chaque fois qu'un utilisateur se trouve dans un groupe non répertorié dans les Case, le code exécute automatiquement le Case Else et mettait dont le flag à 0, ce qui est normal

ce qui donne:
Code:

1 2 3 4 5 6 7 8 9 'If the user is not in Groupe1 If (objFSO.DriveExists("G:") = False) Then objNetwork.MapNetworkDrive "G:" , strFileServer & "\groupwa$" End If 'If the user is not in Groupe17 If (objFSO.DriveExists("U:") = False) Then objNetwork.MapNetworkDrive "U:" , strFileServer & "\user$\" & strUserName , True End If

27/11/2008, 11h33
ced600
Ou bien tu met :
Code:

1 2 drvG = 0 drvU = 0
avant la boucle et tu ne fait rien dans le case else.

Dans ce cas drvG et drvU ne seront null que si tu n'es rentré dans aucun des case :)
27/11/2008, 13h16
cikky

en effet ca pourrait répondre à la problematique aussi, merci ;)