vbsで特定URLをIEから開くショートカットの作成

Question

特定のURLのみIEで開くショートカットを作成したいと思います。
ショートカットのリンク先に
"C:\Program Files (x86)\Internet Explorer\iexplore.exe" http://www.yahoo.jp/
このような形にしたいのですが、何も作成されません。

setup.bat
cscript /B setup.vbs "C:\Program Files (x86)\Internet Explorer\iexplore.exe" "%address%/%press%/"

setup.vbs
strPath = WshShell.CreateShortcut( strDesktop & WScript.Arguments(2) )
Set WshShell = CreateObject("WScript.Shell")
TargetURL = ( WScript.Arguments(0) & WScript.Arguments(1) )

set objShortcut = WshShell.CreateShortcut(strPath)
objShortcut.TargetPath = TargetURL
objShortcut.save

どのようにしたら良いでしょうか？

Answer 1

色々と問題がありますが、まずは正解から。

setup.bat

set  address=http://www.yahoo.jp/
set  press=test.lnk
cscript setup.vbs "C:\Program Files (x86)\Internet Explorer\iexplore.exe"  "%address%"  "%press%"

setup.vbs

Set WshShell = CreateObject("WScript.Shell")
strPath = WshShell.CreateShortcut( strDesktop & WScript.Arguments(2) )
TargetURL = WScript.Arguments(1)
browser = WScript.Arguments(0)
Set objShortcut = WshShell.CreateShortcut(strPath)
objShortcut.TargetPath = browser
objShortcut.Arguments = TargetURL
objShortcut.save

ここからつっこみです。

• バッチファイルで環境変数を使うなら先頭でsetしましょう。
• バッチファイルで引数を２つしか渡していないのに、VBScript内では３つ使おうとしています。
• cscriptのオプションに「/B」がついているのはバッチモードを使おうとしたものと推測しますが、スクリプトのバグが無くなるまではバッチモードを使うべきではありません。バッチモードでは、修正のヒントになるエラーメッセージが表示されません。
• cscriptのオプションは「/」ではなく「//」を使います。なので、バッチモードで実行したければ、オプションは「//B」となります。cscript /?を実行して確認してください。
• TargetURL = ( WScript.Arguments(0) & WScript.Arguments(1) )の部分で「コマンド名 引数」の文字列を作ろうとしていると思いますが、スペース文字が間に必要です。
• WshShellをインスタンス化する前に使っています
• objShortcutでコマンドの引数を渡すにはArgumentsプロパティを使います。TargetPathプロパティにはコマンド名を与えます。

ここからアドバイスです。

• エラーメッセージを頼りに修正していけば、ある程度の所まで完成度を上げられるはずです。
• VBScriptは、マイクロソフトによる日本語のマニュアルが存在するので、よく読みましょう。ただ、ここで使ったobjShortcutのArgumentsプロパティは一覧「https://docs.microsoft.com/ja-jp/previous-versions/windows/scripting/cc364467(v=msdn.10)」にあるのに説明へのリンクがおかしいようですね。