无法通过VBScript终止Windows 8.1中的进程

我正在使用下面的代码终止应用程序的所有实例，例如记事本。但它并没有在Windows8.1（32位操作系统）中执行。它在Windows7（64位操作系统）和Windows10（32位操作系统）上运行良好。谁能帮我把这个处理掉吗

分析：

Function KillAll1(ProcessName)
    Dim objWMIServicde, colProcess
    Dim strComputer, strList, p
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
    Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name like '" & ProcessName & "'")
    For Each objProcess In colProcess
        objProcess.Terminate             
    Next
End Function

KillAll1("notepad.exe")

对于colProcess中的每个OBJ进程，

行失败

即使在下面的代码中引入该行，它也会失败：
Set objProcess=GetObject（“winmgmts:root\cimv2:Win32\u进程”）

代码：

Function KillAll1(ProcessName)
    Dim objWMIServicde, colProcess
    Dim strComputer, strList, p
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")
    Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name like '" & ProcessName & "'")
    For Each objProcess In colProcess
        objProcess.Terminate             
    Next
End Function

KillAll1("notepad.exe")

代码“失败”的确切程度如何？你有错误吗？它说了什么？代码“失败”的确切程度如何？你有错误吗？上面说什么？