清空iis log 中自己登录ip的vbs（仅供研究使用）

2024-08-29 03:13:53

字体：大中小

来源：转载

供稿：网友

注册会员，创建你的web开发资料库，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创建IIS虚拟站点实例

下一篇：清空iis log 中自己登录ip的vbs