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

This article introduces "how to write ipclear.vbs source code" related knowledge, in the actual case operation process, many people will encounter such a dilemma, then let the editor lead you to learn how to deal with these situations! I hope you can read it carefully and be able to achieve something!

The copy code is as follows:

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

This is the end of "how to write ipclear.vbs source code". Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!

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.