VBS/WSH/JS - [решено] Как создать лог-файл, если при запуске скрипта произошла ошибка?

Iska · Отправлено: **18:04, 09-02-2015** | #2

Цитата V!RTuE:

К примеру, при отсутствии файла, который должен быть прикреплен, выдает ошибку: »

А Вы не оставляйте это на волю случая, проверяйте существование файла, который должен быть прикреплён, внутри скрипта.

Цитата V!RTuE:

Вот как сделать, чтобы всю эту информацию записать в лог-файл? »

Запускайте скрипт посредством «cscript.exe», а не «wscript.exe», и перенаправьте вывод потока ошибок в файл.

P.S. Логику:

Цитата V!RTuE:

Код:

Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFSO = Nothing

»

не понял

.

V!RTuE · Отправлено: **18:34, 09-02-2015** | #3

Цитата Iska:

Запускайте скрипт посредством «cscript.exe», а не «wscript.exe», и перенаправьте вывод потока ошибок в файл. »

а как это правильно делается? Так?

Код:

cscript "С:\sendmail.vbs">"C:\my.log"

Если да, то он пишет только это:

HTML код:

Microsoft (R) Windows Script Host Version 5.8
Copyright (C) Microsoft Corporation. All rights reserved.

C:\cons.exe

Если убрать в коде 4 строки (про которые ниже написал), то запишет без C:\cons.exe

Цитата Iska:

P.S. Логику:
Цитата V!RTuE:
Код:
Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFSO = Nothing
»
не понял . »

я неправильно скопировал)) Вот что там у меня. Хотя я уже сам не помню зачем оно надо. Без этих строк тоже всё работает)))

Код:

echo Dim objFSO
echo Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
echo WScript.Echo objFSO.BuildPath(objFSO.GetParentFolderName(WScript.ScriptFullName), "cons.exe")
echo Set objFSO = Nothing

Iska · Отправлено: **18:57, 09-02-2015** | #4

Цитата V!RTuE:

а как это правильно делается? Так? »

Нет. Так Вы перенаправляете только стандартный поток вывода («stdout»), а надо — поток ошибок («stderr»):

Код:

cscript.exe "С:\sendmail.vbs" 2>"C:\my.log"

тогда поток вывода пойдёт по-прежнему на консоль, а поток ошибок будет перенаправлен в файл.

V!RTuE · Отправлено: **19:19, 09-02-2015** | #5

Цитата Iska:

А Вы не оставляйте это на волю случая, проверяйте существование файла, который должен быть прикреплён, внутри скрипта. »

у меня основной код в батнике. И там проверка уже реализована на наличие файлов. Вот пример:

Код:

SET f=%~dp0
if exist "%f%START.KEY" echo objEmail.AddAttachment "%f%START.KEY">>"%f%ARCHIVE\sendmail.vbs"

Просто отправка почты у меня реализована созданием и запуском скрипта из батника

А вообще я не удачный пример привел на счет отсутствия файла. Основная причина, по которой мне надо вести лог ошибки, это когда вообще скрипт не может отработать нормально. Вот например такая ошибка на некоторых компьютерах возникает:

Скрытый текст

И пока не знаю как она решается ((

Iska · Отправлено: **20:01, 09-02-2015** | #6

Цитата V!RTuE:

у меня основной код в батнике. И там проверка уже реализована на наличие файлов. Вот пример: »

Я бы предпочёл делать сие непосредственно в скрипте. И вообще целиком перейти на WSH (или PoSH) с пакетных файлов, нежели пользовать подобную «солянку».

Цитата V!RTuE:

И пока не знаю как она решается (( »

Например, так:

Код:

Option Explicit

Dim objMessage


On Error Resume Next
Set objMessage = WScript.CreateObject("CDO.Message")

If Err.Number = 0 Then
	On Error Goto 0
	
	'…
	'…
	'…
	
	Set objMessage = Nothing
Else
	Err.Clear
	On Error Goto 0
	
	WScript.Echo "Can't create object [CDO.Message]"
	WScript.Quit 1
End If

WScript.Quit 0

К сожалению, в VBScript нет удобного механизма «try… catch… finally», наличествующего в JScript.

P.S. При использовании механизма перенаправления потока ошибок, описанного выше, стоит писать именно туда, т.е., не:

Код:

WScript.Echo "Can't create object [CDO.Message]"

а:

Код:

WScript.StdErr.WriteLine "Can't create object [CDO.Message]"

V!RTuE · Отправлено: **22:12, 09-02-2015** | #7

Цитата Iska:

Я бы предпочёл делать сие непосредственно в скрипте. И вообще целиком перейти на WSH (или PoSH) с пакетных файлов, нежели пользовать подобную «солянку». »

Может так и лучше будет, но я не программист (юрист по образованию). Для меня и батники не так легко даются. Ну а во-вторых уж слишком много действий выполняет батник (почти 800 строк кода). А в-третьих, надо сделать универсальным, чтобы работало на любой ОС (от Win 2000 до серверных). Если интересно, и можете подсказать как лучше реализовать, то полную версию батника могу выслать в лс.

Цитата:

Например, так:

Скрытый текст

Option Explicit

Dim objMessage

On Error Resume Next
Set objMessage = WScript.CreateObject("CDO.Message")

If Err.Number = 0 Then
On Error Goto 0

'…
'…
'…

Set objMessage = Nothing
Else
Err.Clear
On Error Goto 0

WScript.Echo "Can't create object [CDO.Message]"
WScript.Quit 1
End If

WScript.Quit 0

а тут вообще не понял куда свой код вставлять (( Знаний по VBS практически нет у меня

Iska · Отправлено: **02:22, 10-02-2015** | #8

Цитата V!RTuE:

А в-третьих, надо сделать универсальным, чтобы работало на любой ОС (от Win 2000 до серверных). »

Тогда только WSH. И всё равно — набор классов Wbem и их свойств и методов различен для разных ОС.

Цитата V!RTuE:

то полную версию батника могу выслать в лс. »

Не стоит.

Цитата V!RTuE:

а тут вообще не понял куда свой код вставлять (( Знаний по VBS практически нет у меня »

Надо учиться. Ваш код должен находиться там, где закомментированные многоточия. Но просто «взять и вставить» не получится.

V!RTuE · Отправлено: **07:39, 10-02-2015** | #9

Цитата Iska:

cscript.exe "С:\sendmail.vbs" 2>"C:\my.log" »

Возник еще один вопрос. В лог пишется такая информация:

Код:

C:\sendmail.vbs(16, 1) CDO.Message.1: The system cannot find the file specified.

а возможно чтобы еще и записывало "Code: 80070002"? Он ведь есть во всплывающем окне.

Iska · Отправлено: **09:42, 10-02-2015** | #10

Цитата V!RTuE:

а возможно чтобы еще и записывало "Code: 80070002"? Он ведь есть во всплывающем окне. »

Нет. Только по вышеописанной методике самому обрабатывать ошибки и писать в stderr любое содержимое из объекта «Err».

Ещё раз повторю: сделайте проверку существования файла в самом скрипте. Это будет проще.