Hello All!
I was wondering if there was a way to check if a printer is a valid printer on the server prior to installing it.
Here's what I have now:
Any and all help is appreciated!!!Code:Option Explicit Const fServer = "\\ServerName\" Const fPrinter = "PrinterName" Const fModel = "PrinterModel" Dim wshNet Set wshNet = CreateObject("WScript.Network") '**** Check here if the printer is valid on the server **** 'Attempt to install the printer If wshNet.AddWindowsPrinterConnection(fServer & fPrinter, fModel) = 0 Then Msgbox "Printer: " & fServer & fPrinter & vbNewLine & "Model: " & fModel & vbNewLine & vbNewLine & "Has been installed!", _ , "Printer Installed!" Else Msgbox "Printer: " & fServer & fPrinter & vbNewLine & "Model: " & fModel & vbNewLine & vbNewLine & "Has NOT been installed!", _ , "Printer Install Failed!" End If
JFV


Reply With Quote


Bookmarks