Set DiskSet= GetObject(”winmgmts:”).InstancesOf (“Win32LogicalDisk”) For each Disk in DiskSet
Select Case Disk.DriveType
Case  0  DType “Unknown”
Case  1  DType “No Root Directory”
Case  2  DType = “Reniovable Disk”
Case  3  DType = “Local Disk
Case  4  DType = “Network Drive”
Case  5  DType = “Conipact Disc”
Case  6  DType “RMI Disk”
End Select
WScript.Echo “Drive:” & Disk.DevicelD & VBlf &
“Name:” & Disk.Description & VBlf & — ‘Type:” & DType & VBlf & — “File System:” & Disk.FileSystem & VBlf & — “Size:” & Disk.Size & VBlf & — “Free Space:” & Disk.FreeSpace & VBlf & — “Compressed:” & Disk.Cornpressed
Next

'Проверка количества свободного места на дисках. VBScript
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")
'Проверяем все драйвы (HDD, FDD, CDD) в системе
	For each i In fso.Drives
'DriveType=2 - логические диски. Зачем нам дисковод и т.п. ерунда?
		If i.DriveType=2 Then
'Получаем букву диска
		drive=i.DriveLetter
'Узнаем свободное место и переводим его в Мб с точностью до 1 знака после запятой
		free = FormatNumber(fso.GetDrive(drive).FreeSpace/1048576, 1)
'Если места меньше  100  Мб
		If free <  100  Then
'то выводим сообщение об этом
  WSHShell.Popup("На диске "+drive+" осталось меньше 100 Мб. Свободно "+free+" Мб!")
End If
	End If
	Next