Set WshShell = WScript.CreateObject("WScript.Shell")
'kill app 'add kill here
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'PStart.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
'run app
WshShell.Run "PStart.exe"
'ctrl alt S
' Wait for 1 seconds dimm time for loading
WScript.Sleep 400
'CTRL ALT S
WshShell.SendKeys "^%{s}"
WScript.Quit