系統服務的啓動和停止,禁用 和自動啓動

strComputer = "."

strServername="'Messenger'"
Set services= GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set ServiceObject = services.Get("Win32_Service='" & strServername & "'")

'ServiceObject.StartService'啓動服務
ServiceObject.StopService'停止服務

'ServiceObject.Change(,,,,"Disabled")'禁用服務

'ServiceObject.Change(,,,,"Automatic")'自動啓動服務

'ServiceObject.Change(,,,,"Manual")'手動啓動服務

'這個可以用在啓動iis ,smtp,數據庫之類的服務