This VBscript code will check for low disk space on the local SQL Server. Schedule the package to run once a day, and let the job report to you by e-mail when a drive runs low on free space.

The script will check all disks except for the C:\ drive and will trigger an alert to be sent when the available disk space on any drive falls below 20% remaining. The code uses the WMI object library which comes with Windows 2000 and XP. WMI can also be installed on NT.

Author: Lennart Gerdvall

Function Main()

	REM WHAT IT DOES FOR YOU:

	REM This code will check for low disk space on the local SQL Server.

	REM Schedule the package to run once a day and let the job report to

	REM you by e-mail when it fails. The code below checks all disks but

	REM the C-disk and fails when disk space is below 20% remaining.

	

	REM HOW TO INSTALL IT:

	REM Create a DTS package with the VB cript code below.

	REM Set up a connection to the local server with Windows Authenication.

	REM The Windows user running the package must be admin on the machine being checked.

	

	REM OTHER REQUIREMENTS:

	REM The package requires Windows Management Instrumentation (WMI), which is

	REM included in Windows 2000 and later. If you have Windows 95/98/NT 4.0, install

	REM the WMI core library (wmicore.exe).

	REM More information - http://msdn.microsoft.com/downloads/sdks/wmi/default.asp 



	DIM DiskSet

	DIM myDisk, test

	

	myDisk = ""

	test = 0

	

  Set DiskSet = GetObject("winmgmts:{impersonationLevel=Delegate}").ExecQuery("select FreeSpace,Size,Name from Win32_LogicalDisk where DriveType=3")

	

	For Each Disk In DiskSet

		if disk.name <> "C:" then

			test = (Disk.FreeSpace / Disk.Size)

			If test <= 0.20 then

				myDisk = myDisk + Disk.Name

			End If

		end if

	Next

	

	If myDisk <> "" Then 

		REM Yes, there are disks with LOW SPACE

	             Main = DTSTaskExecResult_Failure

	Else			 

		REM No, there no are disks with LOW SPACE

		Main = DTSTaskExecResult_Success

	End If

End Function