On Error Resume Next
Set fos = CreateObject("Scripting.FileSystemObject")
if fos.fileexists("1.txt") then
Set solFile = fos.openTextFile("1.txt")
do while solFile.AtEndOfStream <> True 
Dim sProgramme, sRunTime, aTime, iHour, iMinute, oShell
sProgramme = "e:\ip.bat" '
sRundate = solfile.readline
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
loop
end if
复制代码