定时任务 tomcat
on error resume NextDim a ,sRunTime,aTime,iHour,iMinute
a = True
sRunTime = "15:37"
aTime = Split(sRunTime, ":")
iHour = CInt(aTime(0))
iMinute = CInt(aTime(1))
Do While a
If (Hour(Now) = iHour) And (Minute(Now) = iMinute) Then
set WshShell = WScript.CreateObject( "WScript.Shell ")
set fs =createobject("scripting.filesystemobject")
WshShell.Run( "net stop Tomcat6 ")
WScript.Sleep(1000*3)
set ts =fs.opentextfile("c:\22.txt",8,true)
ts.write "start"
ts.write "-------error time:"
ts.write now
ts.writeblanklines 2
ts.close
End If
loop
Option Explicit
On Error Resume Next
Dim sProgramme, sRunTime, aTime, iHour, iMinute, oShell
sProgramme = "E:\22.vbs" '------指定程序路径
sRunTime = "6:20" '------指定运行时间
aTime = Split(sRunTime, ":")
iHour = CInt(aTime(0))
iMinute = CInt(aTime(1))
Do While True
If (Hour(Now) = iHour) And (Minute(Now) = iMinute) Then
Set oShell = CreateObject("WScript.Shell")
oShell.Run sProgramme, 1, False
Set oShell = Nothing
Exit Do
End If
WSH.Sleep 1000
Loop
页:
[1]