on error resume Next
Dim a
a = True
set WshShell = WScript.CreateObject("WScript.Shell")
Do While a
WshShell.Run("net stop mysql")
'10秒后执行 1000毫秒=1秒
WScript.Sleep(10000)
WshShell.Run("net start mysql")
'2分钟执行一次 1000*60*60*24*7=7天(1秒*60=1分,1分*60=1时,1时*24=1天,1天*7=7天)
WScript.Sleep(1000*60*2)
loop