Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Tue, 05 Aug 2025 00:30:12 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080401072102 location: https://web.archive.org/web/20080401072102/https://techtasks.com/code/viewbookcode/1117 server-timing: captures_list;dur=0.722902, exclusion.robots;dur=0.036964, exclusion.robots.policy;dur=0.022401, esindex;dur=0.013555, cdx.remote;dur=287.512038, LoadShardBlock;dur=320.056599, PetaboxLoader3.datanode;dur=174.211795, PetaboxLoader3.resolve;dur=106.099303 x-app-server: wwwb-app202 x-ts: 302 x-tr: 633 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 set-cookie: wb-p-SERVER=wwwb-app202; 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 00:30:13 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Tue, 01 Apr 2008 07:21:02 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=19cd676dec979ab76c2f4c0df68b659b; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 11096 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Tue, 01 Apr 2008 07:21:02 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 30 Jun 2007 09:30:54 GMT", ; rel="prev memento"; datetime="Tue, 29 Jan 2008 13:56:52 GMT", ; rel="memento"; datetime="Tue, 01 Apr 2008 07:21:02 GMT", ; rel="next memento"; datetime="Fri, 21 Nov 2008 10:58:55 GMT", ; rel="last memento"; datetime="Mon, 01 Dec 2008 10:13:13 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_2_20080401054945_crawl100-c/52_2_20080401071838_crawl102.arc.gz server-timing: captures_list;dur=0.444769, exclusion.robots;dur=0.021672, exclusion.robots.policy;dur=0.013337, esindex;dur=0.008931, cdx.remote;dur=14.825717, LoadShardBlock;dur=348.596562, PetaboxLoader3.datanode;dur=163.850471, PetaboxLoader3.resolve;dur=296.340037, load_resource;dur=237.568552 x-app-server: wwwb-app202 x-ts: 200 x-tr: 640 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 Create an A and PTR record (Perl) - DNS on Windows Server 2003

Create an A and PTR record (Perl)

This code can be found in Chapter 14 of DNS on Windows Server 2003

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.

# Create an A and PTR record
# ---------------------------------------------------------------
# From the book "DNS on Windows Server 2003" 
# By Cricket Liu, Matt Larson & Robbie Allen
# Publisher: O'Reilly and Associates
# ISBN: 0-596-00562-8
# Book web site: https://rallenhome.com/books/dnsonw2k3/toc.html
# ---------------------------------------------------------------
use Win32::OLE;
use strict;
my ($strRR, $strReverseRR, $strDomain, $strReverseDomain);
# A record to add
$strRR = 'matrix.movie.edu. IN A 192.168.64.13';
$strDomain = 'movie.edu';
# PTR record to add
$strReverseRR = '13.64.168.192.in-addr.arpa IN PTR matrix.movie.edu';
$strReverseDomain = '168.192.in-addr.arpa.';
my ($objDNS, $objRR, $objDNSServer, $objRR2, $objOutParam);
$objDNS = Win32::OLE->GetObject('winMgmts:root\\MicrosoftDNS');
$objRR = $objDNS->Get('MicrosoftDNS_ResourceRecord');
$objDNSServer = $objDNS->Get('MicrosoftDNS_Server.Name="."');
# Create the A record
my $strNull;
$strNull = $objRR->CreateInstanceFromTextRepresentation($objDNSServer->Name, $strDomain, $strRR, $objOutParam);
$objRR2 = $objDNS->Get($objOutParam);
print 'Created Record: ' . $objRR2->TextRepresentation, "\n";
$objOutParam = undef;
# Create the PTR record
$strNull = $objRR->CreateInstanceFromTextRepresentation($objDNSServer->Name, $strReverseDomain, $strReverseRR, $objOutParam);
$objRR2 = $objDNS->Get($objOutParam);
print 'Created Record: ' . $objRR2->TextRepresentation, "\n";

This code has been viewed 909 times.

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

Original Source | Taken Source