# This code modifies the system failure and recovery settings.
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------
use Win32::OLE 'in';
$Win32::OLE::Warn = 3;
# ------ SCRIPT CONFIGURATION ------
$strComputer = '.'; # e.g. rallen-srv01
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\cimv2');
$colRecoveryConfig = $objWMI->InstancesOf('Win32_OSRecoveryConfiguration');
foreach my $objConfig (in $colRecoveryConfig) {
	print $objConfig->Name, "\n";

	# Uncomment the settings you want to modify:
	# objConfig.AutoReboot = True
	# objConfig.DebugFilePath = "d:\dumps\memory.dmp"
	# objConfig.DebugInfoType = 1  ' Only available on W2K3
	# objConfig.KernelDumpOnly = False
	# objConfig.MiniDumpDirectory = "d:\minidumps" ' Only available on W2K3
	# objConfig.OverwriteExistingDebugFile = True
	# objConfig.SendAdminAlert = True
	# objConfig.WriteDebugInfo = True
	# objConfig.WriteToSystemLog = True
	
	$objConfig->Put_;
	print "Successfully modified settings.\n";
}
print "Successfully modified settings.\n"