Discussion :

[coolfecamp]

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 :

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

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

[SilkyRoad]

bonjour

tu peux essayer cette procédure

Code :

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

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