Bump

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
+

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: