〔VBS〕エクセルxls, xlsmファイルをxlsx(新形式)へ変換したい！

1. 以下をメモ帳に貼り付けて○○○.vbsで保存する。
2. エクセルファイルを○○○.vbsにドラッグ＆ドロップする。
3. ドラッグ＆ドロップしたファイルがすべてxlsx形式で自動的に保存される。
   ※保存場所は元のファイルのフォルダ内。

set args = WScript.Arguments
set obj = CreateObject("Scripting.FileSystemObject")
set XlApp = CreateObject("Excel.Application")
for each path in args
    ext = obj.GetextensionName(path)
    set book = XlApp.Application.Workbooks.Open(path)
    XlApp.Application.Visible = true
   'book.SaveAs Replace(path, "." & ext, ".xls"), -4143 'xlsx=51, xls=-4143, csv=6
    book.SaveAs Replace(path, "." & ext, ".xlsx"), 51 'xlsx=51, xls=-4143, csv=6
   'book.SaveAs Replace(path, "." & ext, ".csv"), 6 'xlsx=51, xls=-4143, csv=6
    book.Close
next
XlApp.Quit
set XlApp = nothing
msgbox "Done!!"