オプションは明示的です
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 =何も設定しません