Erreur 70 - Permission refusée, en créant un raccourci WshShortcut

Version imprimable

09/10/2012, 16h02
Papy Turbo

Erreur 70 - Permission refusée, en créant un raccourci WshShortcut

Bonjour,

Une erreur qui revient irrégulièrement et que je n'arrive pas à résoudre :

Je crée un raccourci avec une référence à Windows Script Host Object Model (C:\Windows\system32\wshom.ocx)

Sous XP, la création se déroule sans problème : les icônes apparaissent sur le bureau.

Sous Windows 7, 32 ou 64 bits, j'obtiens à peu près systématiquement l'erreur 70 - permission refusée, au moment d'enregistrer le raccourci (.Save). Je ne peux pas être 100% sûr que le problème soit la version de Windows, mais pour l'instant, c'est ma seule piste.

L'utilisateur en cours est toujours l'administrateur du système : tous les droits.

La création manuelle de l'icône (sur le bureau) fonctionne sans problème, avec les mêmes paramètres (.TargetPath, .Arguments, .WorkingDirectory, .WindowStyle, .IconLocation)

Quelqu'un a une idée d'une solution ?

P.S. Je me suis demandé si ce serait Office 2010 qui refuse l'autorisation ?
- j'ai créé une zone de confiance sur le bureau,
- redémarré l'application : même problème.

P.S.2 : idem, sous Windows 7, Office 2007 : erreur 70.

les raccourcis

Bonjour,

J'ai tenté avec ce code et access ça fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Dim FileName
Dim raccourci
FileName = "Lance le Bloque Note"
    Set raccourci = CreateObject("WScript.Shell").Createshortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" + FileName + ".lnk")
        raccourci.Description = "Le Bloque Note c'est de la bombe !"
        'raccourci.Arguments = """1 2 3"""
        ' voir ici http://msdn.microsoft.com/en-us/library/w88k7fw2(v=vs.84).aspx
        raccourci.TargetPath = "C:\Windows\Notepad.exe"
        raccourci.WorkingDirectory = "C:\Windows"
        raccourci.Save

à bientôt

09/10/2012, 18h57
Papy Turbo

Ouaou ! Merci pour une réponse super rapide :ccool:

J'ai tout de suite testé ta routine, qui m'a énervé parce qu'elle marche farpaitement, quelle que soit la version de Windows. :mouarf:

J'ai donc procédé au remplacement de ton code par le mien, ligne par ligne, et bingo ! C'est le DesktopDir qui plante.

Brièvement, j'utilisais l'api SHGetFolderPath avec l'argument
- DesktopDirectory = 16, pour les machines "non NT" (Win 95, 98, Me...). Ce qui renvoit le même dossier que ton

Code:

CreateObject("WScript.Shell").SpecialFolders("Desktop")

- CommonDesktop = 25, pour les systèmes plus récents, à partir de Win 2000. Ce qui renvoie le bureau commun -> mon icône est utilisable par tous les utilisateurs du PC.

Sauf que ça marchait tip top sous XP, et que, sous Win 7, j'ai l'erreur 70 - Pas d'autorisation !

Je suis quand même étonné que l'administrateur n'ait plus le droit d'ajouter un icône sur le bureau commun, où il faut encore une manip top spéciale, du type 'RunAsAdministrator' ?

Les programmes d'installation doivent avoir un truc pour ça ?