Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Wed, 06 Aug 2025 18:29:56 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080405034815 location: https://web.archive.org/web/20080405034815/https://techtasks.com/code/viewbookcode/105 server-timing: captures_list;dur=0.488587, exclusion.robots;dur=0.020882, exclusion.robots.policy;dur=0.010626, esindex;dur=0.010584, cdx.remote;dur=48.363721, LoadShardBlock;dur=348.256014, PetaboxLoader3.datanode;dur=77.259688, PetaboxLoader3.resolve;dur=151.059104 x-app-server: wwwb-app222 x-ts: 302 x-tr: 428 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: Wed, 06 Aug 2025 18:29:57 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Sat, 05 Apr 2008 03:48:14 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=391236ddd8dbd13203a4014d56bd41a6; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 10473 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Sat, 05 Apr 2008 03:48:15 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Fri, 12 Oct 2007 09:11:47 GMT", ; rel="prev memento"; datetime="Sat, 02 Feb 2008 02:44:42 GMT", ; rel="memento"; datetime="Sat, 05 Apr 2008 03:48:15 GMT", ; rel="next memento"; datetime="Thu, 05 Jun 2008 23:57:22 GMT", ; rel="last memento"; datetime="Sat, 11 Oct 2008 01:45:22 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_20080405034724_crawl102.arc.gz server-timing: captures_list;dur=0.810904, exclusion.robots;dur=0.029109, exclusion.robots.policy;dur=0.013322, esindex;dur=0.019377, cdx.remote;dur=159.268156, LoadShardBlock;dur=229.802549, PetaboxLoader3.datanode;dur=165.040523, PetaboxLoader3.resolve;dur=299.495054, load_resource;dur=285.842786 x-app-server: wwwb-app222 x-ts: 200 x-tr: 730 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 Listing08_Find_All_Auxiliary_Classes (VBScript) - Managing Enterprise Active Directory Services

Listing08_Find_All_Auxiliary_Classes (VBScript)

This code can be found in Chapter 10 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
Dim user, passwd, server, absSchemaObj, classObj, ldapObj
server = "dc1"
user   = "administrator@xyz.com"
passwd = "password"
Set ldapObj = GetObject("LDAP:")
Set absSchemaObj = ldapObj.OpenDsObject("LDAP://" & server & "/Schema", _
                                        user, passwd, 1)
absSchemaObj.Filter = Array("Class")
For Each classO in absSchemaObj
 if classObj.Abstract = TRUE Then
   Wscript.Echo classObj.name
   If IsArray(classObj.PossibleSuperiors) = TRUE Then
      For Each possSup in classObj.PossibleSuperiors
        Wscript.Echo " " & possSup
      Next
   Else
        Wscript.Echo " " & classObj.PossibleSuperiors
   End If
 End If
Next

This code has been viewed 389 times.

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

Original Source | Taken Source