obtenir la cible d'un racourci

Version imprimable

Voir 40 message(s) de cette discussion en une page

ceci me renvoi une erreur à la ligne 18:

Code:

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
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(oFso.GetExtensionName(oFl)) = "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) 
wscript.echo  colItems.count
        For Each objItem in colItems 
 
           If not oFSO.FileExists(objItem.Target) Then
               Set fsoFile = ofso.getFile(oFl.Path)
               fsoFile.delete
           End If
 
           Wscript.Echo "Cible: " & objItem.Target
        Next
   End If
 Next
End If

03/03/2008, 17h55
SfJ5Rpw8

Citation:

Envoyé par koKoTis

ceci me renvoi une erreur à la ligne 18:

:aie: et il faut qu'on t'apprenne à compter jusqu'à 18 ...? pour que tu nous dise de qu'elle ligne il s'agit ..? et quel est le message ..?
03/03/2008, 17h57
koKoTis

désole, il s'agit de cette ligne:

Code:

wscript.echo colItems.count

erreu non spécifié

Code:

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
Dim DesktopPath
Dim strComputer
 
strComputer = "." 
 
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\CIMV2")
set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject") 
 
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
If oFSO.FolderExists(DesktopPath) Then
 
 For each oFl in  oFSO.GetFolder(DesktopPath).Files
   if LCase(oFso.GetExtensionName(oFl)) = "lnk" then 
       vrChmRccrc = replace(oFl.Path,"\","\\")
        msgbox "SELECT * FROM Win32_ShortcutFile WHERE Name = '" & vrChmRccrc & "'"
        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ShortcutFile WHERE Name = '" & vrChmRccrc & "'",,48) 
        For Each objItem in colItems 
		msgbox "entrée"
 
           If not oFSO.FileExists(objItem.Target) Then
               Set fsoFile = ofso.getFile(oFl.Path)
               fsoFile.delete
           End If
 
           msgbox "Cible: " & objItem.Target
        Next
   End If
 Next
End If

En fait ce code marche, mais il ne regarde que dans alluser et defaultuser.
Je ne sais pas comment on fait pour qu'il regarde dans le répertoire de l'utilisateur courant.

04/03/2008, 10h16
koKoTis

non chez moi il fait bien l'utilisateur actif

même comme ca ca ne marche pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Set objArgs = WScript.Arguments 
For I = 0 to objArgs.Count - 1 
   vrRecupChmFch = objArgs(I) 
Next
 
       vrChmRccrc = replace(vrRecupChmFch,"\","\\")
 
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

il doit y avoir une erreur quelque par :?

tu veux faire quoi avec cela ?

Code:

1
2
3
4
Set objArgs = WScript.Arguments 
For I = 0 to objArgs.Count - 1 
   vrRecupChmFch = objArgs(I) 
Next

17/03/2008, 12h14
koKoTis

récupérer le chemin du fichier glisser sur le vbs
17/03/2008, 12h34
ced600

avec ce code si tu passes 3 arguments au vbs, il enregistrera le dernier dans vrRecupChmFch.

j'ai pensser à un truc, j'ai ajouter un utilisateur tout le monde sur le répertoire utilisateur par l'onglet sécurité, et maitenant le script fonctionne parfaitement, c'été une question de droit d'administration ;)

merci encore pour votre aide ;)

je poste le script finale:

Code:

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
set WshShell = WScript.CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
DesktopPath = WSHShell.SpecialFolders("Desktop")
 
 
If oFSO.FolderExists(DesktopPath) Then
 
 For each oFl in  oFSO.GetFolder(DesktopPath).Files
   if LCase(oFso.GetExtensionName(oFl)) = "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 
 
           If not oFSO.FileExists(objItem.Target) Then
                Variable = MsgBox("Voulez vous supprimer le raccourci: " & oFl.Path, vbYesNo)
                If Variable = vbYes Then 
                     Set fsoFile = ofso.getFile(oFl.Path)
                     fsoFile.delete
                End If
           End If
 
        Next
   End If
 Next
End If

Voir 40 message(s) de cette discussion en une page