"Exécuter en tant qu'administrateur" de tous les fichiers "*.lnkRésolu

Question

Bonjours à tous!

Je cherchere un vbscript pour cocher l'option "Exécuter en tant qu'administrateur" de tous les fichiers "*.lnk" (les raccourcis). 
Cette options est accéssibles par "Propriétés" 
Onglet "Raccourci"
Bouton "Avancé.."

Je suis sous windows 7 Pro et ai créé une arborescence sous

Exemples :
C:\ProgramData\Microsoft\Windows\Menu Démarrer\Prgrammes\!Serveurs
C:\ProgramData\Microsoft\Windows\Menu Démarrer\Prgrammes\!CAO

en cliquant sur l'un des liens LNK, une fenêtre "Ficihier ouvert - Avertissement de sécurité" s'affiche.

La solution est cocher l'option "Exécuter en tant qu'administrateur" 
Comme mon arboresecnce est importante j'ai besoin d'un script pour automatiser cette dernier options!

merci d'avance pour votre aide!

jordane45 · Answer

Bonjour,
Merci de garder à l'esprit que CodeS-SourceS est une communauté d'entraide.

Toutes les réponses sur le forum sont assurées par des bénévoles 
qui donnent de leur temps libre pour aider à résoudre les problèmes.

A noter également que nous ne faisons pas dans le "tout cuit" et ne sommes pas là pour remplacer votre moteur de recherches...
 ... Soit tu trouves ton bonheur dans la partie source du site, soit à l'aide de ton moteur de recherche favori. 

Ici, nous aidons volontiers sur des sujets techniques précis.

Je t'invite à lire avec attention le contenu du lien suivant :
charte-de-commentcamarche-net : conseils-d-ecriture

Ainsi que celui concernant l'utilisation de la coloration syntaxique :
Utilisation des  Balises de code

Merci donc de reformuler ta demande en respectant ces quelques points.

Quelques points essentiels à retenir :
- On ne pose qu' UNE question par discussion
- Le titre de la question doit refléter le souci rencontré ( Help.. SOS.. Urgent.. n'apporte aucune information utile !)
- Lorsque votre question est résolue.. merci de clore le sujet (lien Marquer comme résolu se trouvant sous le titre de votre question).
- Une question obtiendra de meilleurs réponses si elle est correctement rédigée, que les explications sont clairs et qu'éventuellement vous postez le code qui pose problème.
- Si vous avez un message d'erreur..... MARQUEZ LE (dans son intégralité).

Merci.

taratata2014 · Answer

Merci de ton message!

J'ai oublié de mettre le début de code pour rescencer les LNKs dans un répertoire donnée!

Set WshShell = CreateObject("WScript.Shell")Set ObjShell = CreateObject("Shell.Application")Chemin = "C:\ProgramData\Microsoft\Windows\Start Menu"For Each ObjFolder In ObjShell.Namespace(Chemin).Items    If ObjFolder.IsLink Then	        'Récupérer chemin et fichier des raccourci        Raccourci = ObjFolder.Path		Wscript.Echo "[Chemin du Raccourci :]  :  " & Raccourci		        'Objet raccourci lui-même (objet)        Set Lien = WshShell.createShortcut(Raccourci)		Wscript.Echo "[Lien : ]  :  " & Lien		        'Extraction du nom du fichier sur lequel pointe le raccourci        Temp = Split(Lien.TargetPath, "")(UBound(Split(Lien.TargetPath, "")))        Wscript.Echo "[Nom de l'exécutable : ]  :  " & Temp        End If	'Wscript.Echo "[Pas de Raccourci]"Next

J'ai fais des recherches sur olink mais sans succés!

Merci d'avance de votre aides ou sugestions
Bonne journée

taratata2014 · Answer

la solution est :


http://stackoverflow.com/questions/6652486/how-to-set-run-as-administrator-flag-on-shortcut-created-by-msi-installer


Bon route...

"Exécuter en tant qu'administrateur" de tous les fichiers "*.lnk

3 réponses

Votre réponse