当前位置： 移动技术网 > IT编程>脚本编程>VBScript > ipclear.vbs源代码

ipclear.vbs源代码

2017年12月12日  | 移动技术网IT编程  | 我要评论

红外防盗,沈阳虎跃快客时刻表,2017年两会时间表

复制代码 代码如下:

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


您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网