rem 重启服务命令
rem 复制下述语句，并存为YumServer.vbs
rem 在YumServer.vbs同目录下创建一个yumServer.txt文件，并将服务名写入该文件中，每个服务名单独一行，不要有空行。
rem 再将YumServer.vbs文件加入计划任务，让计划任务定制执行YumServer.vbs；这样就能定时重启指定服务了。
rem 本程序是静默执行的，不会有被操作员关闭的风险。
option explicit
dim fso, file, ysName
dim objShell, result
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile("yumServer.txt", 1, True)
set objShell = CreateObject("wscript.shell")
do while file.atendofline<>True
ysName = file.readline()
dim wmi, svrs, s, res, err_info
set wmi = GetObject("winmgmts:root/cimv2" )
set svrs = wmi.ExecQuery("select * from win32_Service where Name='"+ysName+"'")
for each s in svrs
if s.state="Running" then
call objShell.Run("cmd.exe /C net stop " & ysName, 0, True)
end if
call objShell.Run("cmd.exe /C net start " & ysName, 0, True)
next
loop
set fso = nothing
set objShell = nothing
易石服务名称获取参考： 如何查看服务名称，服务对应的文件名称？
