vbsで選択ダイアログを表示したいのですがやり方が分かりません。教えて

vbsで選択ダイアログを表示したいのですがやり方が分かりません。教えてください。
以前は以下のようにしてたのですがUser～ってところがvistaでは動作しないようです。
また、既存の処理はできれば変えたくないので以下の関数内で選択されたファイル名を返却できるようにするにはどう変更したらよいでしょうか？

Function AAAA()
Dim objDialog
Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "Excel File|*.xls"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then Wscript.Quit

// ファイル名を返却
End Function

No.3 ベストアンサー 回答者： nda23 回答日時： 2010/07/27 16:18

UserAccounts.CommonDialog はXPだけで使える

と、記載されてましたね。
コモンダイアログ系オブジェクトはVBのライセンスが
ないと使えませんし、BrowseForFolderもファイルを
選ぶと落ちるので困ったもんです。
他のアプリケーションの力を借りるしかないと
思います。

(1)SFC mini をインストールしてAPIを実行
　SFC mini はWindowsAPIをVBSから呼び出せる
　ようにしたツールです。
　http://kandk.cafe.coocan.jp/sfcmini/
(2)Excelの機能を使う。
　Excelがインストールされていれば、以下のように
　実装できます。
　Dim A, B
　Set A = CreateObject("Excel.Application")
　B = A.GetOpenFilename("Excel File,*.xls")
　A.Quit
　Set A = Nothing
　If B <> False Then
　　　　　AAAA = B
　Else
　　　　　WScript.Quit
　End If

No.2 回答者： piroin654 回答日時： 2010/07/27 01:33

vbs .BrowseForFolder

でググるのがいいようです。その中の一つ、

http://hp.vector.co.jp/authors/VA006065/scripts/ …

にありますが、コードはまずフォルダ選択、フォルダが
見えなくなるとファイル選択に切り替えるという手法です。

No.1 回答者： piroin654 回答日時： 2010/07/27 00:23

BrowseForFolderでググってみてください。

以下のようなものもあります。

http://msdn.microsoft.com/en-us/library/bb774065 …

また、
Vbscript for VISTA to get a file name using BROWSEFORFOLDER
だと、海外版ですがそのままがあります。