ynbIpb
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: $Process="" _ComputerGetProcesses($Process) $otvet="" for $i = 1 to $Process[0][0] $otvet&= $Process[$i][0]&":"&$Process[$i][26]&" ["&$Process[$i][7]&"]"&@CRLF next MsgBox(0,"Process by JSThePatriot (CompInfo.au3)",$otvet) ;=========================================================== Func _ComputerGetProcesses(ByRef $aProcessInfo) Local $colItems, $objWMIService, $objItem Local $cI_Compname = @ComputerName Local $wbemFlagReturnImmediately = 0x10 Local $wbemFlagForwardOnly = 0x20 Dim $aProcessInfo[1][42], $i = 1 $objWMIService = ObjGet("winmgmts:\\" & $cI_Compname & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Process", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then For $objItem In $colItems ReDim $aProcessInfo[UBound($aProcessInfo) + 1][42] $aProcessInfo[$i][0] = $objItem.Name $aProcessInfo[$i][1] = $objItem.CommandLine $aProcessInfo[$i][2] = $objItem.CreationClassName $aProcessInfo[$i][3] = __StringToDate($objItem.CreationDate) $aProcessInfo[$i][4] = $objItem.Description $aProcessInfo[$i][5] = $objItem.CSCreationClassName $aProcessInfo[$i][6] = $objItem.CSName $aProcessInfo[$i][7] = $objItem.ExecutablePath $aProcessInfo[$i][8] = $objItem.ExecutionState $aProcessInfo[$i][9] = $objItem.Handle $aProcessInfo[$i][10] = $objItem.HandleCount $aProcessInfo[$i][11] = $objItem.KernelModeTime $aProcessInfo[$i][12] = $objItem.MaximumWorkingSetSize $aProcessInfo[$i][13] = $objItem.MinimumWorkingSetSize $aProcessInfo[$i][14] = $objItem.OSCreationClassName $aProcessInfo[$i][15] = $objItem.OSName $aProcessInfo[$i][16] = $objItem.OtherOperationCount $aProcessInfo[$i][17] = $objItem.OtherTransferCount $aProcessInfo[$i][18] = $objItem.PageFaults $aProcessInfo[$i][19] = $objItem.PageFileUsage $aProcessInfo[$i][20] = $objItem.ParentProcessId $aProcessInfo[$i][21] = $objItem.PeakPageFileUsage $aProcessInfo[$i][22] = $objItem.PeakVirtualSize $aProcessInfo[$i][23] = $objItem.PeakWorkingSetSize $aProcessInfo[$i][24] = $objItem.Priority $aProcessInfo[$i][25] = $objItem.PrivatePageCount $aProcessInfo[$i][26] = $objItem.ProcessId $aProcessInfo[$i][27] = $objItem.QuotaNonPagedPoolUsage $aProcessInfo[$i][28] = $objItem.QuotaPagedPoolUsage $aProcessInfo[$i][29] = $objItem.QuotaPeakNonPagedPoolUsage $aProcessInfo[$i][30] = $objItem.QuotaPeakPagedPoolUsage $aProcessInfo[$i][31] = $objItem.ReadOperationCount $aProcessInfo[$i][32] = $objItem.ReadTransferCount $aProcessInfo[$i][33] = $objItem.SessionId $aProcessInfo[$i][34] = $objItem.Status $aProcessInfo[$i][35] = $objItem.ThreadCount $aProcessInfo[$i][36] = $objItem.UserModeTime $aProcessInfo[$i][37] = $objItem.VirtualSize $aProcessInfo[$i][38] = $objItem.WindowsVersion $aProcessInfo[$i][39] = $objItem.WorkingSetSize $aProcessInfo[$i][40] = $objItem.WriteOperationCount $aProcessInfo[$i][41] = $objItem.WriteTransferCount $i += 1 Next $aProcessInfo[0][0] = UBound($aProcessInfo) - 1 If $aProcessInfo[0][0] < 1 Then SetError(1, 1, 0) EndIf Else SetError(1, 2, 0) EndIf EndFunc ;_ComputerGetProcesses Func __StringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & "/" & _ StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _ & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2)) EndFunc ;__StringToDate Function created by SvenP Modified by JSThePatriot | | Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 20:41 26-05-2009 | Исправлено: ynbIpb, 16:41 28-05-2009 |
|