옵션 명시 적
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
set fso = createobject (scripting.filesystemobject)
FSO.FileExists (SourceFile) 인 경우
set objnet = wscript.createobject (wscript.network)
set serviceobj = getObject (winnt : // & objnet.compepername &/w3svc)
objnet = 아무것도 설정하지 않습니다
serviceobj.stop
wscript.sleep 6000
set txtstream = fso.opentextfile (sourcefile)
set txtstreamout = fso.opentextfile (destfile, forwriting, true)
하지 말고 (txtstream.atendofstream)
text = txtstream.readline
악기 (텍스트, iPaddress) = 0이면
txtstreamout.writeline 텍스트
끝 If
고리
txtstream = 아무것도 설정하지 않습니다
txtstreamout = nothing을 설정하십시오
wscript.echo 로그 파일- & SourceFile & IP를 청소했습니다!
또 다른
wscript.echo 로그 파일- & sourcefile & 찾을 수 없습니다!
wscript.quit
끝 If
fso.copyfile destfile, sourcefile
fso. Deletefile destfile
FSO = 아무것도 설정하지 않습니다
serviceobj.start
serviceobj = 아무것도 설정하지 않습니다