Discussion :

[Admin]

Bonjour,

J'essaye en vain de rajouter automatiquement une imprimante via un script VBS :

Code :

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

1
2
3
4
5
6
7
Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\aval-srv\Epson_1290"
PrinterDriver = "EPSON Stylus Photo 1290"
Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath, PrinterDriver)
If Not rc then
      WScript.Echo("Échec de connexion de l'imprimante")
End If

Mais il plante à la ligne 4 :

Code :

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

Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath, PrinterDriver)

Avec le message :

Script : D:\Installation\VBS\Test.vbs
Ligne : 4
Caract. : 1
Erreur : Syntaxe du nom de fichier, de répertoire ou de volume incorrecte.
Code : 8007007B
Source : (null)

Et je suis completement bloqué ici.

Merci d'avance ;-)

[Admin]

J'ai trouvé :

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
Dim objNet
Dim objShell
 
Set objNet = CreateObject("Wscript.Network")    
Set objShell = WScript.CreateObject("WScript.Shell")
 
If objShell.ExpandEnvironmentStrings("%OS%") = "" Then
	'Windows 95/98/ME
	objNet.AddWindowsPrinterConnection "\\aval-srv\EPSON_1290","EPSON Stylus Photo 1290"
	objNet.AddWindowsPrinterConnection "\\aval-srv\Traceur","HP DesignJet 650C(C2859B) by HP"
	objNet.AddWindowsPrinterConnection "\\aval-srv\HP_1120C","HP DeskJet 1120C"
Else
	'Windows 2000/XP
	objNet.AddWindowsPrinterConnection "\\aval-srv\EPSON_1290"
	objNet.AddWindowsPrinterConnection "\\aval-srv\Traceur"
	objNet.AddWindowsPrinterConnection "\\aval-srv\HP_1120C"
End If
 
'Les disques Réseaux
objNet.MapNetworkDrive "F:", "\\aval-srv\echange",True
objNet.MapNetworkDrive "G:", "\\aval-srv\echange",True
objNet.MapNetworkDrive "P:", "\\aval-srv\echange",True

C'est des syntaxes différentes suivant les windows :-)

[ThierryAIM]

Joli Goshiz, on garde

[Admin]

ok alors je corrige l'énorme faute que j'ai vu après

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
Dim objNet 
Dim objShell 
 
'Un Petit Resume pour l'erreur.
On Error Resume Next
 
Set objNet = CreateObject("Wscript.Network")    
Set objShell = WScript.CreateObject("WScript.Shell") 
 
If objShell.ExpandEnvironmentStrings("%OS%") = "Windows_NT" Then 
   'Windows 2000/XP 
   objNet.AddWindowsPrinterConnection "\\aval-srv\EPSON_1290" 
   objNet.AddWindowsPrinterConnection "\\aval-srv\Traceur" 
   objNet.AddWindowsPrinterConnection "\\aval-srv\HP_1120C" 
Else 
   'Windows 95/98/ME 
   objNet.AddWindowsPrinterConnection "\\aval-srv\EPSON_1290","EPSON Stylus Photo 1290" 
   objNet.AddWindowsPrinterConnection "\\aval-srv\Traceur","HP DesignJet 650C(C2859B) by HP" 
   objNet.AddWindowsPrinterConnection "\\aval-srv\HP_1120C","HP DeskJet 1120C" 
End If 
 
'Les disques Réseaux 
objNet.MapNetworkDrive "F:", "\\aval-srv\echange",True 
objNet.MapNetworkDrive "G:", "\\aval-srv\echange",True 
objNet.MapNetworkDrive "P:", "\\aval-srv\echange",True

[jujublue]

erreur

[jujublue]

Bonjour
J'ai refait ce meme scripte sur un serveur 2000 avec une imprimante partagée sur ce meme serveur avec le nom HP2200SDP et pourtant la meme erreur persiste :

Erreur : Syntaxe du nom de fichier, de répertoire ou de volume incorrecte.
Ligne 2
caractere 1

Pourquoi ? Merci de votre aide ...
Si je mets n'importe quoi comme chemin d'imprimante, il me dit "le nom de l'imprimante n'est pas valide" donc mon chemin unc est bon ...

Code :

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

1
2
Set objNet = Wscript.CreateObject("Wscript.Network")    
objNet.AddWindowsPrinterConnection "\\serveur\HP2200SDP"