Shulou(Shulou.com)06/03 Report--

This article mainly introduces how to use vbs to clear the record of logging on ip in iis log, which has a certain reference value, and interested friends can refer to it. I hope you can learn a lot after reading this article.

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

Thank you for reading this article carefully. I hope the article "how to use vbs to clear the record of logging in ip in iis log" shared by the editor will be helpful to everyone. At the same time, I also hope you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.