FIREFOXでWebページを表示できるVBS

質問

VBS超初心者です。
10年くらい前に作られたVBSを修正したいのですが、さっぱりわからないため助けてください。

勤務先で、社内イントラのデータベースを参照するときに使っているVBSです。

【いまの挙動】
VBSを起動すると文書番号の入力画面が表示→入力してEnter→IEで該当ページ(http:★★★/文書番号)が表示されます。

【やりたいこと】
FIREFOXで表示したい。(先日のIE脆弱性の騒ぎの影響で、上から指示があり。。)

今は以下のようなソースで使ってます。

----------------------
Sid = InputBox("ID を入力。")

Sid = Trim(Sid)

If Sid = "" Then WScript.Quit

If Len(Sid) <>14 Then

WScript.echo "ID が不正。"
WScript.Quit

End If

Set objie = WScript.CreateObject("internetexplorer.Application")

objie.navigate2 "http://★★★/" & Sid

objie.Visible = True

WScript.Quit
----------------------

「internetexplorer.Application」ではダメなことはわかるのですが
それ以上は私の知識ではお手上げでした。。

どなたか詳しいかた、アドバイスお願いします。

回答No.1

Picosoft · ベストアンサー

Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run """C:\Program Files\Mozilla Firefox\firefox.exe"" ""http://★★★/" & Sid & """", vbNormalFocus, False
Set objShell = Nothing
という感じでしょうか。

Firefoxの実行ファイルのパスは、お使いの環境に合わせて変更してください。

WshShell.Runメソッドについて
http://msdn.microsoft.com/ja-jp/library/cc364421.aspx

Firefoxのコマンドラインオプションについて
https://developer.mozilla.org/ja/docs/Mozilla/Command_Line_Options#-url_URL

お礼

ありがとうございます！！
無事に解決しました。

リンクしていただいたページをみて、勉強します
今回は急ぎで必要だったので本当にたすかりました。
ありがとうございました。