Что-то типа такого
Код:
Dim drvpath, fs, d, s, MinMB
drvpath = "C:"
MinMB = 10000
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(drvPath))
s = "Свободное место на диске " & UCase(drvPath) & " "& FormatNumber(d.FreeSpace/1024/ 1024, 0) & " Mb"
if (d.FreeSpace/1024/1024 < MinMB) then
file2send = "some.txt"
Set objNewFile = fs.CreateTextFile(file2send)
objNewFile.WriteLine s
objNewFile.Close
*а тут как-то надо отправить file2send по почте*
end if