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
|