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
Thank You!!
7-9-2009-9-04-43-AM.jpg
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
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 :)
ASKER
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.Fie lds.Item(" http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'smptServer isIP address of the smtp server through which messages are sent
objEmail.Configuration.Fie lds.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver") = "172.16.32.52"
objEmail.Configuration.fie lds.update
'Set up message settings
objEmail.From = "monitor"
objEmail.To = "pagesysadmin@municode.com "
objEmail.Subject = "mcc-app-07.internal.munic ode.com"
set objFSO = CreateObject("Scripting.Fi leSystemOb ject")
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.available Space & vbcrlf & Cspace)
objEmail.TextBody = "C: Drive has " & objDrive.availableSpace & " bytes left."
objEmail.Send
end if
end if
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.Fie
'smptServer isIP address of the smtp server through which messages are sent
objEmail.Configuration.Fie
objEmail.Configuration.fie
'Set up message settings
objEmail.From = "monitor"
objEmail.To = "pagesysadmin@municode.com
objEmail.Subject = "mcc-app-07.internal.munic
set objFSO = CreateObject("Scripting.Fi
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.available
objEmail.TextBody = "C: Drive has " & objDrive.availableSpace & " bytes left."
objEmail.Send
end if
end if
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
That script worked much better, Thank You!!
SFC /scannow
This will check your system files for inconsistancies