VBScript で Excel OLE オートメーション シート名を列挙する

Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible       = True
objExcel.DisplayAlerts = False '警告メッセージをOFF

'ブックを読み取り専用で開く
Dim book
Set book = objExcel.Workbooks.Open(WScript.Arguments(0), False, True)

For Each sheet In book.Sheets
    WScript.Echo sheet.Name
Next

objExcel.Quit 
Set objExcel = Nothing