同江政府网,叛逃粤语12,漳州信息网
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
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
网友评论