vbscript 特定行を変更する

説明
asの転送記述　pcへの出力ファイルを特定文字+日付+時刻.xlsで書き出すよう　定義ファイルをするものです
月や日はそのままだと4/9なら49のようになってしまうので　前文字が入る必要があります
VBScript でのformatを参考にしました
日付の取得については[VBScript Tips]を参考にしました
rightのところで型が一致しないエラーが発生したので行を分けています

'-----------------------------------------------以下スクリプト
dim oFSO
dim x
dim strLine
dim strFilename
dim datestring
dim ymdm
dim strtime

' instantiate the Scripting Object
set FSO = CreateObject("Scripting.FileSystemObject")
strFile1="\\10.12.8.210\全社\tenso\ano\tmp08021r.TTO"
strfile2="\\10.12.8.210\全社\tenso\ano\tmp08021r@.TTO"
'openスイッチ 1 input ,2 output ,3 append
' true/false 存在しない場合作成
Set f1 =FSO.OpenTextFile(strFile1, 1, false)
Set f2 = FSO.OpenTextFile(strFile2, 2, true)
mm=month(date())
mm=Right("00" & mm ,2)
dm= right("00"& day(date()),2)
Ymdm=year(date()) & mm & dm
strtime=hour(time()) & minute(time()) & second(time())
datestring=ymdm & strtime
' Open the file
a=1
do until f1.AtEndOfLine
buf=f1.Readline
if a=9 then buf="\\Server01\第２製造部\ｵﾝﾗｲﾝ変更" & datestring & ".xls"
f2.writeline buf
a=a+1
loop
f1.Close
f2.close
'----------------------------------------スクリプト終了

別のファイルを作って動かしてます
'スクリプト開始--------------------------------------------------------------
'元の設定ファイルを削除して'書き出したファイルを元のファイル名に移動する
dim oFSO
dim x
dim strLine
dim strFilename

' instantiate the Scripting Object
set FSO = CreateObject("Scripting.FileSystemObject")
strFile1="\\10.12.8.210\全社\tenso\ano\tmp08021r.TTO"
strfile2="\\10.12.8.210\全社\tenso\ano\tmp08021r@.TTO"

ingRet=FSO.deletefile("\\10.12.8.210\全社\tenso\ano\tmp08021r.TTO")
ingRet=FSO.movefile("\\10.12.8.210\全社\tenso\ano\tmp08021r@.TTO","\\10.12.8.210\全社\tenso\ano\tmp08021r.TTO" )


set FSO=nothing
'スクリプト終了