Task Scheduler for Server 2003 Error

Have you seen these threads:
http://www.petri.co.il/forums/showthread.php?t=23280
http://www.winhelponline.com/blog/fix-error-0x80070005-creating-task-using-task-scheduler-in-xp/ 

Ok, it looks like the permissions are working, but I still can't get my .vbs script to send me a message when the drive is running out of space, does this look correct:

dim objFSO
dim objDrive
dim Cspace
dim Jspace
dim Kspace
dim objEmail
'Set up the disk space for the lower limit of space available before it emails phil
Cspace = 500000000
Jspace = 100000000000
Kspace = 5000000000
'configure the settings for sending email.  This may be different on the server,
set objEmail = CreateObject("CDO.Message")
'send using indicates how the message is to be sent.  2 means to send messages y using the smtp service
' on the network
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'smptServer isIP address of the smtp server through which messages are sent
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "172.16.32.52"
objEmail.Configuration.fields.update
'Set up message settings
objEmail.From = "monitor"
objEmail.To      = "pagesysadmin@municode.com"
objEmail.Subject = "mcc-db-01.internal.municode.com"

set objFSO = CreateObject("Scripting.FileSystemObject")

set objDrive = objFSO.GetDrive("C:")
'Check to see if the drive is available
if objDrive.IsReady then
      'The drive is readable so get the available space and compare it to
      ' the constant for the lower limit of space phil wants to check against.
      'If it's below the limit, email him
      if objDrive.availableSpace < Cspace then
            'msgbox(objDrive.availableSpace & vbcrlf & Cspace)
            objEmail.TextBody = "C: Drive has " & objDrive.availableSpace & " bytes left."
            objEmail.Send
      end if
end if
'Check to see if the drive is available.  Not all places will have a K drive
set objDrive = objFSO.GetDrive("J:")
if objDrive.IsReady then
      'The drive is readable so get the available space and compare it to
      ' the constant for the lower limit of space phil wants to check against.
      'If it's below the limit, email him
      if objDrive.availableSpace < Jspace then
            objEmail.TextBody = "J: Drive has " & objDrive.availableSpace & " bytes left."
            objEmail.Send
      end if
end if
'Check to see if the drive is available.  Not all places will have a K drive
set objDrive = objFSO.GetDrive("K:")
if objDrive.IsReady then
      'The drive is readable so get the available space and compare it to
      ' the constant for the lower limit of space phil wants to check against.
      'If it's below the limit, email him
      if objDrive.availableSpace < Kspace then
            objEmail.TextBody = "K: Drive has " & objDrive.availableSpace & " bytes left."
            objEmail.Send
      end if
end if

Thanks!!