[Iska]

Код:

Dim lngErrLevel

lngErrLevel = oWshShell.Run(strComm, 0, True)

If lngErrLevel Then
	With WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\error.pid")
		.Write CStr(lngErrLevel)
		.Close
	End With
End If

Нужно для мониторинга Нагиосом »

Надеюсь, «Нагиос» удаляет этот файл после обработки?

Далее, в одном случае Вы пишете, чтобы файл «создавался», а ниже приводите пример дополнения файла данными (а не создания).