Bonjour
je veux exécuté un script VBS mais j'ai un message d'erreur.
voici erreur:
Erreur : Permission refusée
Code:800A0046

voila mon sciprt:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
  cDrive = "C:\"
 
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(cDrive)
WScript.Echo "Terminé avec succès."
Sub ShowSubFolders(Folder)
    str = ""
    For Each Subfolder in Folder.SubFolders
        str = str & " " & Subfolder.Path
        subFolder.Attributes = 0
        ShowSubFolders Subfolder
    Next
End Sub
Merci pour votre aide.