VBSでアプリケーションを強制終了

Excelを落とす場合

for each Process in _
 GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='EXCEL.EXE'")
 Process.terminate
Next

ネタ元