Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Thu, 07 Aug 2025 00:26:58 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080405040534 location: https://web.archive.org/web/20080405040534/https://techtasks.com/code/viewbookcode/56 server-timing: captures_list;dur=19.152962, exclusion.robots;dur=0.021454, exclusion.robots.policy;dur=0.011858, esindex;dur=0.013307, cdx.remote;dur=737.365596, LoadShardBlock;dur=585.611869, PetaboxLoader3.datanode;dur=269.055894, PetaboxLoader3.resolve;dur=118.295319 x-app-server: wwwb-app28 x-ts: 302 x-tr: 1375 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app28; 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: Thu, 07 Aug 2025 00:26:59 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Sat, 05 Apr 2008 04:05:32 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=e25668d0b390fb7a7cbf5cc79a724e27; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10833 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Sat, 05 Apr 2008 04:05:34 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Fri, 12 Oct 2007 09:53:56 GMT", ; rel="prev memento"; datetime="Sat, 02 Feb 2008 02:42:22 GMT", ; rel="memento"; datetime="Sat, 05 Apr 2008 04:05:34 GMT", ; rel="next memento"; datetime="Fri, 06 Jun 2008 00:35:35 GMT", ; rel="last memento"; datetime="Mon, 05 Jan 2009 19:44:17 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_20080405014647_crawl100-c/52_2_20080405040102_crawl102.arc.gz server-timing: captures_list;dur=0.844264, exclusion.robots;dur=0.036996, exclusion.robots.policy;dur=0.022028, esindex;dur=0.014406, cdx.remote;dur=280.588439, LoadShardBlock;dur=116.950203, PetaboxLoader3.datanode;dur=246.811548, load_resource;dur=245.588588, PetaboxLoader3.resolve;dur=110.805212 x-app-server: wwwb-app28 x-ts: 200 x-tr: 705 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 Listing05_List_DCs (VBScript) - Managing Enterprise Active Directory Services

Listing05_List_DCs (VBScript)

This code can be found in Chapter 7 of Managing Enterprise Active Directory Services

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

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

'# From the book "Managing Enterprise Active Directory Services"
'# ISBN: 0-672-32125-4
ON ERROR RESUME NEXT
Dim aDsPath, user, passwd, server
domain = "xyz.com"  'domain to retrieve DCs from
user   = "administrator@xyz.com"
passwd = "password"
' Need to get domain's default naming context
' (i.e. the domains DN)
Dim rootDSE
Set rootDSE = GetObject("LDAP://" & domain & "/RootDSE")
aDsPath =  "LDAP://" & domain & "/" & _
              rootDSE.Get("defaultNamingContext")
' Open the domain object with the supplied credentials
Dim ldapObj
Set ldapObj = GetObject("LDAP:")
Dim domainObj
Set domainObj = ldapObj.OpenDsObject(aDsPath,user,passwd,1)
' Retrieve the NTDS DNs that master for this domain
Dim masteredBy
masteredBy = domainObj.GetEx("masteredBy")
' Iterate through each NTDS object, get its parent
' and print out the dNSHostName attribute
Dim ntdsDN
for each ntdsDN in masteredBy
   Dim ntdsObj
   ntdsDN = "LDAP://" & strDomain & "/" & ntdsDN
   Set ntdsObj = ldapObj.OpenDsObject(ntdsDN,user,passwd,1)
   Dim serverObj
   Set serverObj = ldapObj.OpenDsObject(ntdsObj.Parent,user,passwd,1)
   Wscript.echo serverObj.Get("dNSHostName")
next

This code has been viewed 852 times.

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

Original Source | Taken Source