Mappage imprimante si elle n'existe pas

Mappage imprimante si elle n'existe pas - VB/VBA/VBS - Programmation

Marsh Posté le 10-05-2012 à 11:06:03    

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 :
  1. If Not objFSO.ImpExists("\\NAS-BORDEAUX\BDX-PRN03" ) Then
  2. WshNetwork.AddWindowsPrinterConnection "\\NAS-BORDEAUX\BDX-PRN03"
  3. End If

 
 
Merci d'avance pour votre aide :-)
 
 

Reply

Marsh Posté le 10-05-2012 à 11:06:03   

Reply

Marsh Posté le 10-05-2012 à 12:51:48    

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
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed