怎么把它以ListView的形式列表出来呢？

xxxlll2007

; 生成于 AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Service", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      $Output = $Output & "DisplayName: " & $objItem.DisplayName
      $Output = $Output & "PathName: " & $objItem.PathName
      $Output = $Output & "StartMode: " & $objItem.StartMode
      $Output = $Output & "StartName: " & $objItem.StartName
      $Output = $Output & "State: " & $objItem.State
      $Output = $Output & "Status: " & $objItem.Status
      $Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName
      $Output = $Output & "SystemName: " & $objItem.SystemName
      if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI 输出","No WMI Objects Found for class: " & "Win32_Service" )
Endif


Func WMIDateStringToDate($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



从wmi 中生成出来的 ！

xxxlll2007

告诉给一个事例也ok

rchockxm

2# xxxlll2007

像這樣嗎?

; 生成于 AutoIt Scriptomatic
#include <Array.au3>

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Service", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
Dim $Array[1] = ["WMI Test"]

If IsObj($colItems) then
   For $objItem In $colItems
      ;$Output = $Output & "DisplayName: " & $objItem.DisplayName
      ;$Output = $Output & "PathName: " & $objItem.PathName
      ;$Output = $Output & "StartMode: " & $objItem.StartMode
      ;$Output = $Output & "StartName: " & $objItem.StartName
      ;$Output = $Output & "State: " & $objItem.State
      ;$Output = $Output & "Status: " & $objItem.Status
      ;$Output = $Output & "SystemCreationClassName: " & $objItem.SystemCreationClassName
      ;$Output = $Output & "SystemName: " & $objItem.SystemName
      ;if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      ;$Output=""
          _ArrayAdd($Array, $objItem.DisplayName)
          _ArrayAdd($Array, $objItem.PathName)
          _ArrayAdd($Array, $objItem.StartMode)
          _ArrayAdd($Array, $objItem.StartName)
          _ArrayAdd($Array, $objItem.State)
          _ArrayAdd($Array, $objItem.Status)
          _ArrayAdd($Array, $objItem.SystemCreationClassName)
          _ArrayAdd($Array, $objItem.SystemName)
          _ArrayDisplay($Array, "$Array")
          ExitLoop
   Next
Else
   Msgbox(0,"WMI ?出","No WMI Objects Found for class: " & "Win32_Service" )
Endif


Func WMIDateStringToDate($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

xxxlll2007

谢谢你的热心帮助！我讲的类似如360 的那种SERVER 分布！如可以还请你再帮我一下！