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