execvbs.vbs

mysql备份程序,很好很强大,欢迎使用

'=============================================================================
'要执行的时间
'时间格式：小时：分钟： 秒
'在下面的MyArray()数组里设置执行的时间，一天执行的次数依据设定而执行，次数不限
'=============================================================================
Dim MyArray(3)
	MyArray(0) = "16:05:00"
	MyArray(1) = "16:06:00"
	MyArray(2) = "16:07:00"
	MyArray(3) = "16:08:00"
	
Dim L,U
	L = LBound(MyArray)
	U = UBound(MyArray)

'备份批处理的路径
Dim datPath
	datPath = "d:\MysqlBackUp.bat"

Dim Exec 
	Exec = 0
	
Set shell = Wscript.createobject("wscript.shell")

Dim userTime,sysTime,nowTime

While Exec < 1
	 '==================================================
	 ' 死循环永不停止
	 ' 59 秒后执行一次
	 '==================================================
	 nowTime = Time() 
	 sysTime = Hour(nowTime) & Minute(nowTime)	
	 For i = L To U
	 		userTime = Hour(MyArray(i)) & Minute(MyArray(i))
	 		
			If (sysTime = userTime) Then				
					shell.run (datPath)
					'===================================
					' 基于不会在一个小时内备份2次的假设
					' 暂停一个小时
					'===================================
					Wscript.sleep (3600000)
			End If
	 Next

	'暂停59秒 
	Wscript.sleep (59000)	
	
Wend 

Dim Warn
	Warn = MsgBox ("备份程序已异常退出."&vbCrLf&"请联系管理员!!", 64, "Warning")