Link to home
Start Free TrialLog in
Avatar of paclaiborne
paclaiborne

asked on

Task Scheduler does not work in our Netork!

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
Avatar of Member_2_4984608
Member_2_4984608

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
Avatar of paclaiborne

ASKER

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 :)
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
ASKER CERTIFIED SOLUTION
Avatar of Member_2_4984608
Member_2_4984608

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
That script worked much better, Thank You!!