[VBS] Erreur sur "AddWindowsPrinterConnection"

Version imprimable

Bonjour,

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

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:

Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath, PrinterDriver)

Avec le message :

Citation:

Envoyé par L'affreux script

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 ;-)

J'ai trouvé :

Code:

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 :-)

07/03/2004, 15h30
ThierryAIM

Joli Goshiz, on garde :lol:

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

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

27/03/2004, 16h08
jujublue

erreur

erreur
27/03/2004, 16h15
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:

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