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,数据库之类的服务