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