[megaloman]

Код:

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]

Спасибо.
Доделал до конца с вашей помощью вот так:

Код:

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