リファレンス、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"