質問: 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/") と書くことが出来ず困っています。
回答: >スクリプトを作成したいと思います。 実際のコードはショートカットを作っていますが、スクリプトを作成したいのですか?ショートカットを作成したいのですか? 普通のショートカットならこんな感じだと思うのですが。 ``` 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() ```