易动轩

Private Sub Command1_Click()
    On Error Resume Next
    Dim sComputerName, WMI_Obj, WMI_ObjProps, ObjClsItem
    sComputerName = "."
    Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
    Set WMI_ObjProps = WMI_Obj.ExecQuery("Select * from Win32_Process", , 48)
    For Each ObjClsItem In WMI_ObjProps
        If UCase(ObjClsItem.Caption) = "QQ.EXE" Then
            List1.AddItem "Caption: " & ObjClsItem.Caption
            List1.AddItem "CommandLine: " & ObjClsItem.CommandLine
            List1.AddItem "CreationClassName: " & ObjClsItem.CreationClassName
            List1.AddItem "CreationDate: " & ObjClsItem.CreationDate
            List1.AddItem "CSCreationClassName: " & ObjClsItem.CSCreationClassName
            List1.AddItem "CSName: " & ObjClsItem.CSName
            List1.AddItem "Description: " & ObjClsItem.Description
            List1.AddItem "ExecutablePath: " & ObjClsItem.ExecutablePath
            List1.AddItem "ExecutionState: " & ObjClsItem.ExecutionState
            List1.AddItem "Handle: " & ObjClsItem.Handle
            List1.AddItem "HandleCount: " & ObjClsItem.HandleCount
            List1.AddItem "InstallDate: " & ObjClsItem.InstallDate
            List1.AddItem "KernelModeTime: " & ObjClsItem.KernelModeTime
            List1.AddItem "MaximumWorkingSetSize: " & ObjClsItem.MaximumWorkingSetSize
            List1.AddItem "MinimumWorkingSetSize: " & ObjClsItem.MinimumWorkingSetSize
            List1.AddItem "Name: " & ObjClsItem.Name
            List1.AddItem "OSCreationClassName: " & ObjClsItem.OSCreationClassName
            List1.AddItem "OSName: " & ObjClsItem.OSName
            List1.AddItem "OtherOperationCount: " & ObjClsItem.OtherOperationCount
            List1.AddItem "OtherTransferCount: " & ObjClsItem.OtherTransferCount
            List1.AddItem "PageFaults: " & ObjClsItem.PageFaults
            List1.AddItem "PageFileUsage: " & ObjClsItem.PageFileUsage
            List1.AddItem "ParentProcessId: " & ObjClsItem.ParentProcessId
            List1.AddItem "PeakPageFileUsage: " & ObjClsItem.PeakPageFileUsage
            List1.AddItem "PeakVirtualSize: " & ObjClsItem.PeakVirtualSize
            List1.AddItem "PeakWorkingSetSize: " & ObjClsItem.PeakWorkingSetSize
            List1.AddItem "Priority: " & ObjClsItem.Priority
            List1.AddItem "PrivatePageCount: " & ObjClsItem.PrivatePageCount
            List1.AddItem "ProcessId: " & ObjClsItem.ProcessId
            List1.AddItem "QuotaNonPagedPoolUsage: " & ObjClsItem.QuotaNonPagedPoolUsage
            List1.AddItem "QuotaPagedPoolUsage: " & ObjClsItem.QuotaPagedPoolUsage
            List1.AddItem "QuotaPeakNonPagedPoolUsage: " & ObjClsItem.QuotaPeakNonPagedPoolUsage
            List1.AddItem "QuotaPeakPagedPoolUsage: " & ObjClsItem.QuotaPeakPagedPoolUsage
            List1.AddItem "ReadOperationCount: " & ObjClsItem.ReadOperationCount
            List1.AddItem "ReadTransferCount: " & ObjClsItem.ReadTransferCount
            List1.AddItem "SessionId: " & ObjClsItem.SessionId
            List1.AddItem "Status: " & ObjClsItem.Status
            List1.AddItem "TerminationDate: " & ObjClsItem.TerminationDate
            List1.AddItem "ThreadCount: " & ObjClsItem.ThreadCount
            List1.AddItem "UserModeTime: " & ObjClsItem.UserModeTime
            List1.AddItem "VirtualSize: " & ObjClsItem.VirtualSize
            List1.AddItem "WindowsVersion: " & ObjClsItem.WindowsVersion
            List1.AddItem "WorkingSetSize: " & ObjClsItem.WorkingSetSize
            List1.AddItem "WriteOperationCount: " & ObjClsItem.WriteOperationCount
            List1.AddItem "WriteTransferCount: " & ObjClsItem.WriteTransferCount
        Exit For
        End If
    Next
End Sub