strComputer = "."
Set services= GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set ServiceObject = services.Get("Win32_Service='Messenger'")
'ServiceObject.StartService
ServiceObject.StopService
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=497881