Opção explícita
Dim Sourcefile, iPaddress, Objargs
Const Destfile = Tempfile
Const forwriting = 2
Texto escuro
Dim FSO, Objnet, ServiceObj
Dim txtStream, txtStreamout
Defina objargs = wscript.arguds
Se objargs.count = 2 então
Sourcefile = Objargs (0)
ipaddress = objargs (1)
Outro
Wscript.echo Parâmetro Erro+ VBCRLF
WScript.ECHO Uso: KillLog.vbs LogFileName Yourip.
wscript.QUIT 1
Final se
Set fso = createObject (script.filesystemObject)
Se fso.FileExists (Sourcefile), então
Set objnet = wscript.createObject (wscript.network)
Set serviceObj = getObject (winnt: // & objnet.computername &/w3svc)
Defina objnet = nada
ServiceObj.stop
wscript.sleep 6000
Definir txtStream = fso.opentExtFile (fonte de fonte)
Definir txtStreamout = fso.opentExtfile (Destfile, forwriting, true)
Faça enquanto não (txtStream.atendofstream)
Texto = txtStream.readline
Se Instr (texto, ipaddress) = 0 então
txtStreamout.WriteLine Text
final se
Laço
Definir txtStream = nada
Definir txtStreamout = nada
Wscript.echo o arquivo de log- & Sourcefile e limpou seu IP!
Outro
Wscript.echo o arquivo de log-- & Sourcefile & não encontrou!
Wscript.Quit
Final se
fso.copyFile Destfile, Sourcefile
FSO.DeleteFile Destfile
Defina FSO = nada
ServiceObj.start
Set serviceObj = nada