Task Scheduler for Server 2003 Error

Every time I try to add a new task in Server 2003 I get "The new task could not be created. The specific error is: 0x80070005: Access is denied. Try using the Task page Browse button to locate the application.

Thank You!!
7-9-2009-9-16-44-AM.jpg
paclaiborneAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

akrdmCommented:
It looks like this error can be caused by a folder that the task manager requires, not having the correct permissions to allow the system to access the folder unrestricted.  This MS article talks about it and the following Expert's exchange thread also has a solution for it.

http://support.microsoft.com/kb/259907

http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Server/2003_Server/Q_24242299.html
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
paclaiborneAuthor Commented:
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
0
paclaiborneAuthor Commented:
Thanks!!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Windows Server 2003

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.