apache滚动日志,自动重命名的脚本

on error resume next

Dim Fso,f, f1,s,m,AExists,EExists,LogExists,Sh,ELogExists

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Sh=CreateObject("Wscript.Shell")
s=Hour(Now())
if (s>=0 and s<=9) then
   s="0" & s
end if

n=minute(Now())
if (n>=40) then
   Sh.exec("net stop arc_apache_access_file")
   Sh.exec("net stop arc_apache_error_file")
end if
wscript.sleep 15000

select case s
       case 00
           AExists = Fso.fileExists("c:/httplog/access_log.00")
           if AExists=true then
              LogExists=Fso.fileExists("c:/httplog/access_log")
              if LogExists=true then
                 if n>=40 then 
                    set f1=fso.getfile("c:/httplog/access_log")
                    f1.delete
                    wscript.sleep 5000
                    set f1=fso.getfile("c:/httplog/access_log.24")
                    f1.name="access_log"
                 end if
              else
                 set f1=fso.getfile("c:/httplog/access_log.24")
                 f1.name="access_log"
              End if
           End if
           EExists = Fso.fileExists("c:/httplog/error_log.00")
           if EExists=true then
              ELogExists=Fso.fileExists("c:/httplog/error_log")
              if ELogExists=true then
                 if n>=40 then
                    set f1=fso.getfile("c:/httplog/error_log")
                    f1.delete
                    wscript.sleep 5000
                    set f1=fso.getfile("c:/httplog/error_log.23")
                    f1.name="error_log"
                 end if
              else
                   set f1=fso.getfile("c:/httplog/error_log.23")
                   f1.name="error_log"
              End if
          End if
       case 01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23
           t=s-1
           if (s>=0 and s<=9) then
               t="0" & t
           end if
           m="c:/httplog/access_log."&s
           AExists = Fso.fileExists(m)
           if AExists=true then
              LogExists=Fso.fileExists("c:/httplog/access_log")
              if LogExists=true then
                 if n>=40 then
                    set f1=fso.getfile("c:/httplog/access_log")
                    f1.delete
                    wscript.sleep 5000
                    set f1=fso.getfile("c:/httplog/access_log."& t )
                    f1.name="access_log"
                 end if
              else
                   set f1=fso.getfile("c:/httplog/access_log." & t)
                   f1.name="access_log"
              End if
           End if
           EExists = Fso.fileExists("c:/httplog/error_log." & s)
           if EExists=true then
              ELogExists=Fso.fileExists("c:/httplog/error_log")
              if ELogExists=true then
                 if n>=40 then
                    set f1=fso.getfile("c:/httplog/error_log")
                    f1.delete
                    wscript.sleep 5000
                    set f1=fso.getfile("c:/httplog/error_log."& t)
                    f1.name="error_log"
                 end if
              else
                    set f1=fso.getfile("c:/httplog/error_log."& t)
                    f1.name="error_log"
              End if
          End if
End select

if (n>=40) then  
   Sh.exec("net start arc_apache_access_file")
   Sh.exec("net start arc_apache_error_file")
end if