Могу ли я получить VBScript, чтобы показать дружеское сообщение об ошибке?

Question

Я устанавливаю сетевые принтеры, используя vbscript, и я хочу показать дружественную ошибку, если очередь не существует или сервер печати недоступен, могу ли я сделать это с VBScript?Мой код ниже.

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

Большое спасибо за помощь

Стивен

Answer 1

Добавьте строку:

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

Перед вашим кодом

и затем выполните:

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

После вашего кода

Обычно лучше попытаться сохранить количество строк кода между On Error Resume Next и On Error GoTo 0 как можно меньшим, поскольку редко бывает полезно игнорировать ошибки.