Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Wed, 06 Aug 2025 11:32:37 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080422021129 location: https://web.archive.org/web/20080422021129/https://techtasks.com/code/viewbookcode/457 server-timing: captures_list;dur=0.569167, exclusion.robots;dur=0.026241, exclusion.robots.policy;dur=0.016518, esindex;dur=0.017518, cdx.remote;dur=15.393177, LoadShardBlock;dur=364.341051, PetaboxLoader3.datanode;dur=113.136474, PetaboxLoader3.resolve;dur=120.155965 x-app-server: wwwb-app201 x-ts: 302 x-tr: 402 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 set-cookie: wb-p-SERVER=wwwb-app201; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Wed, 06 Aug 2025 11:32:38 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Tue, 22 Apr 2008 02:11:30 GMT x-archive-orig-server: Apache/2.0.61 (Unix) PHP/4.4.7 mod_ssl/2.0.61 OpenSSL/0.9.7e mod_fastcgi/2.4.2 DAV/2 SVN/1.4.2 x-archive-orig-set-cookie: _session_id=7e311ec032b8610bac959dd2b832a560; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10862 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Tue, 22 Apr 2008 02:11:29 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 13 Oct 2007 17:13:18 GMT", ; rel="prev memento"; datetime="Thu, 14 Feb 2008 14:00:58 GMT", ; rel="memento"; datetime="Tue, 22 Apr 2008 02:11:29 GMT", ; rel="next memento"; datetime="Fri, 21 Nov 2008 04:57:20 GMT", ; rel="last memento"; datetime="Fri, 21 Nov 2008 04:57:20 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 52_3_20080422014638_crawl100-c/52_3_20080422020841_crawl102.arc.gz server-timing: captures_list;dur=0.527137, exclusion.robots;dur=0.022620, exclusion.robots.policy;dur=0.014337, esindex;dur=0.013465, cdx.remote;dur=18.350920, LoadShardBlock;dur=524.927899, PetaboxLoader3.resolve;dur=422.717681, PetaboxLoader3.datanode;dur=149.936243, load_resource;dur=163.483107 x-app-server: wwwb-app201 x-ts: 200 x-tr: 747 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip Sets failure options (Perl) - Windows Server Cookbook

Sets failure options (Perl)

This code can be found in Chapter 2 of Windows Server Cookbook

Purchase XP Cookbook or Networking Recipes for only $25 plus shipping! While supplies last.

Find out how to download all of the Perl code from this site.

# 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"

This code has been viewed 438 times.

New from the creators of TechTasks.com: StatSheet.com

Original Source | Taken Source