檢查windows服務_Au3



;'Script name : chk_services_A.au3
dim $strComputer
dim $objWMIService
dim $colServices,$objService
dim $errReturnCode
dim $servicename

;' 修改區 ========================
;' 檢查的service name
$servicename = "Telnet"


;'修改區結束=========================
;'=====================================主程式

;' 檢查service name
$strComputer = "."
$objWMIService = ObjGet("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

$colServices = $objWMIService.ExecQuery _
("Select * from Win32_Service where DisplayName = '" & $servicename & "'")

For $objService in $colServices
if "Stopped" = $objService.State then
msgbox ("","","abc")
endif
Next
;'==================================副程式


可以與vbs作比較 http://c9992.blogspot.com/2007/12/windows.html
語法很類似