Monitoring file-server free space

// Before trying this script if necessary correct the
// network drive letter specified bellow

Dim drive, string
Dim free_space, number
Dim low_space, boolean

Set( drive, "K" )
// Get free space
DiskGetFreeSpace( drive, free_space )
// users or Windows NT, Windows 95 OSR2, Windows 98, should use DiskGetFreeSpaceEx statement instead
// Check treshold - 50 Mbytes = 50 * 2^20
isLess( free_space, 52428800, low_space )

if( low_space, PROBLEM, END )
PROBLEM:
// Page network administrator
MailSend( "Exchange Settings", "system", "12345678@pagenet.com", "Low of space", "Free space on drive K below 50 Mbytes" )

END: