How to use vbs to clear the record of logging in ip in iis log
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!
