¿Puedo obtener vbscript para mostrar un mensaje de error amistoso?

Question

Estoy instalando impresoras de red usando vbscript y quiero mostrar un error amistoso si la cola no existe o el servidor de la impresora no está disponible, ¿puedo hacer esto con VBScript? Mi código está abajo.

Dim net 
Set net = CreateObject("WScript.Network") 
net.AddWindowsPrinterConnection "\\printsrv\HPLaser23" 
net.SetDefaultPrinter "\\printsrv\HPLaser23" 

Muchas gracias por la ayuda

Steven

Answer 1

Añadir la línea:

On Error Resume Next ' the script will "ignore" any errors 

Antes de su código

y luego hacer un:

if Err.Number <> 0 then 
    ' report error in some way 
end if 
On Error GoTo 0 ' this will reset the error handling to normal 

Después de su código

Normalmente es mejor tratar de mantener el número de líneas de código entre la On Error Resume Next y la On Error GoTo 0 a la menor cantidad posible, ya que es rara vez buena para ignorar los errores.