手机
当前位置:查字典教程网 >脚本专栏 >vbs >用vbs清空iis log 中自己登录ip的记录
用vbs清空iis log 中自己登录ip的记录
摘要:OptionExplicitDimsourcefile,ipaddress,objargsconstdestfile="tempfile"C...

OptionExplicit

Dimsourcefile,ipaddress,objargs

constdestfile="tempfile"

ConstForWriting=2

DimText

Dimfso,objNet,ServiceObj

DimtxtStream,txtStreamOut

SetobjArgs=WScript.Arguments

IfobjArgs.Count=2Then

sourcefile=objArgs(0)

ipaddress=objargs(1)

Else

wscript.echo"ParameterError"+vbcrlf

wscript.Echo"USAGE:KillLog.vbsLogFileNameYourIP."

wscript.Quit1

EndIf

Setfso=CreateObject("Scripting.FileSystemObject")

iffso.FileExists(sourcefile)then

SetobjNet=WScript.CreateObject("WScript.Network")

SetServiceObj=GetObject("WinNT://"&objNet.ComputerName&"/w3svc")

SetobjNet=nothing

ServiceObj.stop

wscript.sleep6000

SettxtStream=fso.OpenTextFile(sourcefile)

SettxtStreamOut=fso.OpenTextFile(destfile,ForWriting,True)

DoWhileNot(txtStream.atEndOfStream)

Text=txtStream.ReadLine

ifinstr(Text,ipaddress)=0then

txtStreamOut.WriteLineText

endif

Loop

SettxtStream=Nothing

SettxtStreamOut=Nothing

WScript.Echo"Thelogfile--"&sourcefile&"hascleanedyourIP!"

Else

WScript.Echo"TheLogfile--"&sourcefile&"hasnotfound!"

Wscript.quit

EndIf

fso.Copyfiledestfile,sourcefile

fso.deletefiledestfile

Setfso=Nothing

ServiceObj.start

SetServiceObj=Nothing

【用vbs清空iis log 中自己登录ip的记录】相关文章:

一个用vbs查找硬盘所有分区中的指定程序的代码

vbscript自动配置IIS的代码

利用vbs自动修改ip的代码

VBS利用SendKeys输入中文字符的方法

vbs 查找硬盘分区中指定扩展名文件的实现代码

使用 Iisweb.vbs 暂停网站的方法

用vbs对文本文件的内容进行排序

用vbs确定可移动驱动器的连接时间

使用 iisweb.vbs 列出网站的方法

用vbs实现向任何电子邮件发送邮件

精品推荐
分类导航