Question

批处理或VBS检查服务是否启动

服务器上有几个服务虽然是设的自动，但是不能随系统自动启动。现在想写个批处理，能检查该服务是否已启动，若没有启动就把它启动，若已启动就不处理。要能自己修改检查时间；要是用批处理能不显示黑框最好。服务名称1：ndclient服务名称2：netdetective
这几个是上海垃圾与人公司的垃圾收费软件的垃圾服务。
三楼的高手，我在自己的XP上运行了一下你写的（我的电脑没有那几个垃圾服务），我看了一下进程，find.exe cmd.exe出现好多，加我自己系统的14个进程共计301个。CPU占用100%，内存使用加系统占用80兆的共计789兆。当然只是5秒左右。o(∩_∩)o...哈哈
二楼的高手，我用你的vbs提示o.run batfile,0 这句错误。可能是我的错，麻烦在看一下。

Answer 1

你试试我的吧..应该没问题...

call check_services("ndclient")
call check_services("netdetective")
private sub check_services(name)
on error resume next
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where Name ='"&name&"'")
For Each objService in colListOfServices
if objService.State="Stopped" then
objService.StartService()
end if
Next
end sub