欢迎来到站长教程网!

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号