##t.vbs
set ws=WScript.CreateObject("WScript.Shell")
ws.Run "D:\test\test.bat",0
--
##test.bat
@echo off
wevtutil cl Security /bu:D:\test\b10310_%date:~0,4%%date:~5,2%%date:~8,2%_%time:~0,2%%time:~3,2%%time:~6,2%_%time:~9,2%.evtx
exit
wevtutil cl Application /bu:D:\test\bak\a10306_%date:~0,4%%date:~5,2%%date:~8,2%_%time:~0,2%%time:~3,2%%time:~6,2%_%time:~9,2%.evtx
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c c:\1.bat",0
@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
:begin