Zugriff auf WMI in Excel seid Udate Fehlerhaft

Hallo liebe Community

Bin mit nicht sicher, obi ch hier richtig bin, aber ich versuch es einfach mal.

Ich greife in einem Excel VBA Script auf das WMI Objekt zu, um Programme zu beenden.

Diese Funktion läuft so seid ca. einem halben Jahr.

Seid einem Windows10 Update von hetue morgen (KB40321888) funktioniert dies nicht mehr und endet mit dem Fehler "Syntax Error"



Das Update ändert mein System auf folgende Version:

Edition: Windows 10 Pro 64 bit

Version 1703

Betriebssystembuild: 15063.502



Hier das Script:

Sub beenden()

If Programmbeenden "Thunderbird" = True then ...

end if

exit sub





'externes Programm beenden
Public Function ProgrammBeenden(strProgrammName As String) As Boolean
Dim objWMI As Object
Dim objProc As Object
Dim objProcessList As Object
Dim objProcess As Object

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objProc = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strProgrammName & ".exe'")
Set objProcessList = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & strProgrammName & ".exe'")
If objProc.Count > 0 Then
If MsgBox(strProgrammName & " muss beendet werden.", vbYesNo) = vbNo Then
ProgrammBeenden = False
Exit Function
End If
For Each objProcess In objProcessList
Call objProcess.Terminate(0)
Next
End If
Set objProcessList = Nothing
Set objWMI = Nothing
Set objProc = Nothing
ProgrammBeenden = True
End Function


Kann sich hier jemand einen Reim draus machen?