主頁 > 知識(shí)庫(kù) > 用vbs清空iis log 中自己登錄ip的記錄

用vbs清空iis log 中自己登錄ip的記錄

熱門標(biāo)簽:外呼系統(tǒng)說話聲音小怎么辦 墨西哥地圖標(biāo)注app 外呼系統(tǒng)群 天津智能外呼系統(tǒng)排名 上海辦理400電話選號(hào) 智云億呼電話機(jī)器人 機(jī)器人打電銷適用于美業(yè)嗎 龍巖400電話申請(qǐng) 企業(yè)400電話辦理價(jià)錢低
Option Explicit 
Dim sourcefile,ipaddress,objargs

const destfile="tempfile"
Const ForWriting = 2

Dim Text
Dim fso,objNet,ServiceObj
Dim txtStream, txtStreamOut 

Set objArgs = WScript.Arguments 
If objArgs.Count = 2 Then 
sourcefile=objArgs(0)
ipaddress=objargs(1)
Else
wscript.echo "Parameter Error"+ vbcrlf
wscript.Echo "USAGE:KillLog.vbs LogFileName YourIP."
wscript.Quit 1
End If


Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists (sourcefile) then
Set objNet = WScript.CreateObject( "WScript.Network" )
Set ServiceObj = GetObject("WinNT://"  objNet.ComputerName  "/w3svc")
Set objNet=nothing
ServiceObj.stop
wscript.sleep 6000
Set txtStream = fso.OpenTextFile(sourcefile) 
Set txtStreamOut = fso.OpenTextFile(destfile, ForWriting, True)
Do While Not (txtStream.atEndOfStream) 
Text = txtStream.ReadLine 
if instr(Text,ipaddress)=0 then
txtStreamOut.WriteLine Text 
end if
Loop

Set txtStream = Nothing 
Set txtStreamOut = Nothing

WScript.Echo "The log file-- "  sourcefile " has cleaned your IP!"
Else
WScript.Echo "The Log file-- "  sourcefile  " has not found!"
Wscript.quit
End If
fso.Copyfile destfile, sourcefile
fso.deletefile destfile
Set fso=Nothing
ServiceObj.start
Set ServiceObj = Nothing

標(biāo)簽:青島 麗水 承德 錫林郭勒盟 齊齊哈爾 鄂爾多斯 阜新 黃山

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《用vbs清空iis log 中自己登錄ip的記錄》,本文關(guān)鍵詞  用,vbs,清空,iis,log,中,自己,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用vbs清空iis log 中自己登錄ip的記錄》相關(guān)的同類信息!
  • 本頁收集關(guān)于用vbs清空iis log 中自己登錄ip的記錄的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章