How to write ipclear.vbs source code
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!
