Листинг

Подпрограмма обработки ошибок StopComputer

Sub WriteError(ByVal itemName, ByVal number, _
 ByVal description)
	? Обработка типовых ошибок.
	? Переменной m_ExitCode присваивается 
переданное число;
 ? выходные данные определяются уровнем 
детализации. При малом
 ? (m_Verbose = 0) itemName записывается
	? в stderr.
	? Если m_Verbose имеет стандартное значение (+1) то просто
	? используется itemName = FAIL #
	? Если m_Verbose = -1, то записывается 
приведенная выше информация
 ? с последующим описательным текстом.
	m_ExitCode = number
	WScript.StdErr.Write itemName
	If m_Verbose = 0 Then
		WScript.StdErr.WriteLine
	Else
		WScript.StdErr.WriteLine « FAILED: « & _
 number
		If m_Verbose = -1 Then _
 WScript.StdErr.WriteLine description
	End If
End Sub