小編給大家分享一下如何使用vbs定時自動備份IIS的WWW日志，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

成都創(chuàng)新互聯(lián)公司公司2013年成立，先為灤州等服務(wù)建站，灤州等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為灤州企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

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)'設(shè)置第一個站點的日志路徑 
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) '將環(huán)境變量轉(zhuǎn)換成字符串 
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”進(jìn)行刪除") 
if inputifdel="YES" then 
fso.DeleteFile (logfiledir&"ex"&inputtime&"*") 
MsgBox "刪除文件成功" 
else 
MsgBox "文件已保留" 
end if 
next 
MsgBox "備份所有的日志文件成功，嘿嘿"

以上是“如何使用vbs定時自動備份IIS的WWW日志”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

當(dāng)前文章：如何使用vbs定時自動備份IIS的WWW日志-創(chuàng)新互聯(lián)
分享網(wǎng)址：http://weahome.cn/article/hjejs.html