Find PDC Emulator role holder

Is there a way locate the server with the PDCE role using VBScript? I know I can use an NSLOOKUP and capture its output

n开发者_如何学运维slookup -type=all _ldap._tcp.pdc._msdcs.mydomain.com

I want to use VBScript wihout calling external programs and it must run on a Windows 7 workstation (32 and 64bit) without additional software!

Thanks.

you can use NETDOM.EXE tool on server

netdom query /domain:DOM fsmo

Where DOM is my Netbios domain name

You can use DSQUERY.EXE tool

dsquery server -hasfsmo schema

(the five roles are: schema, rid, name, infr and pdc)

Determining FSMO Role Holders seems to be a good source

(Edited)

Here is an example of VBScript doing that using ADSI.

To determine the PDC Master you must query the fSMORoleOwner attribute on the partition corresponding to your domain.

Here is a sample VBS (visit http://adcoding.com/ for more information):

Set objDomDn = GetObject("LDAP://dc=concorp,dc=contoso,dc=com")
strfsmoRoleOwner = objDomDn.Get("fsmoRoleOwner")

Set objPDCfsmo = GetObject("LDAP://" &  strfsmoRoleOwner)
Set objPDCfsmoParent = GetObject(objPDCfsmo.Parent)

Wscript.Echo  objPDCfsmoParent.Get("dnsHostName")