资讯文章

应用
游戏
首页 应用 游戏 资讯
清空iis log 中自己登录ip的vbs 来源:佚名 2004/6/17 12:44:00

3D地图沙盘场景快速设计PS插件

海岛奇兵辅助圈圈助手

红苹果全能点击王

!X3.1翻滚吧DZ论坛 v1.0 绿色版

#7Z(7-Zip简化版) 0.9.1 英文官方安装版
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


最新精选推荐

推荐


怪奇物语汉化破解版

死神来了

花千骨正版

部落冲突:皇室战争九游版(必送30元)

神魔

微信分组模块xposed插件

刷机精灵

应用宝电脑版(腾讯手机管家PC版)

网易有道词典

飞信交友