add browser kill
This commit is contained in:
parent
f41fed60b8
commit
b6352742c2
33
CLIENT_DATA/browserkill.vbs
Normal file
33
CLIENT_DATA/browserkill.vbs
Normal file
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user