手机
当前位置:查字典教程网 >脚本专栏 >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发送带附件的邮件

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

用vbs控制iis创建虚拟目录的代码

用vbs确定用户的登录名的代码

用vbs检索在运行对话框中键入的一系列命令的代码

利用vbs自动修改ip的代码

用vbscript合并多个文本文件的代码

用vbs实现随机读取文件的一行内容的脚本

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

用vbs得到计算机的 IP 地址

精品推荐
分类导航