obtenir la cible d'un racourci

**koKoTis** · 01/03/2008, 08h12

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 ?

**ced600** · 03/03/2008, 10h04

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

**koKoTis** · 03/03/2008, 12h04

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

**ced600** · 03/03/2008, 12h14

Envoyé par koKoTis

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

**koKoTis** · 03/03/2008, 12h19

j'avou que j'ai du mal à suivre

**ced600** · 03/03/2008, 12h29

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

**koKoTis** · 03/03/2008, 13h12

j'ai mi ceci:

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 = "C:\Documents and Settings\Kookatix\Bureau\Exemples.lnk" ' 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

et j'ai cette erreur:

**ced600** · 03/03/2008, 13h35

cela marchera mieux ainsi :

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 = "Exemples" ' Nom du raccourci et juste le nom :D
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

**ced600** · 03/03/2008, 13h39

Bon je me suis trompé

WMICreator me dit que c'est ainsi :

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 WHERE Name = 'c:\\documents and settings\\all users\\start menu\\security\\virusscan.lnk'",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Win32_ShortcutFile instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "Target: " & objItem.Target
Next

**koKoTis** · 03/03/2008, 13h42

ok c'est parfait

merci encore

j'ai garder ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ShortcutFile WHERE Name = 'C:\\Documents and Settings\\All Users\\Menu Démarrer\\Programmes\\Accessoires\\Calculatrice.lnk'",,48) 
For Each objItem in colItems 
    Wscript.Echo "Cible: " & objItem.Target
Next

**ced600** · 03/03/2008, 13h47

Ok pour que cela soit plus simble, tu peux redépalcer le chemin dans NomRaccourci, mon erreur été de ne vouloir utiliser que le nom, et la tienne était de n'avoir pas doublé les \

Mais tu peux t'amuser un peu si tu veux, et faire des choses simples comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ShortcutFile WHERE Name = 'c:\\documents and settings\\all users\\start menu\\communication\\ftp.lnk'",,48) 
For Each objItem in colItems
    If  objItem.Drive = "c:" Then
       Wscript.Echo "-----------------------------------"
       Wscript.Echo "Win32_ShortcutFile instance"
       Wscript.Echo "-----------------------------------"
       Wscript.Echo "Target: " & objItem.Target
    End If
Next

Enfin cela sert à rien vu que tu es déjà dépendant du lecteur avec le chemin.
Dès fois je vous jure je dis n'importe koi

**koKoTis** · 03/03/2008, 13h59

j'en sui la mais ce ne marche pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
set WshShell = WScript.CreateObject("WScript.Shell")               
 
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = DesktopPath
 
If oFSO.FolderExists(stRep) Then
 
 For each oFl in  oFSO.GetFolder(stRep).Files
   if LCase(stExt) = "lnk" then 
       vrChmRccrc = replace(oFl.Path,"\","\\")
        strComputer = "." 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
        Set colItems = objWMIService.ExecQuery( _
            "SELECT * FROM Win32_ShortcutFile WHERE Name = vrChmRccrc",,48) 
        For Each objItem in colItems 
    Wscript.Echo "Cible: " & objItem.Target
        Next
   Else
   End If
 
 
   'vrFchs = vrFchs & vbCrLf & oFl.Name	
   'vrChmNomFchs = vrChmNomFchs & vbCrLf & oFl.Path
 
 Next
 
End If

**koKoTis** · 03/03/2008, 14h01

Envoyé par ced600

Dès fois je vous jure je dis n'importe koi

oui mais la plu par du temps tu donne des codes qui fonctionnent

j'ai ajouter quelque chose mais j'ai une erreu à la ligne 22

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
set WshShell = WScript.CreateObject("WScript.Shell")               
 
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = DesktopPath
 
If oFSO.FolderExists(stRep) Then
 
 For each oFl in  oFSO.GetFolder(stRep).Files
  'msgbox oFl.Path
   stExt = oFso.GetExtensionName(oFl)
   if LCase(stExt) = "lnk" then 
       vrChmRccrc = replace(oFl.Path,"\","\\")
        strComputer = "." 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
        Set colItems = objWMIService.ExecQuery( _
            "SELECT * FROM Win32_ShortcutFile WHERE Name = vrChmRccrc",,48) 
        For Each objItem in colItems 
    Wscript.Echo "Cible: " & objItem.Target
        Next
   Else
   End If
 
 
   'vrFchs = vrFchs & vbCrLf & oFl.Name	
   'vrChmNomFchs = vrChmNomFchs & vbCrLf & oFl.Path
 
 Next
 
End If

**SfJ5Rpw8** · 03/03/2008, 14h09

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

         "SELECT * FROM Win32_ShortcutFile WHERE Name = vrChmRccrc",,48)

tu cherche un fichier qui se nomme :vrChmRccrc ... ?

**koKoTis** · 03/03/2008, 14h13

il manquer des apsotrophe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

         "SELECT * FROM Win32_ShortcutFile WHERE Name = 'vrChmRccrc'",,48)

