Excel宏检查后台电源外壳脚本

你能帮我写一个excel宏来检查；计算机中是否正在运行后台Power Shell脚本

谢谢， 阿内什

---

（）

通常人们会发布他们已经编写和尝试过的代码。请阅读

Sub IsPowerShellRunning()
    Debug.Print IsProcessRunning("powershell.exe")
End Sub

Function IsProcessRunning(process As String) as Boolean
    Dim objList As Object

    Set objList = GetObject("winmgmts:") _
        .ExecQuery("select * from win32_process where name='" & process & "'")
    If objList.Count > 0 Then
        IsProcessRunning = True
    Else
        IsProcessRunning = False
    End If

End Function