Carview!

CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Thu, 07 Aug 2025 00:12:42 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080404214639 location: https://web.archive.org/web/20080404214639/https://techtasks.com/code/viewbookcode/102 server-timing: captures_list;dur=0.811504, exclusion.robots;dur=0.026044, exclusion.robots.policy;dur=0.010869, esindex;dur=0.012740, cdx.remote;dur=314.339180, LoadShardBlock;dur=116.558706, PetaboxLoader3.datanode;dur=40.694643, PetaboxLoader3.resolve;dur=30.965570 x-app-server: wwwb-app220 x-ts: 302 x-tr: 466 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=1 set-cookie: wb-p-SERVER=wwwb-app220; 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:12:43 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Fri, 04 Apr 2008 21:46:38 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=1bf97b623683f98a4a8c35dac2e8bb20; path=/ x-archive-orig-cache-control: no-cache x-archive-orig-content-length: 11146 x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Fri, 04 Apr 2008 21:46:39 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Fri, 12 Oct 2007 09:11:43 GMT", ; rel="prev memento"; datetime="Sat, 02 Feb 2008 02:35:31 GMT", ; rel="memento"; datetime="Fri, 04 Apr 2008 21:46:39 GMT", ; rel="next memento"; datetime="Wed, 04 Jun 2008 05:36:12 GMT", ; rel="last memento"; datetime="Fri, 10 Oct 2008 17:06:29 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_20080404195322_crawl103-c/52_2_20080404214419_crawl102.arc.gz server-timing: captures_list;dur=0.418512, exclusion.robots;dur=0.013633, exclusion.robots.policy;dur=0.007210, esindex;dur=0.008969, cdx.remote;dur=263.188876, LoadShardBlock;dur=217.661612, PetaboxLoader3.datanode;dur=169.467732, PetaboxLoader3.resolve;dur=232.820248, load_resource;dur=233.158581 x-app-server: wwwb-app220 x-ts: 200 x-tr: 752 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_Transfer_Schema_FSMO (VBScript) - Managing Enterprise Active Directory Services

Listing05_Transfer_Schema_FSMO (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 server, user, passwd
server = "dc2"
user = "administrator@xyz.com"
passwd = "password"
' Update the becomeSchemaMaster operational attribute
' Note that in this case, an authenticated RootDSE session must be established
Dim ldapObj, rootDSEObjW
Set ldapObj = GetObject("LDAP:")
Set rootDSEObjW = ldapObj.OpenDsObject(rootDSEObj.ADsPath,user,passwd,1)
rootDSEObjW.Put "becomeSchemaMaster", server
rootDSEObjW.SetInfo
' Get the schema container DN
Dim rootDSEObj, query
Set rootDSEObj = GetObject("LDAP://" & server & "/RootDSE")
query = "<LDAP://" & server & "/" _
              & rootDSEObj.Get("schemaNamingContext") _
            & ">;(&(objectClass=dMD)(fSMORoleOwner=*));fSMORoleOwner;subtree"
' Set up the ADO query
Dim adoObj
Set adoObj = CreateObject("ADODB.Connection")
adoObj.Provider = "ADsDSOObject"
adoObj.Open "AD Provider", user, passwd
' Execute the query and get the object referenced in fSMORoleOwner
Dim resObj, fsmoNTDSDN, fsmoNTDSObj
Set resObj  = adoObj.Execute(query)
fsmoNTDSDN = "LDAP://" & server & "/" & resObj.Fields(0).Value
Set fsmoNTDSObj = ldapObj.OpenDsObject(fsmoNTDSDN,user,passwd,1)
' Get the parent of that object which will have the dNSHostName attribute
' of the Schema FSMO
Dim fsmoObj
Set fsmoObj = ldapObj.OpenDsObject(fsmoNTDSObj.Parent,user,passwd,1)
WScript.Echo fsmoObj.dnsHostName

This code has been viewed 502 times.

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

Original Source | Taken Source