Анализ свободного места на диске

Сделал анализ свободного места на диске под Windows. Скриптик с расширением *.vbs вызывается в штатном планировщике Windows.


iMinSpc = 2 ' minimal free space on drive in GB
sDrvID = "C:" ' drive letter
sAlerter="c:\WINDOWS\startstopalert.bat"
'===========================================

iGBLeft = 0
strComputer = "."
Set oWSH = CreateObject( "WScript.Shell" )
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set objShell = CreateObject("WScript.Shell")

Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk")

For Each objDisk in colDisks
if ( objDisk.DeviceID = sDrvID ) then
iGBLeft = Int(objDisk.FreeSpace/1024/1024/1024)
If iGBLeft <= iMinSpc then
objShell.Run sAlerter & " """ & iGBLeft & "GB left on " & sDrvID & """"
End If
End If
Next


В принципе, в комментариях всё сказано.
Если в системе присутствуют несколько дисков, то делается соответствующее количество копий скрипта с изменением параметров sDrvID и других нужных.