diff --git a/CLIENT_DATA/browserkill.vbs b/CLIENT_DATA/browserkill.vbs new file mode 100644 index 0000000..d7a69ea --- /dev/null +++ b/CLIENT_DATA/browserkill.vbs @@ -0,0 +1,33 @@ +Option Explicit +KillBrowsers() + +Sub KillBrowsers() +'Declare variables + Dim i + Dim wmiSvc,WQL,Processes,Process + Dim arrBrowserProcesses(7) + +'Initialize variables + arrBrowserProcesses(0)="iexplore.exe" + arrBrowserProcesses(1)="chrome.exe" + arrBrowserProcesses(2)="firefox.exe" + arrBrowserProcesses(3)="safari.exe" + arrBrowserProcesses(4)="opera.exe" + arrBrowserProcesses(5)="iron.exe" + arrBrowserProcesses(6)="MicrosoftEdge.exe" + + Set wmiSvc = GetObject("winmgmts:\\.\root\cimv2") + For i = 0 To UBound(arrBrowserProcesses) + wql = "SELECT * FROM Win32_Process WHERE Name='" & arrBrowserProcesses(i) & "'" + Set processes = wmiSvc.ExecQuery(wql) + Do While processes.Count > 0 + For Each process In processes + process.Terminate + Next + WScript.Sleep 200 + Set processes = wmiSvc.ExecQuery(wql) + Loop + Next + +End Sub + diff --git a/CLIENT_DATA/delsub32.ins b/CLIENT_DATA/delsub32.ins index 4a4baca..f433426 100644 --- a/CLIENT_DATA/delsub32.ins +++ b/CLIENT_DATA/delsub32.ins @@ -29,6 +29,9 @@ if FileExists($UninstallProgram$) sub_check_exitcode endif +comment "Close the After Install browser window" +Winbatch_taskkill + comment "Delete files" Files_uninstall /32Bit @@ -41,10 +44,11 @@ LinkFolder_uninstall [Winbatch_uninstall_old] "$UninstallProgramOld$" /silent /norestart /SUPPRESSMSGBOXES /nocancel - [Winbatch_uninstall] "$UninstallProgram$" /silent /norestart /SUPPRESSMSGBOXES /nocancel +[Winbatch_taskkill] +cscript //b //nologo %ScriptPath%\browserkill.vbs [Files_uninstall] ; Example for recursively deleting the installation directory: