Discussion :

[koKoTis]

ceci me renvoi une erreur à la ligne 18:

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
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

[SfJ5Rpw8]

ceci me renvoi une erreur à la ligne 18:

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 ..?

[koKoTis]

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

Code :

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

wscript.echo  colItems.count

erreu non spécifié

[ced600]

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
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.

[koKoTis]

non chez moi il fait bien l'utilisateur actif

[koKoTis]

même comme ca ca 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
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

[ced600]

tu veux faire quoi avec cela ?

Code :

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

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

[koKoTis]

récupérer le chemin du fichier glisser sur le vbs

[ced600]

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

[koKoTis]

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 :

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
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