Job ended: 21 September 2010 at 12:05:17
Completed status: Failed
Final error: 0xe000fed1 - A failure occurred querying the Writer status.
Final error category: Resource Errors

For additional information regarding this error refer to link V-79-57344-65233

Click an error below to locate it in the job log

Backup- SERVERNAME.domain.com
V-79-57344-65233 - AOFO: Initialization failure on: "VRTSRV::\\SERVERNA
ME.domain.com\Hyper-V?Virtual?Machine\VirtualServerName". Advanced Open
File Option used: Microsoft Volume Shadow Copy Service (VSS).

Snapshot provider error (0xE000FED1): A failure occurred querying the
Writer status.

Check the Windows Event Viewer for details.

Writer Name: Microsoft Hyper-V, Writer ID: {66841CD4-6DED-4F4B-8F17-
FD23F8DDC3DE}, Last error: The VSS Writer failed, but the operation can
be retried (0x800423f3), State: Waiting for backup complete notification
(5).

Log Name:      System
Source:        partmgr
Date:          21/09/2010 12:11:38
Event ID:      58
Task Category: None
Level:         Warning
Keywords:      Classic
User:          N/A
Computer:      SERVERNAME.domain.com
Description:
The disk signature of disk 10 is equal to the disk signature of disk 0.

diskpart
list disk
select disk 0
detail disk

To fix, do this:

dumpcfg.exe –S00000081 0

(the '0' at the end of the command is
 the disk number from diskpart above)>

'This script will manually add a users home drive mapping as H: if it isn't mapped by active directory at login.
'Save it as something.vbs and add it to your logon scripts.
'It also writes a logfile out to c:\script_log.txt with the results.
'Shared on www.sinkingducks.com.

Option Explicit
On error resume next

'Declarations
	'oz = objects
	'sz = strings
	'az = arrays
	'iz = integers
	'bz = Booleans
	'rs = Recordsets
	'fz = Functions
Dim ozNetwork, ozUser, ozFileSysObj
Dim ozCurrentUser
Dim szUserName, szComputerName, szHomeDirectory 

'Create objects
Set ozNetwork = CreateObject("WScript.Network")
Set ozUser = CreateObject("ADSystemInfo")
Set ozFileSysObj = CreateObject("Scripting.FileSystemObject")

'Get user name
szUserName = uCase(ozNetwork.UserName)

'Get home directory path
Set ozCurrentUser = GetObject("LDAP://" & ozUser.UserName)
szHomeDirectory = ozCurrentUser.Get("homeDirectory")

'Map H: if it doesn't exist
If not ozFileSysObj.FolderExists("H:\") then MapNetworkDrive "H:", szHomeDirectory, "", ""

'---------------------------------------------------------------------------------------------
'Functions

Function MapNetworkDrive(szDriveLetter,szNetworkPath, szNewUser, szPassword)
'Map network drive
On Error Resume Next
	Dim bzUpdateProfile

	bzUpdateProfile = "False"

	WriteLog "Mapping drive " & szDriveLetter

	If szNewUser = "" or szPassword = "" Then
		ozNetwork.MapNetworkDrive szDriveLetter, szNetworkPath, bzUpdateProfile
	Else
		ozNetwork.MapNetworkDrive szDriveLetter, szNetworkPath, bzUpdateProfile, szNewUser, szPassword
	End If
	If Err.Number <> 0 then
		WriteLog Err.Description
	Else
		WriteLog "Drive " & szDriveLetter & " was mapped"
	End If
End Function

Function WriteLog(szMessage)
'Write messages out to log file
On Error Resume Next
	Dim szNow, szTempFolder,szFilename
	Dim ozHistory

	szNow = CStr(Now)
	szTempFolder=mid(ozShell.ExpandEnvironmentStrings("%temp%"),3)
	szFilename = "c:" & szTempFolder & "\script_log.txt"

	ozBrowser.document.all.szlog.Value = szMessage  &  vbCrLf  &  ozBrowser.document.all.szlog.Value 

	Set ozHistory = ozFileSysObj.OpenTextFile(szFileName, 8, True)

	ozHistory.WriteLine(szNow  &  ":"  &  szComputerName  &  ":"  &  szUserName  &  ":"  &  szMessage)
	ozHistory.Close
	err.description = ""
	err.Number = 0
End Function
'---------------------------------------------------------------------------------------------

Log Name:	Application
Source:		MSExchangeTransport
Date:		4/6/2010 9:37:30 AM
Event ID:	15006
Task Category:	ResourceManager
Level:		Error
Keywords:	Classic
User:		N/A
Computer:	computername.domain.com
Description:
The Microsoft Exchange Transport service is rejecting message submissions because the available disk space has dropped below the configured threshold.
Resource utilization of the following resources exceed the normal level:
Queue database logging disk space ("C:\Program Files\Microsoft\Exchange Server\TransportRoles\data\Queue\") = 97% [Medium] [Normal=95% Medium=97% High=99%]
Back pressure caused the following components to be disabled:
Inbound mail submission from the Internet
Mail submission from the Pickup directory
Mail submission from the Replay directory

<add key="QueueDatabasePath" value="C:\Program Files\Microsoft\Exchange Server\TransportRoles\data\Queue" />
<add key="QueueDatabaseLoggingPath" value="C:\Program Files\Microsoft\Exchange Server\TransportRoles\data\Queue" />

<add key="QueueDatabasePath" value="D:\ExchangeQueue" />
<add key="QueueDatabaseLoggingPath" value="D:\ExchangeQueue" />

@echo off
REM This script checks the Last Result code of every Scheduled Task on Windows XP or 2003 Server.
REM If the code isn't 0x0 it emails a warning using Blat from http://www.blat.net.
REM The script has been adapted from a post I found on Techarena here: http://forums.techarena.in/server-scripting/972774.htm
REM Install Blat from the above website onto the PC or server to be monitored.
REM Save this script on the machine in c:\scripts as a .bat or .cmd file.
REM Amend YourEmailAddress@Domain.com, smtp.domain.com, c:\pathtoscript and @domain.com to suit your situation.
REM Schedule the script to run after all the other Scheduled Tasks have finished.

REM Change the values after the equals sign (=) below to you email address, SMTP server and the path to the script.

set YourEmailAddress=YourEmailAddress@Domain.com
set SMTPServer=smtp.domain.com
set PathToScript=c:\pathtoscript

REM Change the value of @domain.com below to be your email domain.
set FromAddress=%computername%@domain.com

REM Stop making changes now!

for /F "delims=" %%a in ('schtasks /query /v /fo:list ^| findstr /i "Taskname Result"') do call :Sub %%a
goto :eof

:Sub
set Line=%*
set BOL=%Line:~0,4%
set MOL=%Line:~38%
if /i %BOL%==Task (
set name=%MOL%
goto :eof
)
set result=%MOL%
echo Task Name=%name%, Task Result=%result%
if not %result%==0 (
echo Task %name% failed with result %result% >c:\scripts\taskcheckerlog.txt
blat %PathToScript%\taskcheckerlog.txt -to %YourEmailAddress% -subject "Warning! Failed Scheduled Task on %computername%" -serverSMTP %SMTPServer% -f %FromAddress%
)