Obtenir la liste des lecteurs d'un PC

Bonjour

je débute dans la création de script en .vbs

je cherche une ligne de commande pour querir la liste de lecteur de disque dur de PC en reseau
ceci afin de vérifier si ces différents disque dur ne sont pas plein
avec le commande ci-dessous

Code:

---

1 2 3 4 5 6 7 8

Dim OFS, NomLecteur, MonLecteur, taille '1 je crée la référence du lecteur. Set OFS = CreateObject("Scripting.FileSystemObject") '2 obtention de la chaîne représentant lecteur. c'est ici que je souhaite obtenir touts les lecteurs de disque dur d'un PC NomLecteur = OFS.GetDriveName("c:\toto.txt") 'obtient la taille du lecteur espaces libre Taille = MonLecteur.AvailableSpace

---

je vous remercie par avance

bonjour

tu peux essayer cette procédure

Code:

---

1 2 3 4 5 6 7 8

Set FSO = CreateObject("Scripting.FileSystemObject")   For Each Drv In FSO.Drives If Drv.IsReady Then MsgBox "le support " & Drv.DriveLetter & " --> " & _ Drv.drivetype & " --> " & Drv.FreeSpace & " octets" End If Next

---

bonne journée