Спасибо.
Доделал до конца с вашей помощью вот так:
Код:
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
