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

Signaler
Messages postés
3
Date d'inscription
dimanche 3 août 2014
Statut
Membre
Dernière intervention
4 août 2014
-
Messages postés
3
Date d'inscription
dimanche 3 août 2014
Statut
Membre
Dernière intervention
4 août 2014
-
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!

3 réponses

Messages postés
32519
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 mai 2021
348
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.


Messages postés
3
Date d'inscription
dimanche 3 août 2014
Statut
Membre
Dernière intervention
4 août 2014

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
Messages postés
3
Date d'inscription
dimanche 3 août 2014
Statut
Membre
Dernière intervention
4 août 2014