Option explicite
Dim Sourcefile, iPaddress, Objargs
const destfile = tempfile
Const Forwriting = 2
Text
DIM FSO, Objnet, ServiceObj
Dim txtstream, txtstreamout
Définir objargs = wscript.arguments
Si objargs.Count = 2 alors
SourceFile = Objargs (0)
iPaddress = objargs (1)
Autre
Erreur de paramètre wscript.echo + vbcrlf
wscript.echo Utilisation: killlog.vbs logfilename yourip.
wscript.quit 1
Terminer si
Set fso = createObject (scripting.fileSystemObject)
Si fso.fileexists (sourcefile) alors
Set objnet = wscript.createObject (wscript.network)
Set serviceObj = getObject (winnt: // & objnet.compulername & / w3svc)
Définir objnet = rien
ServiceObj.stop
wscript.sleep 6000
Set txtStream = fso.OpenTextFile (sourcefile)
Set txtStreamout = fso.OpenTExtFile (destfile, forwriting, true)
Faire tout en (txtStream.AtendOfStream)
Text = txtStream.readline
Si instr (texte, ipaddress) = 0 alors
TxTStreamout.Writeline Text
terminer si
Boucle
Set txtStream = rien
Set txtStreamout = rien
Wscript.echo Le fichier journal - & sourcefile et a nettoyé votre IP!
Autre
Wscript.echo Le fichier journal - & sourcefile & n'a pas trouvé!
Wscript.quit
Terminer si
fso.copyfile destfile, sourcefile
fso.deletefile destfile
Définir FSO = rien
ServiceObj.start
Set ServiceObj = Rien