如何使用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日志”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！