Clear the vbs of the logon ip address in the iis log.

Option Explicit

Dim sourcefile, ipaddress, objargs

Const destfile = "tempfile"

Const ForWriting = 2

Dim Text

Dim fso, objNet, ServiceObj

Dim txtStream and 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