Close All Browser v2

' ============================
' Title : Close All Browser v2
' Language : VBScript
' Author : A.Kilya
' 19/03/2017 16:00 PM
' ============================

Dim WshShell, oExec, result
Set WshShell = CreateObject("WScript.Shell")
result = Msgbox("Are you sure to close all browser ?",vbYesNo+vbCritical, "Alert")
' condition, Are you sure !
If result = vbNo Then
     Wscript.Quit(0)
End If

WScript.Sleep 1000 ' Wait period in milliseconds
Set oExec = WshShell.Exec("taskkill /f /im ""chrome.exe"" /t")
Set oExec = WshShell.Exec("taskkill /f /im ""iexplore.exe"" /t")
Set oExec = WshShell.Exec("taskkill /f /im ""firefox.exe"" /t")
Set oExec = WshShell.Exec("taskkill /f /im ""Safari.exe"" /t")
Set oExec = WshShell.Exec("taskkill /f /im ""opera.exe"" /t")
Set oExec = WshShell.Exec("taskkill /f /im ""tor.exe"" /t")
Set oExec = WshShell.Exec("taskkill /f /im ""torch.exe"" /t")