Discussion :

[yellowdog]

Bonjour,

Je voudrais rediriger le retour de mes contrôles d'erreurs de mappage de disque dans un fichier mais je ne trouve pas la bonne syntaxe.
J'ai la variable strUsrProfile que je récupère par :

Code :

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

strUserProfile = wshShell.ExpandEnvironmentStrings( "%USERPROFILE%" )

et ma commande pour chaque disque mappé:

Code :

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

1
2
3
	If err.number <> 0 then
		WScript.Echo "Erreur Disque T: " & err.number & " " & err.description >> "C:\ "& strUserProfile &"\VBS.log"
	End if

Merci pour votre aide.

[ProgElecT]

Salut

A essayer avant le If

Code :

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

MsgBox "valeur de Err = " & err

Peut être aussi un MsgBox juste après le If permettrait de confirmer si tu entres bien dans la condition.

[yellowdog]

Ta commande ne résout pas mon problème.

Ce que je voudrais: c'est que pour chaque disque mappé dans mon script, je testes le code retour d’exécution et je stocke cette information dans un fichier nommé VBS.log dans le répertoire de chaque profile utilisateur. (C:\%USERPROFILE%\VBS.log)

Je n'ai pas besoin d'un popup qui me renvoi le message d'erreur.

[ProgElecT]

Ta commande ne résout pas mon problème.....

Je m'en doute bien, je te proposais de vérifier, à l'aide des MsgBoxs, la valeur de Err et si tu passais bien dans la condition If, pas plus dans un premier temps.

Alors, Err est il bien détecté, que vaut strUserProfile quand il y a une erreur ?

Ceci n'est pas une solution à ton problème, mais une recherche du pourquoi ton code en l'état ne fonctionne pas.

[yellowdog]

J'ai déjà fais le test avec MSGBOX et il me remonte bien la valeur.

Voici le script en entier.

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
' *******************************************
' Script to MAP users disks for GRPINFO Group
' *******************************************
Option Explicit
Dim domainName,userName,CompStr,GrpUserMapUs
Dim WshNetwork,wshShell,GrpUser,groupUser
 
' *****************************************************
' GET %USERNAME% to initialize username variable
' *****************************************************
Set WshNetwork = WScript.CreateObject("WScript.Network") 
Set wshShell = CreateObject("WScript.Shell")
 
GrpUserMapUs= Array("1","1","3","4","5")
GrpUser= Array("a","b","c","d")
userName = WshNetwork.UserName
domainName = "mydomain.com"
 
 
' ***********************************************************
' Quit the script for users belonging to group  GRP_NO_ETUDES
' ***********************************************************
 If  GetObject("WinNT://" & domainName & "/GRP_NO_ETUDES,Group").IsMember("WinNT://" & domainName & "/" & userName) Then		
		WScript.quit
 End If
 
' ****************************************************
' Quit the script for users belonging to GrpUser array
' ****************************************************
For each groupUser in GrpUser
	CompStr = StrComp(groupUser, userName, 1)
	If CompStr = 0 Then
		WScript.quit
	Else	
	End If
 
Next
 
' *******************************************************
' MAP USA drive for users belonging to GrpUserMapUs array
' *******************************************************
For each groupUser in GrpUserMapUs
	CompStr = StrComp(groupUser, userName, 1)
	If CompStr = 0 Then
		wshShell.Run "net Use Z: /Delete"
		wshShell.run "net use Z: \\1.1.1.1\FrPrjSumm$"
	Else	
	End If
 
Next
 
' ***************************************************
' MAP drives for specific Groups 
' ***************************************************
 
If  GetObject("WinNT://" & domainName & "/GRP_ESPACE_COMMERCIAL_CHANTIER,Group").IsMember("WinNT://" & domainName & "/" & userName) Then
	 wshShell.Run "net Use T: /Delete"		
         wshShell.run "net use T: \\NASGFX\AgencesDPCSav"
	If err.number <> 0 then
		WScript.Echo "Erreur Disque T: " & err.number & " " & err.description >> "C:\ "& strUserProfile &"\VBS.log"
	End if
End If
 
 
If  GetObject("WinNT://" & domainName & "/USA_PROJECTS_FILES,Group").IsMember("WinNT://" & domainName & "/" & userName) Then
				wshShell.Run "net Use E: /Delete"
				wshShell.run "net use E: \\1.1.1.1\US Projects Files$"
	If err.number <> 0 then
		WScript.Echo "Erreur Disque E: " & err.number & " " & err.description >> "C:\ "& strUserProfile &"\VBS.log"
	End if
End If
 
' ***************************************************
' MAP drives for specific Users 
' ***************************************************
 
Select Case userName
	Case "r" 
		wshShell.Run "net Use Y: /Delete"
		wshShell.run "net use Y: \\SRV\DESIGN"
		wshShell.Run "net Use V: /Delete"
		wshShell.run "net use V: \\NAS\BE_DIGITAL_COVER"
	Case "c"
		wshShell.Run "net Use Z: /Delete"
		wshShell.run "net use Z: \\2.2.2.2\taurus"
		wshShell.Run "net Use V: /Delete"
		wshShell.run "net use V: \\NAS\BE_DIGITAL_COVER"
	Case Else
End Select
 
 
WScript.quit
 
 
' wshShell.Run "net Use W: /Delete"
' wshShell.run "net use W: ""\\NAS\USERS\" & userName &""""

[ProgElecT]

Re

Je tenterai bien ce 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
' ***************************************************
' MAP drives for specific Groups 
' ***************************************************
 
If  GetObject("WinNT://" & domainName & "/GRP_ESPACE_COMMERCIAL_CHANTIER,Group").IsMember("WinNT://" & domainName & "/" & userName) Then
	 On Error Resume Next
	 wshShell.Run "net Use T: /Delete"		
         wshShell.run "net use T: \\NASGFX\AgencesDPCSav"
	If Err then
		WScript.Echo "Erreur Disque T: " & err.number & " " & err.description >> "C:\ "& strUserProfile &"\VBS.log"
		Err.Clear   
	End if
	On Error GoTo 0
End If
 
 
If  GetObject("WinNT://" & domainName & "/USA_PROJECTS_FILES,Group").IsMember("WinNT://" & domainName & "/" & userName) Then
	 On Error Resume Next
				wshShell.Run "net Use E: /Delete"
				wshShell.run "net use E: \\1.1.1.1\US Projects Files$"
	If Err then
		WScript.Echo "Erreur Disque E: " & err.number & " " & err.description >> "C:\ "& strUserProfile &"\VBS.log"
		Err.Clear   
	End if
	On Error GoTo 0
End If