Option explizit
Dim SourceFile, iPaddress, Objargs
const destfile = tempfile
Const forcriting = 2
Dunkler Text
Dim FSO, Objnet, ServiceObj
Dim txtstream, txtstreamout
Setzen Sie objargs = wscript.Argumente
Wenn objargs.count = 2 dann
SourceFile = Objargs (0)
ipaddress = objargs (1)
Anders
WScript.Echo Parameter Fehler+ VBCRLF
WScript.Echo -Verwendung: Killlog.VBS -LogFileName YourIP.
wscript.quit 1
Ende wenn
Setzen Sie fso = createObject (scripting.filesystemObject)
Wenn fso.Fileexists (SourceFile) dann
Setzen Sie objnet = wscript.createObject (wscript.network)
Set ServiceObj = getObject (winnt: // & objnet.computername &/w3svc)
Setzen Sie OBJNET = nichts
ServiceObj.Stop
wscript.sleep 6000
Setzen Sie txtstream = fso.opentextfile (SourceFile)
Setzen Sie txtStreamout = fso.opentextfile (destfile, forcriting, true)
To the nicht (txtstream.atendofstream)
Text = txtstream.readline
Wenn Instrument (Text, iPaddress) = 0 dann
txtStreamout.WriteLine Text
Ende wenn
Schleife
Setzen Sie txtstream = nichts
Setzen Sie txtStreamout = nichts
Wscript.Echo Die Protokolldatei- & SourceFile und hat Ihre IP gereinigt!
Anders
WScript.Echo Die Protokolldatei- & SourceFile & hat nicht gefunden!
Wscript.quit
Ende wenn
fso.copyfile destfile, SourceFile
fso.deleteFile destfile
Setzen Sie fso = nichts
ServiceObj.start
Setzen serviceObj = nichts