ตัวเลือกอย่างชัดเจน
Dim SourceFile, iPaddress, objargs
const destFile = tempfile
const forwriting = 2
ข้อความหรี่
Dim FSO, Objnet, ServiceObj
dim txtstream, txtstreamout
ตั้งค่า objargs = wscript.arguments
ถ้า objargs.count = 2 แล้ว
SourceFile = objargs (0)
iPaddress = objargs (1)
อื่น
wscript.echo ข้อผิดพลาดพารามิเตอร์+ vbcrlf
wscript.echo การใช้งาน: killlog.vbs logfilename yourip
wscript.quit 1
สิ้นสุดถ้า
ตั้งค่า fso = createObject (scripting.filesystemobject)
ถ้า fso.fileexists (sourcefile) แล้ว
ตั้งค่า objnet = wscript.createObject (wscript.network)
ตั้งค่า serviceObj = getObject (winnt: // & objnet.computername &/w3svc)
ตั้งค่า objnet = ไม่มีอะไร
ServiceObj.stop
wscript.sleep 6000
SET TXTSTREAM = FSO.OpentExtFile (SourceFile)
ตั้งค่า txtStreamout = fso.opentextfile (destFile, forwriting, true)
ทำในขณะที่ไม่ (txtstream.atendofstream)
text = txtStream.readline
ถ้า instr (text, ipaddress) = 0 แล้ว
txtStreamout.writeLine ข้อความ
สิ้นสุดถ้า
วง
ตั้งค่า txtStream = ไม่มีอะไร
ตั้งค่า txtStreamout = ไม่มีอะไร
wscript.echo ไฟล์บันทึก- & SourceFile & ทำความสะอาด IP ของคุณ!
อื่น
wscript.echo ไฟล์บันทึก- & SourceFile & ไม่พบ!
wscript.quit
สิ้นสุดถ้า
fso.copyfile destfile, sourcefile
fso.deletefile destfile
ตั้งค่า fso = ไม่มีอะไร
ServiceObj.start
ตั้งค่า serviceObj = ไม่มีอะไร