netStartMsql.vbs

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