上一篇: 
下一篇: 
重启windows服务的vbs脚本!
作者:admin 日期:2010-07-18
有一些服务运行一段时间后占用内存变的很大.这个可能是程序的bug,当然解决办法出了等更新外就只能一段时间重起一次服务!
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
while true
'RestServer("bbvod.netbar.clientservice")
RestServer("QyMain")
'RestServer("NetbarUpdate")
WScript.Sleep(1000*60*60*24) '24小时一次
wend
function RestServer(Server)
objWMIService.ExecMethod "Win32_Service.Name='"&Server&"'", "StopService"
Wscript.Sleep 20000
objWMIService.ExecMethod "Win32_Service.Name='"&Server&"'", "StartService"
RestServer=0
end function
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
while true
'RestServer("bbvod.netbar.clientservice")
RestServer("QyMain")
'RestServer("NetbarUpdate")
WScript.Sleep(1000*60*60*24) '24小时一次
wend
function RestServer(Server)
objWMIService.ExecMethod "Win32_Service.Name='"&Server&"'", "StopService"
Wscript.Sleep 20000
objWMIService.ExecMethod "Win32_Service.Name='"&Server&"'", "StartService"
RestServer=0
end function
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 0 | 引用: 0 | 查看次数: 74
发表评论
