also kill Windows media player after install

This commit is contained in:
Mario Fetka 2016-08-28 08:36:18 +02:00
parent cdda8f2b89
commit 9b8fae525a

View File

@ -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)="wmplayer.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)