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

Question

Posez votre question Signaler Répondre au sujet

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

taratata2014 3 Messages postés dimanche 3 août 2014Date d'inscription 4 août 2014 Dernière intervention - 3 août 2014 à 20:09 - Dernière réponse : taratata2014 3 Messages postés dimanche 3 août 2014Date d'inscription 4 août 2014 Dernière intervention

- 4 août 2014 à 19:02

VBScript (VBS) Posez votre question Signaler Répondre au sujet

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!

Afficher la suite

3 réponses

Répondre au sujet

Signaler Commenter la réponse de jordane45

jordane45 20562 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 20 avril 2018 Dernière intervention - 4 août 2014 à 10:55

0

Utile

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.

Signaler Commenter la réponse de taratata2014

taratata2014 3 Messages postés dimanche 3 août 2014Date d'inscription 4 août 2014 Dernière intervention - 4 août 2014 à 14:57

0

Utile

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

Signaler Commenter la réponse de taratata2014

taratata2014 3 Messages postés dimanche 3 août 2014Date d'inscription 4 août 2014 Dernière intervention - Modifié par jordane45 le 4/08/2014 à 20:08

0

Utile

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 [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !