Sommaire Le registre de Windows Les API Windows Les fichiers de stratégie Les fichiers INF Les lignes de commandes Les scripts Windows VBS FileSystemObject Drive File Folder WSH ADSI (WinNT Provider) WMI ScriptCenter Les erreurs Windows Les trucs et astuces Télécharger

Les scripts Windows Nom Drive Type Objet Description Donne accès aux propriétés d'un lecteur de disque ou d'un partage réseau spécifié. Propriétés : Propriété Description object.AvailableSpace Renvoie la quantité d'espace libre disponible pour un utilisateur sur le lecteur ou le partage réseau. object.DriveLetter Renvoie la lettre d'un lecteur local physique ou d'un partage réseau. Lecture seule. object.DriveType Renvoie une valeur indiquant le type d'un lecteur spécifié. object.FileSystem Renvoie le type de système de fichiers du lecteur spécifié. Les types de retour disponibles sont FAT, NTFS et CDFS. object.FreeSpace Renvoie la quantité d'espace disponible pour un utilisateur sur le lecteur ou le partage réseau. Lecture seule. object.IsReady Renvoie la valeur True si le lecteur spécifié est prêt et la valeur False dans le cas contraire. object.Path Renvoie le chemin du lecteur spécifié. object.RootFolder Renvoie un objet Folder correspondant au dossier racine d'un lecteur spécifié. Lecture seule. object.SerialNumber Renvoie le numéro de série décimal utilisé pour identifier de manière unique un volume de disque. object.ShareName Renvoie le nom du partage réseau pour un lecteur spécifié. object.TotalSize Renvoie l'espace total, en octets, d'un lecteur ou d'un partage réseau. object.VolumeName Définit ou renvoie le nom de volume du lecteur spécifié. Lecture/écriture. Application : Le code suivant illustre l'emploi de l'objet Drive pour accéder aux propriétés de lecteur : Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Lecteur " & UCase(drvPath) & " - " s = s & d.VolumeName & "<BR>" s = s & "Espace disponible: " & FormatNumber(d.FreeSpace/1024, 0) s = s & " KOctets" ShowFreeSpace = s End Function