vb 获得所有进程

Private Sub Command1_Click()
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set ps = objWMIService.ExecQuery("select * from Win32_Process")
    s = " PID  进程名"
    For Each p In ps
        s = s & vbCrLf & Format(p.ProcessId, "@@@@") & "  " & p.name
        If p.name = "WeChat.exe" Then
            MsgBox "你竟然完微信"
        
        End If
        
    Next
    MsgBox s
End Sub