Teraterm自動ログ.vbs完成 teraterm auto log YYMMDD-HHMM.log style

昨日か一昨日から研究をし始めて
やっと納得のいくものが出来ました。
ファイル名は、自動生成され
YYMMDD-HHMM.log
の形になります。
日付や時間が
1桁の場合も最初に0が付きます。
↑これが苦労した。。
日付や時間が一桁になると、ちゃんと並ばないんだもん。


***************************
Dim WshShell, AppName, oExec, NowTime, LogPath, LogName
Dim dtmNowDate

'Get current date and time

dtmNowDate = Now()


'Set log file, YYMMDD-HHMM.log style

LogPath = "D:\Teralog\"
LogName = LogPath & _
Right("0" & Year(dtmNowDate), 2) & _
Right("0" & Month(dtmNowDate), 2) & _
Right("0" & Day(dtmNowDate), 2) & "-" & _
Right("0" & Hour(dtmNowDate), 2)& _
Right("0" & Minute(dtmNowDate), 2) & _
".log"

'Set application command line
AppName = "C:\Program Files\teraterm\ttermpro.exe" & _
" /L=" & LogName

'Startup TeraTerm program
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(AppName)

***************************
参考URL
http://www.whitire.com/vbs/tips0042.html
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=16597&forum=10&3

拡張子 bat 変更 出来ない

【環境】
OS：Windows2000
PC：Dell Latitude D410

【現象】
いずれのファイルも拡張子をbatに変更することが出来ない

変更をしようとすると
---------------------------
ファイルまたはフォルダ名の変更エラー
---------------------------
新規テキスト ドキュメント の名前を変更できません。アクセスできません。

ディスクがいっぱいでないか、書き込み保護されていないか、
またはファイルが使用中でないか確認してください。
---------------------------
OK
---------------------------
と表示されます

【確認事項】
拡張子の表示はされています。
batファイル以外への拡張子の変更であれば、正常に行えます。
txt→bat　×
txt→log　○
doc→txt　○
doc→bat　×

拡張子batにしようとすると、エラーが表示されます。
どなたかアドバイスをお願いします。
足りない情報があればお申し付けください。


( ゜З゜)batがダメならcmdにすればいいじゃない。
＞cmdならOKでした
ありがとうございます。