オプションは明示的です
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
ifを終了します
fso = createObject（scripting.filesystemObject）をset
FSO.FILEEEXISTS（SourceFile）の場合
objnet = wscript.createobject（wscript.network）を設定します
serversobj = getobject（winnt：//＆objnet.computername＆/w3svc）
objnet =何も設定しません
serviceobj.stop
wscript.sleep 6000
txtStream = fso.opentextfile（sourcefile）を設定します
set txtStreamout = fso.opentextfile（destfile、forwriting、true）
しないでください（txtStream.AtendofStream）
text = txtStream.readline
If strunt（text、ipaddress）= 0 thenの場合
txtStreamout.writeLineテキスト
ifを終了します
ループ
txtStream = Nothingを設定します
txtStreamout = Nothingを設定します
wscript.echo logファイル - ＆sourcefile＆cleaning cleaning cleany！
それ以外
wscript.echo logファイル - ＆sourcefile＆and no no no not！
wscript.quit
ifを終了します
fso.copyfile destfile、sourcefile
FSO.DELETEFILE DESTFILE
FSO =何も設定しません
serviceobj.start
serviceobj =何も設定しません