如何用VBS命令复制一个文本文件每行的前9位？

set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("a.txt")
do while file.atendofstream<>true
n=file.readline
s=s & vbcrlf & left(n,9)
loop
file.close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", s
objIE.quit
wscript.echo "已经将a.txt文件里的每行的前9位复制到剪贴板！"
set fso=nothing
set file=nothing
set objie=nothing