Créer un raccourci à partir de vb.net sur Windows 7 (64 bits)

Question

J'essaie de créer un raccourci sur le bureau à partir du code vb.net sur un boîtier Windows 7 (64 bits). Le code suivant fonctionne sur XP, mais lorsqu'il est exécuté sur Win7-je obtenir un message indiquant l'App a cessé de fonctionner:

Imports IWshRuntimeLibrary 

Dim WshShell As WshShellClass = New WshShellClass 

      Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut 

      ' The shortcut will be created on the desktop 
      'Win 7 
      MyShortcut = CType(WshShell.CreateShortcut("C:\Users\Public\Desktop\iexplore.lnk"), IWshRuntimeLibrary.IWshShortcut) 

      'MyShortcut = CType(WshShell.CreateShortcut("C:\Documents and Settings\All Users\Desktop\iexplore.lnk"), IWshRuntimeLibrary.IWshShortcut) 

      MyShortcut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 'Specify target app full path 
      MyShortcut.Description = "IE" 

      MyShortcut.Save() 

Toute pensée ou de meilleures façons de créer un raccourci à partir du code sur une boîte Win7?

Answer 1

Windows 7 64 bits ici. Compilé cela comme 32 bits et cela a fonctionné:

Imports IWshRuntimeLibrary 

Module Module1 

    Sub Main() 
     Dim WshShell As WshShell = New WshShell 

     Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut 

     MyShortcut = CType(WshShell.CreateShortcut("C:\Users\Public\Desktop\Dah Browser.lnk"), IWshRuntimeLibrary.IWshShortcut) 
     MyShortcut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 'Specify target app full path 
     MyShortcut.Description = "IE" 

     MyShortcut.Save() 
    End Sub 

End Module 

Remarque: Je cours en tant qu'administrateur avec UAC désactivé.

Notez également que j'ai changé WshShellClass à WshShell

Answer 2

De quels privilèges votre application est-elle équipée? Je crois qu'il aura besoin d'informations d'identification pour faire ce que vous cherchez.