ipclear.vbs源代码

作者: 桥豆麻袋灬
来源: 51数据库
2021-07-31

复制代码代码如下:

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 