Ajoute une connexion d'imprimante à Windows.
Windows NT/Windows 2000 :
object.AddWindowsPrinterConnection(
strPrinterPath
)
Windows 95/98 :
object.AddWindowsPrinterConnection(
strPrinterPath,
strDriverName[,strPort]
)
objet
Objet WshNetwork.
strPrinterPath
Chemin d'accès de l'imprimante.
strDriverName
Nom du pilote à utiliser. Requis sous Windows 95/98, ignoré sous Windows NT/Windows 2000.
strPort
Facultatif. Spécifie le port auquel attacher l'imprimante sous Windows 95/98. La valeur par défaut est LPT1. Ignoré sous Windows NT/Windows 2000.
L'utilisation de cette méthode équivaut à l'utilisation du Panneau de configuration/Imprimante pour ajouter une connexion à une imprimante. Contrairement à la méthode AddPrinterConnection, cette méthode vous permet de créer une connexion à une imprimante en la dirigeant vers un port spécifique tel que LPT1. Si la connexion échoue, une erreur survient.
Sous Windows 95/98, le pilote d'imprimante doit déjà être installé sur l'ordinateur afin que la méthode AddWindowsPrinterConnection fonctionne. Si le pilote n'est pas installé, Windows renverra le message d'erreur "Pilote d'imprimante inconnu".
L'exemple suivant utilise la méthode AddWindowsPrinterConnection pour connecter une imprimante de réseau au port LPT1.
Set WshNetwork = CreateObject("WScript.Network")
Set PrinterPath = "\\printserv\DefaultPrinter"
Set PrinterDriver = "Lexmark Optra S 1650"
Set rc = WshNetwork.AddWindowsPrinterConnection(PrinterPath, PrinterDriver)
If Not rc then
WScript.Echo("Échec de connexion de l'imprimante")
End IfApplication : WshNetwork, objet