Mappage imprimante si elle n'existe pas

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Mappage imprimante si elle n'existe pas

Eysinem

Bonjour,

Je souhaiterais mapper une imprimante via un script VBS.
Et j'aimerais qu'elle ne soit installé que si elle n'existe pas déjà.

J'aimerais faire une ligne de ce genre :

Code :

If Not objFSO.ImpExists("\\NAS-BORDEAUX\BDX-PRN03" ) Then
WshNetwork.AddWindowsPrinterConnection "\\NAS-BORDEAUX\BDX-PRN03"
End If

Merci d'avance pour votre aide :-)

Publicité

ccp6128

Syntax error

Bonjour,

Rien de plus simple :

Set objNetwork = CreateObject("Wscript.Network" )

strComputer = "."
strPrinter = "\\NAS-BORDEAUX\BDX-PRN03"
strPrinterEscaped = Replace(strPrinter, "\", "\\",1,-1,1)

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2" )

Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where Local = FALSE And Name LIKE '" & strPrinterEscaped & "'" )

if colPrinters.Count = 0 Then
objNetwork.AddWindowsPrinterConnection strPrinter
End If

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Mappage imprimante si elle n'existe pas

Sujets relatifs
Resource id2 : utiliser ce résultat comme variable	faire un photomaton avec imprimante + APN
Monter une imprimante réseau depuis un intranet avec Firefox	Ch. développeur Android pour une application qui existe déjà sur iOS
Exécuter un script si presse Entrée	script de désinstallation d'imprimante réseau
mappage lecteur réseau	créer un gestionnaire de stock,de cartouche imprimante sous access
Imprimante TEC B452 - pour un trait epais en langage TECPRINT	Créer une variable de session si elle n'existe pas
Plus de sujets relatifs à : Mappage imprimante si elle n'existe pas

Page générée en 0.051 secondes