Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Tue, 05 Aug 2025 16:50:15 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080423053346 location: https://web.archive.org/web/20080423053346/https://techtasks.com/code/viewbookcode/731 server-timing: captures_list;dur=0.694115, exclusion.robots;dur=0.022303, exclusion.robots.policy;dur=0.009691, esindex;dur=0.016185, cdx.remote;dur=1578.988677, LoadShardBlock;dur=435.934486, PetaboxLoader3.datanode;dur=82.450066, PetaboxLoader3.resolve;dur=270.161748 x-app-server: wwwb-app222 x-ts: 302 x-tr: 2044 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app222; 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: Tue, 05 Aug 2025 16:50:17 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Wed, 23 Apr 2008 05:33:44 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=163b19c48a4ca2943c0fa3e73e3fdb37; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10639 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Wed, 23 Apr 2008 05:33:46 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 13 Oct 2007 15:51:39 GMT", ; rel="prev memento"; datetime="Tue, 12 Feb 2008 02:40:53 GMT", ; rel="memento"; datetime="Wed, 23 Apr 2008 05:33:46 GMT", ; rel="last memento"; datetime="Wed, 23 Apr 2008 05:33:46 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_20080423032540_crawl109-c/52_3_20080423053206_crawl102.arc.gz server-timing: captures_list;dur=0.460370, exclusion.robots;dur=0.014963, exclusion.robots.policy;dur=0.007587, esindex;dur=0.010185, cdx.remote;dur=48.415042, LoadShardBlock;dur=326.590080, PetaboxLoader3.datanode;dur=257.937180, PetaboxLoader3.resolve;dur=641.234005, load_resource;dur=615.614824 x-app-server: wwwb-app222 x-ts: 200 x-tr: 1040 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 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 Install dns (Perl) - Windows Server Cookbook

Install dns (Perl)

This code can be found in Chapter 13 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 simulates the same steps from the command-line solution.
# First an answer file is created containing the parameters to install
# the DNS Server. Then the sysocmgr command is invoked to perform the
# installation.
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------
use Win32::OLE;
$Win32::OLE::Warn = 3;
$strFile = 'c:\\dns_install.txt';
use constant ForWriting => 2;
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');
$objFile = $objFSO->OpenTextFile($strFile, ForWriting, 1);
$objFile->WriteLine('[netoptionalcomponents]');
$objFile->WriteLine('dns=1');
$objFile->Close();
$objWshShell = Win32::OLE->new('WScript.Shell');
$intRC = $objWshShell->Run('sysocmgr /i:%windir%\\inf\\sysoc.inf /u:' . $strFile, 0, 1);
if ($intRC != 0) {
    print 'Error returned from sysocmgr command: ' . $intRC, "\n";
}
else {
    print "DNS Server installed\n";
}

This code has been viewed 441 times.

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

Original Source | Taken Source