Dim wsh, blnAppRunning If WScript.Arguments.Count <> 1 Then WScript.Echo "Kills all instances of an application. Usage:" & vbCrLf & Ucase(WScript.ScriptName) & " ""Window Title""" & vbCrLf & "Where ""Window Title"" is the complete, beginning, or end title bar text of the application you want to kill." Else Set wsh = CreateObject("Wscript.Shell") blnAppRunning = True Do While blnAppRunning = True blnAppRunning = wsh.AppActivate(WScript.Arguments(0)) If blnAppRunning Then Wscript.Sleep 200 'give time for focus shift wsh.SendKeys "%{F4}" End If WScript.Sleep 500 Loop End If