リファレンス、WshShortcut オブジェクト
既存のショートカットも参照できるらしい
Sub DispShortcut(path) 'set shortcut = WshShell.CreateShortcut() set shortcut = WshShell.CreateShortcut(path) With shortcut WScript.Echo "Arguments: " & .Arguments WScript.Echo "Description: " & .Description WScript.Echo "FullName: " & .FullName WScript.Echo "HotKey: " & .HotKey WScript.Echo "IconLocation: " & .IconLocation WScript.Echo "TargetPath: " & .TargetPath WScript.Echo "WindowStyle: " & .WindowStyle WScript.Echo "WorkingDirectory: " & .WorkingDirectory End With End Sub set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") 'DispShortcut strDesktop & "\\インターネット.lnk" DispShortcut strDesktop & "\\Google Chrome.lnk" DispShortcut strDesktop & "\\Windows Media Player.lnk"