清空iis log 中自己登录ip的vbs

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

时间: 2024-10-09 16:34:57

清空iis log 中自己登录ip的vbs的相关文章

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

iis Option Explicit Dim sourcefile,ipaddress,objargs const destfile="tempfile"Const ForWriting = 2 Dim TextDim fso,objNet,ServiceObjDim txtStream, txtStreamOut Set objArgs = WScript.Arguments         If objArgs.Count = 2 Then                   s

用vbs清空iis log 中自己登录ip的记录_vbs

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) ip

清空iis log 中自己登录ip的vbs_FSO专题

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) ipaddr

在Linux终端中查看公有IP的方法详解

  首先回顾一下一般的查看IP的命令: ifconfig Linux查看IP地址的命令--ifconfig ifconfig命令用于查看和更改网络接口的地址和参数 $ifconfig -a lo0: flags=849 mtu 8232 inet 127.0.0.1 netmask ff000000 hme0: flags=863 mtu 1500 inet 211.101.149.11 netmask ffffff00 broadcast 211.101.149.255 ether 8:0:2

从http协议中获得客户端ip

import javax.servlet.http.HttpServletRequest; import org.apache.log4j.Logger; public final class InternetProtocol { private static Logger log = Logger.getLogger(InternetProtocol.class); /** * 构造函数. */ private InternetProtocol() { } /** * 获取客户端IP地址.<b

Alert Log中“Fatal NI connect error 12170”错误

Alert Log中"Fatal NI connect error 12170"错误 Fatal NI connect error 12170.     VERSION INFORMATION:         TNS for Linux: Version 11.2.0.4.0 - Production         Oracle Bequeath NT Protocol Adapter for Linux: Version 11.2.0.4.0 - Production      

Alert Log中“Fatal NI connect error 12170”错误问题

  定期检查数据库alert log信息,是我们进行数据库日常维护.巡检和故障排除的重要工作手段.数据库系统"带病运行"."负伤运行"往往是"小病致死"的主要杀手.所谓"防患于未然"就需要数据库管理员从日常的小事微情入手,时刻了解系统运行情况,并尽早进行处理. 本文主要介绍笔者使用Oracle 11gR2过程中日志巡检中出现的问题,虽然最后没有得到圆满解决.记录下来,留待需要朋友待查.   1.问题说明   笔者使用的一套开发

SpriteBuilder添加的TrueType字体未显示在log中的原因分析

按照书上的说法,在SpriteBuilder中添加的TrueType字体名称会在枚举字体方法显示的log中出现.但是运行程序后没有在log中发现对应的字体名称. 因为该字体是例子中作者制作的,所以字体名称与文件名称一定是匹配的(除了没有文件后缀).而且在运行的程序中的确看到了该字体正确的显示效果(Settings用的是系统自带字体,Slider左边的label字体是用户的TrueType字体): 这就证明字体已经加载成功了,但是为毛log中没有呢? 后来才知道,原来log是在MainScene中

方法-JAVA项目中做登录加密操作

问题描述 JAVA项目中做登录加密操作 在项目中做用户登录操作,如果一个陌生人随意乱输用户名和密码,假定正好输入都正确(数据库中已保存的),为避免此类问题发生,要对登录做加密,使用MD5方法是不是比较好,是否还有其它好的方法,谢谢 解决方案 因此,作为这个用途,那些不可逆的散列算法都可以达到这个目的,比如MD5.SHA1等等,以及它们的变种,比如两次MD5,加上一个随机数再MD5(俗称加盐).为什么要变化?因为人们将常见密码和MD5存入一个很大的数据库,所以反插起来很容易. 解决方案二: MD5