欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

用vbs清空iis log 中自己登录ip的记录

程序员文章站 2022-04-29 09:13:26
option explicit  dim sourcefile,ipaddress,objargs const destfile="...
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