WSHでobjFso.OpenTextFileで開いたファイルに追記する方法

Question

デスクトップに特定サイトだけIEで開くためのスクリプトを作成したいと思います。
バッチから変数を受け取り、ターゲットURLとショートカット名をそれぞれ
Argumentsに格納しています。

Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
strPath = WshShell.CreateShortcut( strDesktop & WScript.Arguments(1) )
TargetURL = ( WScript.Arguments(0) )

Set WshUrlShortcut = WshShell.CreateShortcut(strPath)
WshUrlShortcut.TargetPath = TargetURL
WshUrlShortcut.Save()

'作成したURLショートカットをテキストとして開く
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objNewShortcut = objFso.OpenTextFile(strPath,8)

'アイコンの指定。
objNewShortcut.WriteLine("IconIndex=0")
objNewShortcut.WriteLine("IconFile=%SystemDrive%\aaa\aaa.ico")

objNewShortcut.Close()

ショートカットの中身を下記のようにするにはどうしたら良いでしょうか。
現在　URL=https://www.google.co.jp/
理想　URL="C:\Program Files (x86)\Internet Explorer\iexplore.exe" https://www.google.co.jp/

バッチから変数を受け取る関係上
objNewShortcut.WriteLine("URL="C:\Program Files (x86)\Internet Explorer\iexplore.exe" https://www.google.co.jp/")
と書くことが出来ず困っています。

Answer 1

スクリプトを作成したいと思います。

実際のコードはショートカットを作っていますが、スクリプトを作成したいのですか？ショートカットを作成したいのですか？

普通のショートカットならこんな感じだと思うのですが。

Set WshShell = CreateObject("WScript.Shell")
Set WshUrlShortcut = WshShell.CreateShortcut(WshShell.SpecialFolders("Desktop") & WScript.Arguments(1))
WshUrlShortcut.TargetPath = """C:\Program Files (x86)\Internet Explorer\iexplore.exe"""
WshUrlShortcut.IconLocation = "%SystemDrive%\aaa\aaa.ico,0"
WshUrlShortcut.Arguments = WScript.Arguments(0)
WshUrlShortcut.Save()