'Проверка количества свободного места на дисках. 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+" Мб!")
else
  WSHShell.Popup("На диске "+drive+" Свободно "+free+" Мб!")
End If
	End If
	Next