Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Tue, 05 Aug 2025 04:16:35 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080422021215 location: https://web.archive.org/web/20080422021215/https://techtasks.com/code/viewbookcode/922 server-timing: captures_list;dur=0.500904, exclusion.robots;dur=0.018371, exclusion.robots.policy;dur=0.008708, esindex;dur=0.010960, cdx.remote;dur=25.040213, LoadShardBlock;dur=163.352331, PetaboxLoader3.datanode;dur=47.032515 x-app-server: wwwb-app214 x-ts: 302 x-tr: 210 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app214; 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 04:16:36 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Tue, 22 Apr 2008 02:12:16 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: 10937 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:12:15 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Sat, 13 Oct 2007 19:23:53 GMT", ; rel="prev memento"; datetime="Tue, 12 Feb 2008 18:10:21 GMT", ; rel="memento"; datetime="Tue, 22 Apr 2008 02:12:15 GMT", ; rel="last memento"; datetime="Tue, 22 Apr 2008 02:12:15 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.453224, exclusion.robots;dur=0.017814, exclusion.robots.policy;dur=0.008618, esindex;dur=0.010513, cdx.remote;dur=30.651102, LoadShardBlock;dur=170.950256, PetaboxLoader3.datanode;dur=141.840799, PetaboxLoader3.resolve;dur=245.564042, load_resource;dur=228.664787 x-app-server: wwwb-app214 x-ts: 200 x-tr: 467 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 List dcs (Perl) - Windows Server Cookbook

List dcs (Perl)

This code can be found in Chapter 17 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 enumerates domain controllers being used.
# ---------------------------------------------------------------
# Adapted from VBScript code contained in the book:
#      "Windows Server Cookbook" by Robbie Allen
# ISBN: 0-596-00633-0
# ---------------------------------------------------------------
use Win32::OLE qw(in);
$Win32::OLE::Warn = 3;
# ------ SCRIPT CONFIGURATION ------
$strComputer = '<Exchange Server>'; # e.g. ExchServer2
# ------ END CONFIGURATION ---------
$objWMI = Win32::OLE->GetObject('winmgmts:\\\\' . $strComputer . '\\root\\MicrosoftExchangeV2');
$objDCList = $objWMI->ExecQuery('Select * from Exchange_DSAccessDC', undef, 48);
foreach my $objDc (in $objDCList) {
    print "DCName: ",$objDc->name,"\n";
    $strTemp = 'Automatic';
    if (($objDc->ConfigurationType == 0)) {
        $strTemp = 'Manual';
    }
    print "  Selection: $strTemp\n";
    print '  Is Fast  : ' . $objDc->IsFast, "\n";
    print '  In Sync  : ' . $objDc->IsInSync, "\n";
    print '  Is Up    : ' . $objDc->IsUp, "\n";
    print '  Ldap Port: ' . $objDc->LDAPPort, "\n";
    $strTemp = 'Global Catalog';
    if (($objDc->type == 0)) {
        $strTemp = 'Config';
    }
    if (($objDc->type == 1)) {
        $strTemp = 'Local Domain';
    }
    print "  Role     : $strTemp\n";
    print "-----------\n";
}
print "Script completed successfully.\n";

This code has been viewed 460 times.

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

Original Source | Taken Source