清空iis log 中自己登录ip的vbs(仅供研究使用)_.NET教程_编程技术_ASP.NET_青云站长教程网
欢迎来到站长教程网!
  • 秒到短信接口 免费试用
  • 微信支付宝接口 秒结算
  • 中文网站排名|申请加入
  • 搜索引擎全站查询
  • 查询移动网站权重数据
  • 海外主机 台湾公司直销
  • ASP.NET

    当前位置:主页 > 网络编程 > ASP.NET >

    清空iis log 中自己登录ip的vbs(仅供研究使用)_.NET教程_编程技术

    时间:2019-07-10|栏目:ASP.NET|点击:
  • iis 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_.NET教程_编程技术

    栏    目:ASP.NET

    下一篇:使用JScript.NET制作asp.net网页基础教程1_.NET教程_编程技术

    本文标题:清空iis log 中自己登录ip的vbs(仅供研究使用)_.NET教程_编程技术

    本文地址:http://www.jh-floor.com/wangluobiancheng/ASP_NET/2362.html

    您可能感兴趣的文章

    广告投放 | 联系我们 | 版权申明

    重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

    如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

    联系QQ:888888 | 邮箱:888888#qq.com(#换成@)

    Copyright © 2002-2017 青云站长教程网 版权所有 琼ICP备xxxxxxxx号