Error Handling

[sandyd]

Hi all,

I'm looking for a way to trap an erro in the following code:

$WshNetwork = ObjCreate("WScript.Network")
 $PrinterPath = $Server & GUICtrlRead($cmbPrinters)

 ; Add network printer
 $WshNetwork.AddWindowsPrinterConnection($PrinterPath)

If the $cmbPrinters does not contain a valid printer, I need an error message to say so.

Any ideas?

[MHz]

Perhaps this untested use of WMI may validate the printers name?

Func _PrinterNameCheck($sPrinterName, $strComputer = ".")
    ; Function: Resolve Printer name
    Local $objPrinter
    Local $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    Local $colInstalledPrinters =  $objWMIService.ExecQuery ("Select * from Win32_Printer")
    ; Loop through collection
    For $objPrinter in $colInstalledPrinters
        If $sPrinterName = $objPrinter.Name Then
            Return True
        EndIf
    Next
EndFunc

Edit:

Localized variables

Edited August 17, 2006 by MHz

[DaleHohm]

Also, see the example in ObjEvent for implementing a COM error handler. There is also a discussion of it in the general Obj/Com section of the helpfile.

Dale

[sandyd]

Cheers guys,

Found it