Wscript停止sql服务

Wscript停止sql服务
在vpc里安装了vs2010，用的时候感觉虚机变得慢了不少，
主要虚机了还有sharepoint2007,我发现sql服务占用内存不少，
为了启动服务和停止服务方便，写个vbs脚本记下了
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='MSSQLSERVER'")
For each objService in colServiceList
Wscript.Echo objService.Name & " " & objService.DisplayName
Wscript.Echo objService.State
errReturn = objService.StopService()
Next

运行结果