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.
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
Salut,
Regarde ici, ça fonctionne à merveille...
https://www.developpez.net/forums/d1461974/autres-langages/general-visual-basic-6-vbscript/vbscript/lnk-raccourcis-executer-tant-qu-administrateur
https://www.developpez.net/forums/attachments/p153315d1407677363/autres-langages/general-visual-basic-6-vbscript/vbscript/lnk-raccourcis-executer-tant-qu-administrateur/ok-run-as-administrator-lnk.pdf
@+
Bonjour PAT,
peut être , mais il y a 8 ans la solution de Jordane avait convenu, puisque taratata a marqué le sujet résolu...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question