Solved

Task Scheduler for Server 2003 Error

Posted on 2009-07-09
4
418 Views
Last Modified: 2012-05-07
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
0
Comment
Question by:paclaiborne
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
4 Comments
 
LVL 26

Expert Comment

by:Pber
ID: 24813340
0
 
LVL 6

Accepted Solution

by:
akrdm earned 500 total points
ID: 24813360
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
 

Author Comment

by:paclaiborne
ID: 24848457
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
 

Author Closing Comment

by:paclaiborne
ID: 31601576
Thanks!!
0

Featured Post

NEW Veeam Agent for Microsoft Windows

Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
File Screening 1 34
Automate Windows Updates with SCCM 2 87
Blocking Microsoft Edge From Running? 14 59
2008 R2 time server is invalid 6 38
On July 14th 2015, Windows Server 2003 will become End of Support, leaving hundreds of thousands of servers around the world that still run this 12 year old operating system vulnerable and potentially out of compliance in many organisations around t…
Sometimes drives fill up and we don't know why.  If you don't understand the best way to use the tools available, you may end up being stumped as to why your drive says it's not full when you have no space left!  Here's how you can find out...
To efficiently enable the rotation of USB drives for backups, storage pools need to be created. This way no matter which USB drive is installed, the backups will successfully write without any administrative intervention. Multiple USB devices need t…
This tutorial will walk an individual through setting the global and backup job media overwrite and protection periods in Backup Exec 2012. Log onto the Backup Exec Central Administration Server. Examine the services. If all or most of them are stop…

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question