Войти

Показать полную графическую версию : [решено] Обработка команды в CMD через VBS


KaKTuZ49
09-12-2011, 15:25
Доброго времени суток.
Вопрос:
есть eventquery.vbs(Windows 2003), которая работает с логами системы. У меня есть запрос:

cscript EVENTQUERY.vbs /FI "Type eq warning and datetime eq 12/01/11,00:00:01AM-12/01/11,11:59:59PM" /v> c:/warning.txt

Необходимо ее запустить через VBS.

Использую вот так:

Set objShell = CreateObject("WScript.Shell")
Set OBJ1 = objShell.Exec("cscript EVENTQUERY.vbs /FI " & chr(34) & "Type eq error and datetime eq " & Month(date) & "/" & day(date) & "/" & year(date) & "00:00:01AM-" & Month(date) & "/" & day(date) & "/" & year(date) & ",11:59:59PM" & chr(34) & " /v> c:/error.txt")
WScript.Sleep 1000
set obj1 = nothing

В чем ошибка? Помогите пожалуйста.
PS.
Пробовал кавычки двойные убрать.
Пробовал написать полный адрес
....cscript c:\windows\system32\EVENTQUERY.vbs /FI ...."

megaloman
09-12-2011, 19:30
Set OBJ1 = objShell.Exec("CMD /Q /C cscript EVENTQUERY.vbs /FI ""Type eq warning and datetime eq 12/01/11,00:00:01AM-12/01/11,11:59:59PM"" /v >c:\warning.txt")

KaKTuZ49
12-12-2011, 14:37
Спасибо.
Доделал до конца с вашей помощью вот так:

Set args = WScript.arguments
If args.count <> 0 Then
For i = 0 To args.Count - 1
MsgBox args.item(i)
Next
End If
Set args = nothing
Set objShell = CreateObject("WScript.Shell")
Set OBJ1 = objShell.Exec("CMD /Q /C cscript c:/windows/system32/EVENTQUERY.vbs /FI ""Type eq warning and datetime eq " & Month(date) & "/" & day(date) & "/" & year(date) & ",12:00:00AM-" & Month(date) & "/" & day(date) & "/" & year(date) & ",11:59:59PM"" /v > c:\serverSCRIPT\warning.txt")
Set OBJ2 = objShell.Exec("CMD /Q /C cscript c:/windows/system32/EVENTQUERY.vbs /FI ""Type eq error and datetime eq " & Month(date) & "/" & day(date) & "/" & year(date) & ",12:00:00AM-" & Month(date) & "/" & day(date) & "/" & year(date) & ",11:59:59PM"" /v > c:\serverSCRIPT\error.txt")
WScript.Sleep 1000
set obj2 = nothing
set obj1 = nothing




© OSzone.net 2001-2012