We help IT Professionals succeed at work.

Task Scheduler does not work in our Netork!

540 Views
Last Modified: 2012-05-07
Every time I open any Task Scheduler on Server 2008 I get this error "The task image is corrupt or has been tampered with.Drive Manager". Does anyone know how to fix this?

Thank You!!
7-9-2009-9-04-43-AM.jpg
Comment
Watch Question

Try inserting the windows 2008 server disk and running from the run prompt (start > run)

SFC /scannow

This will check your system files for inconsistancies

Author

Commented:
I did the scan, it said complete and the window dissapeared, does it write a log somewhere? or would it have told me if something was wrong?

Thanks
Wouldn't have said, I'm also not aware of any logs created by this system, reboot the machine and see if the problem persists. If it does let me know :)

Author

Commented:
Ok, that fixed the image error I was getting but my .vbs script still does not send me the drive space email notification, do you notice anything that is incorrect?

dim objFSO
dim objDrive
dim Cspace
dim objEmail
'Set up the disk space for the lower limit of space available before it emails phil
Cspace = 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-app-07.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 Matt 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
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION

Author

Commented:
That script worked much better, Thank You!!
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.