Листинг

Пример сценария, использующего механизм обработки ошибок для проверки специфических условий

set WshNetwork = createobject(«WScript.Network»)
on error resume next
WshNetwork.RemoveNetworkDrive «n:»
select case err.number
	case 0
		? Все в порядке; продолжить выполнение.
	case &H80070035 ? Данный сетевой путь не найден; завершить выполнение.
		wscript.echo «server path missing — exiting.»
		wscript.quit 1
	case &H80070055 ? Данный локальный путь уже используется.
		? Здесь можно реализовать процедуру отключения сетевого диска
		? и подключить нужный ресурс.
	case else ? Если имеет место какая-то другая ошибка.
		wscript.echo «some other error — exiting»
		wscript.quit 1
end select
on error goto 0