Question

vbs停止服务

写了vbs启动服务如下
Option explicit '指明所有变量必须先定义后使用dim srvManager '服务管理器dim allSrvList '当前系统所有服务dim tarService '将要操作的系统服务dim opComputer '将要操作的目标主机set opComputer = "." '.代表本地计算机set srvManager=getobject("winmgmts:\\" & opComputer)set allSrvList=srvManager.instancesof("win32_service")dim opService '临时变量,用于遍历系统服务tarService="" '对要操作的服务设值for each opService in allSrvListif opService.name=tarService thenopService.stopservice() '停止服务'opService.changestartmode("Automatic") '设置服务启动模式:自动'opService.changestartmode("Manual") '设置服务启动模式:手动'opService.changestartmode("Disabled") '设置服务启动模式:禁用'opService.startservice() '启动服务end ifNext
可是最后没有自动停止服务，而是弹出如下效果，如何让服务自动停止

Answer 1

真搞不懂，在网上随便找点代码，还没弄明白怎么回事，就随便执行。错误出的可笑。
题主：你看看你图片上的服务名称是什么啊
图片上的服务名称是 osppsvc
你代码里要停止的服务名称是什么？
>>tarService="" '对要操作的服务设值
名称是空的啊，名称空的当然不执行了。懂？

Answer 2

Option explicit
dim srvManager
dim allSrvList
dim tarService
dim opComputer
set opComputer = "."
set srvManager=getobject("winmgmts:\\" & opComputer)
set allSrvList=srvManager.instancesof("win32_service")
dim opService
tarService="osppsvc"
for each opService in allSrvList
end if
Next