婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 清空iis log 中自己登錄ip的vbs

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

熱門標簽:金昌電話機器人價格 個人可以辦理400電話么 怎么在地圖標注自己 武夷山旅游地圖標注 外呼系統API接口 萊西電子地圖標注 縣域地圖標注打印店 修改地圖標注 鳳臺百度地圖標注店
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

標簽:赤峰 涼山 清遠 南京 邢臺 通遼 楚雄 上海

巨人網絡通訊聲明:本文標題《清空iis log 中自己登錄ip的vbs》,本文關鍵詞  清空,iis,log,中,自己,登錄,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《清空iis log 中自己登錄ip的vbs》相關的同類信息!
  • 本頁收集關于清空iis log 中自己登錄ip的vbs的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 杭锦旗| 抚松县| 开鲁县| 宁国市| 崇左市| 甘肃省| 兖州市| 南和县| 五华县| 博野县| 黄陵县| 义乌市| 阿图什市| 凤翔县| 揭西县| 桂平市| 莲花县| 金沙县| 怀柔区| 靖边县| 桐乡市| 云霄县| 尚志市| 屏东市| 灵山县| 喀什市| 田阳县| 罗源县| 津南区| 永安市| 隆昌县| 柘城县| 逊克县| 富阳市| 韩城市| 璧山县| 大石桥市| 韶关市| 澎湖县| 惠水县| 西盟|