如何使用vbs定时自动备份IIS的WWW日志

小编给大家分享一下如何使用vbs定时自动备份IIS的WWW日志，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

dim IISCount,IISObject,logfiledir,fso,LogFilePeriods,inputtime,site,sites,i,j,sitename(999),WshShell 'on error resume next set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("scripting.FileSystemObject") set IISCount=GetObject("IIS://localhost/w3svc") sites=0 for each site in IISCount if (site.class="IIsWebServer") then  sitename(sites)=site.name sites=sites+1 end if next MsgBox "IIS中一共" & sites & "个站点，ID分别为：" for j=1 to sites-1 MsgBox sitename(j) next inputtime=inputbox("您要备份哪天的日志？如备份2004-01-01，则输入040101") MsgBox "备份" &inputtime& "天的日志" MsgBox "开始备份.............." for i=0 to sites-1 Set IISOBJect = GetObject("IIS://localhost/w3svc/" & sitename(i))  MsgBox "备份ID=" & sitename(i) &" Sitename=" & IISObject.servercomment &"的站点" logfiledir = IISObject.LogFileDirectory & "w3svc" & sitename(i)'设置第一个站点的日志路径 if (Err.Number<>0) then logfiledir=IISCount.LogFileDirectory Err.clear 'if IISObject.LogFilePeriod=1 then LogFilePeriods="days" 'if IISObject.LogFilePeriod=2 then LogFilePeriods="weeks" 'if IISObject.LogFilePeriod=3 then LogFilePeriods="months" 'if IISObject.LogFilePeriod=4 then LogFilePeriods="hours" 'if IISObject.LogFilePeriod=0 AND IISObject.LogFileTruncateSize=-1 then LogFilePerirods="onefile" 'if IISObject.LogFilePeriod=0 AND IISObject.LogFileTruncateSize>0 then LogFilePerirods="size"&IISObject.LogFileTruncateSize LogFilePeriods=IISObject.LogFilePeriod if (Err.Number<>0) then LogFilePeriods=IISCount.LogFilePeriod Err.clear if (NOT LogFilePeriods=1 AND NOT LogFilePeriods=4) then  MsgBox "对不起，您的日志偶就不给备份，咋地吧" WScript.quit end if if (NOT fso.folderexists("d:backup")) then  MsgBox "the folder d:backup is not exist,now create it" fso.CreateFolder("d:backup") Msgbox "created d:backup succuful" end if if (NOT fso.FolderExists("d:backup"&IISObject.servercomment)) then MsgBox "the folder d:backup" & IISObject.servercomment & " is not exist,now create it" fso.CreateFolder("d:backup" & IISObject.servercomment) MsgBox "created d:backup" & IISObject.servercomment &" succuful" end if MsgBox "now backup the logfiles" logfiledir = WshShell.ExpandEnvironmentStrings(logfiledir) '将环境变量转换成字符串 MsgBox logfiledir fso.Copyfile logfiledir &"ex"&inputtime&"*","d:backup"& IISObject.servercomment if Err.number<>0 then  MsgBox "this site no files" else MsgBox "backup logfiles succuful" end if inputifdel=inputbox("是否删除已备份文件？输入"YES"进行删除") if inputifdel="YES" then fso.DeleteFile (logfiledir&"ex"&inputtime&"*") MsgBox "删除文件成功" else MsgBox "文件已保留" end if next MsgBox "备份所有的日志文件成功，嘿嘿"

以上是"如何使用vbs定时自动备份IIS的WWW日志"这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注行业资讯频道！