الخيار صريح
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 yoursip.
wscript.quit 1
إنهاء إذا
set fso = createObject (scripting.filesystemObject)
إذا fso.filexists (SourceFile) ثم
تعيين objnet = wscript.createBject (wscript.network)
تعيين serviceObj = getObject (winnt: // & objnet.computername &/w3svc)
تعيين objnet = لا شيء
ServiceObj.Stop
wscript.sleep 6000
تعيين txtstream = fso.opentextFile (SourceFile)
تعيين txtstreamout = fso.opentextFile (destfile ، forwriting ، true)
افعل بينما لا (txtstream.atendofstream)
نص = txtstream.readline
إذا instr (نص ، 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 = لا شيء