close brwoser windows
This commit is contained in:
parent
1c64bb9de2
commit
2c313497a9
|
@ -5,7 +5,7 @@ Sub KillBrowsers()
|
||||||
'Declare variables
|
'Declare variables
|
||||||
Dim i
|
Dim i
|
||||||
Dim wmiSvc,WQL,Processes,Process
|
Dim wmiSvc,WQL,Processes,Process
|
||||||
Dim arrBrowserProcesses(7)
|
Dim arrBrowserProcesses(8)
|
||||||
|
|
||||||
'Initialize variables
|
'Initialize variables
|
||||||
arrBrowserProcesses(0)="iexplore.exe"
|
arrBrowserProcesses(0)="iexplore.exe"
|
||||||
|
@ -15,6 +15,7 @@ Sub KillBrowsers()
|
||||||
arrBrowserProcesses(4)="opera.exe"
|
arrBrowserProcesses(4)="opera.exe"
|
||||||
arrBrowserProcesses(5)="iron.exe"
|
arrBrowserProcesses(5)="iron.exe"
|
||||||
arrBrowserProcesses(6)="MicrosoftEdge.exe"
|
arrBrowserProcesses(6)="MicrosoftEdge.exe"
|
||||||
|
arrBrowserProcesses(7)="FreeStudioManager.exe"
|
||||||
|
|
||||||
Set wmiSvc = GetObject("winmgmts:\\.\root\cimv2")
|
Set wmiSvc = GetObject("winmgmts:\\.\root\cimv2")
|
||||||
For i = 0 To UBound(arrBrowserProcesses)
|
For i = 0 To UBound(arrBrowserProcesses)
|
||||||
|
|
Loading…
Reference in New Issue