Opsi eksplisit
Redup sourceFile, ipaddress, objargs
const destfile = tempfile
Const forwriting = 2
Teks redup
Redup fso, objnet, serviceObj
Dim txtstream, txtstreamout
Atur objargs = wscript.arguments
Jika objargs.count = 2 lalu
SourceFile = Objargs (0)
ipaddress = objargs (1)
Kalau tidak
Kesalahan parameter wscript.echo+ vbcrlf
WSCRIPT.ECHO Penggunaan: Killlog.vbs LogFileName youip.
wscript.quit 1
Akhiri jika
Atur fso = createObject (scripting.filesystemObject)
Jika FSO.FileExists (SourceFile) maka
Set Objnet = WScript.CreateObject (WScript.Network)
Set layananobj = getObject (winnt: // & objnet.Computername &/w3svc)
Setel objnet = tidak ada
Serviceobj.stop
wscript.sleep 6000
Set txtstream = fso.opentextFile (sourceFile)
Set txtStreamout = fso.opentextFile (destfile, forwriting, true)
Do whay not (txtstream.atendofstream)
Text = txtstream.readline
if instr (teks, ipaddress) = 0 lalu
TextStreamout.WriteLine Text
akhiri jika
Lingkaran
Atur txtstream = tidak ada
Atur txtstreamout = tidak ada
Wscript.echo File log-- & SourceFile & telah membersihkan IP Anda!
Kalau tidak
Wscript.echo file log-- & SourceFile & belum ditemukan!
Wscript.quit
Akhiri jika
fso.copyfile destfile, SourceFile
fso.deleteFile destfile
Atur fso = tidak ada
Serviceobj.start
Atur serviceObj = tidak ada