Обработка команды в CMD через VBS
Доброго времени суток.
Вопрос:
есть 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 ...." |
Код:
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")
|
Спасибо.
Доделал до конца с вашей помощью вот так:
Код:
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
|
Время: 19:26.
© OSzone.net 2001-