la variable elle vien de la:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
       vrChmRccrc = replace(oFl.Path,"\","\\")

**SfJ5Rpw8** · 03/03/2008, 14h15

Il manque aussi .. l'opérateur de concaténation de chaine ... : & ..! et il faut sortir la variable des " ...

mais bon .... Cedric .. ta montré le bon code un peu plus haut...! suffit de changer le nom de ta variable...

**koKoTis** · 03/03/2008, 15h46

ce code devrai fonctionner il me semble:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
set WshShell = WScript.CreateObject("WScript.Shell")
 
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = DesktopPath
 
If oFSO.FolderExists(stRep) Then
 
 For each oFl in  oFSO.GetFolder(stRep).Files
   stExt = oFso.GetExtensionName(oFl)
   if LCase(stExt) = "lnk" then 
       vrChmRccrc = replace(oFl.Path,"\","\\")
        'msgbox vrChmRccrc
        strComputer = "." 
        Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ShortcutFile WHERE Name = '" & vrChmRccrc & "'",,48) 
        For Each objItem in colItems 
 
           If oFSO.FolderExists(objItem.Target) Then
           Else
               Set fsoFile = ofso.getFile(oFl.Path)
               fsoFile.delete
           End If
 
           Wscript.Echo "Cible: " & objItem.Target
        Next
   Else
   End If
 Next
End If

**ced600** · 03/03/2008, 15h55

il me semble aussi mais est ce qu'il fontionne ?

Un truc pour ne pas faire de If vide et mettre que du code dans le else:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If oFSO.FolderExists(objItem.Target) Then
           Else
               Set fsoFile = ofso.getFile(oFl.Path)
               fsoFile.delete
           End If

Tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Not oFSO.FolderExists(objItem.Target) Then
               Set fsoFile = ofso.getFile(oFl.Path)
               fsoFile.delete
           End If

Not va négationner ton test (oui oui c certainement faux et si c vrais c un cou de bol) et donc quand ton résultat de test sera vrais, cela va devenir faux avec le test, et inversement.
Donc avec une méthode FolderExists :
Si le répertoire existe, cela renvois normalement vrai et avec Not cela donnera faux comme résultat de test.
Et je rappelle que l'on ne rentre dans la condition que si l'on obtiens vrai par le test.
Donc dans notre cas, Not permettra à la condition d'entrée dans le test de n'être vrai que si le fichier n'existe pas.

**koKoTis** · 03/03/2008, 15h59

en me parlent de folder tu m'a fait remaqruer que j'aurai du mette file puisque c'est un fichier que je teste, mais le code ne fonctionne pas pour autant, le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
           Wscript.Echo "Cible: " & objItem.Target

aurait du fonctionner lui

**ced600** · 03/03/2008, 17h18

Affiche la propriété count de colItems :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ShortcutFile WHERE Name = '" & vrChmRccrc & "'",,48)
wscript.echo  colItems.count
        For Each objItem in colItems

Cela te donnera la taille de la liste.
Si cela vaut 0, cela veut dire que la requête, "SELECT * FROM Win32_ShortcutFile WHERE Name = '" & vrChmRccrc & "'", ne te renvois aucun élément.

Donc soit elle est fausse soit vrChmRccrc contient un nom de fichier inexistant.
Il faut alors vérifié avec msgbox vrChmRccrc. Mais tu sembles l'avoir déjà fait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If oFSO.FolderExists(objItem.Target) Then

Comme tu l'a dit c'est faux

Je ne l'avais pas vu mais il faut bien utiliser FileExist.

obtenir la cible d'un racourci

VBScript

Discussions similaires

Partager

Partager