Opción explícita
Dim SourceFile, iPaddress, Objargs
const Destfile = tempfile
Constante de constante = 2
Texto atenuante
Dim FSO, Objnet, ServiceObj
Dim txtstream, txtstreamout
Establecer objargs = wscript.arguments
Si objargs.count = 2 entonces
SourceFile = Objargs (0)
ipaddress = objargs (1)
Demás
WScript.Co Parameter Error+ VBCRLF
wscript. Uso de eco: killlog.vbs logFileName Yourip.
wscript.quit 1
Final si
Establecer fso = createObject (scripting.filesystemObject)
Si FSO.FileExists (FideFile) entonces
Establecer objnet = wscript.createObject (wscript.network)
Establecer ServiceObj = getObject (winnt: // & objnet.computername &/w3svc)
Establecer objnet = nada
ServicioBJ.stop
wscript.sleep 6000
Establecer txtstream = fso.opentextfile (SourceFile)
Establecer txtstreamout = fso.opentextfile (destfile, forwriting, true)
Haz mientras no (txtstream.atendofstream)
Texto = txtstream.readline
if instrer (texto, ipaddress) = 0 entonces
txtstreamout.writeline text
final si
Bucle
Establecer txtstream = nada
Establecer txtstreamout = nada
Wscript.eco el archivo de registro- & SourceFile y ha limpiado su IP!
Demás
Wscript.eco el archivo de registro- & SourceFile & no ha encontrado!
Wscript.quit
Final si
FSO.CopyFile Destfile, FideFile
fso.deletefile destfile
Establecer FSO = nada
ServiceObj.Star
Establecer ServiceObj = nada