IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

obtenir la cible d'un racourci


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut obtenir la cible d'un racourci
    Bonjour, je voudrai faire un script pour supprimer tout les raccourci nul sur la bureau, pour ca il faut que je récupére la cible des racourci pour tester si le fichier pointer existe.

    Pouriez vous me dire comment récupérer la cible d'un raccourci ?

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Est ce que je t'ai déjà parler de l'outil WMICreator ?
    Il est très pratique, regarde dans les contributions.

    Avec le Namespace : root\CIMV2
    Et la classe : Win32_ShortcutFile
    J'ai trouvé la propriété et le code adéquate pour lister tous les raccourcis du bureau et obtenir le chemin de la cible.
    La propriété est Target qui veut dire cible en anglais
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    strComputer = "." 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
    Set colItems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_ShortcutFile",,48) 
    For Each objItem in colItems 
        Wscript.Echo "-----------------------------------"
        Wscript.Echo "Win32_ShortcutFile instance"
        Wscript.Echo "-----------------------------------"
        Wscript.Echo "Target: " & objItem.Target
    Next

  3. #3
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut
    merci beaucoup

    mais pour l'instant le voudrai juste le code pour obtenir la cible d'un seul raccourci, je me débroulerrai aprés

  4. #4
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Citation Envoyé par koKoTis Voir le message
    merci beaucoup

    mais pour l'instant le voudrai juste le code pour obtenir la cible d'un seul raccourci, je me débroulerrai aprés
    Bah c ce code là, il faut juste soit faire un where name = le nom du raccourci dans la requête, ou dans la boucle tu testes si le name = le nom du raccourci

  5. #5
    Membre éprouvé
    Avatar de koKoTis
    Profil pro
    Inscrit en
    Août 2006
    Messages
    3 438
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2006
    Messages : 3 438
    Par défaut
    j'avou que j'ai du mal à suivre

  6. #6
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Je n'ai pas testé mais cela devrait donner un truc dans le genre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Dim NomRaccourci
    NomRaccourci = "youpi" ' nom du raccourci
    strComputer = "." 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
    Set colItems = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_ShortcutFile WHERE name = '" & NomRaccourci & "'",,48) 
    For Each objItem in colItems 
        Wscript.Echo "-----------------------------------"
        Wscript.Echo "Win32_ShortcutFile instance"
        Wscript.Echo "-----------------------------------"
        Wscript.Echo "Target: " & objItem.Target
    Next

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Comment obtenir le répertoire cible
    Par mikeGo20 dans le forum VBA Access
    Réponses: 2
    Dernier message: 03/08/2009, 16h37
  2. [VB.NET] Obtenir la cible d'un raccourci
    Par Runan dans le forum Windows Forms
    Réponses: 2
    Dernier message: 02/05/2007, 14h54
  3. obtenir 100 lignes autour d'une valeur cible
    Par PickEpique dans le forum Langage SQL
    Réponses: 7
    Dernier message: 19/03/2007, 20h33
  4. Comment obtenir la liste des paramètres d'une SP ?
    Par Le Gritche dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 14/03/2003, 16h54
  5. Obtenir les taches en cours
    Par mlerat22 dans le forum MFC
    Réponses: 3
    Dernier message: 17/06/2002, 12h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo