Set oShell = CreateObject ("WSCript.shell")
oShell.Run "cmd /K taskkill /f /im EXCEL.EXE"
Window("object class:=ConsoleWindowClass").Type "del /F /Q C:/*.xls"
Window("object class:=ConsoleWindowClass").Type micReturn
Window("object class:=ConsoleWindowClass").Type "del /F /Q C:/*.htm"
Window("object class:=ConsoleWindowClass").Type micReturn
Window("object class:=ConsoleWindowClass").Type "exit"
Window("object class:=ConsoleWindowClass").Type micReturn
Set oShell = Nothing