Set objRootDSE = GetObject("LDAP://rootDSE")

' Schema Master 
Set objSchema = GetObject("LDAP://" & objRootDSE.Get("schemaNamingContext")) 
strSchemaMaster = objSchema.Get("fSMORoleOwner") 
Set objNtds = GetObject("LDAP://" & strSchemaMaster) 
Set objComputer = GetObject(objNtds.Parent) 
WScript.Echo "Forest-wide Schema Master FSMO: " & objComputer.Name 
Set objNtds = Nothing 
Set objComputer = Nothing 

' Domain Naming Master 
Set objPartitions = GetObject("LDAP://CN=Partitions," & _ 
                             objRootDSE.Get("configurationNamingContext")) 
strDomainNamingMaster = objPartitions.Get("fSMORoleOwner") 
Set objNtds = GetObject("LDAP://" & strDomainNamingMaster) 
Set objComputer = GetObject(objNtds.Parent) 
WScript.Echo "Forest-wide Domain Naming Master FSMO: " & objComputer.Name 
Set objNtds = Nothing 
Set objComputer = Nothing 

' PDC Emulator 
Set objDomain = GetObject("LDAP://" & objRootDSE.Get("defaultNamingContext")) 
strPdcEmulator = objDomain.Get("fSMORoleOwner") 
Set objNtds = GetObject("LDAP://" & strPdcEmulator) 
Set objComputer = GetObject(objNtds.Parent) 
WScript.Echo "Domain's PDC Emulator FSMO: " & objComputer.Name 
Set objNtds = Nothing 
Set objComputer = Nothing 

' RID Master
Set objRidManager = GetObject("LDAP://CN=RID Manager$,CN=System," & _ 
                             objRootDSE.Get("defaultNamingContext")) 
strRidMaster = objRidManager.Get("fSMORoleOwner") 
Set objNtds = GetObject("LDAP://" & strRidMaster) 
Set objComputer = GetObject(objNtds.Parent) 
WScript.Echo "Domain's RID Master FSMO: " & objComputer.Name 
Set objNtds = Nothing 
Set objComputer = Nothing 

' Infrastructure Master 
Set objInfrastructure = GetObject("LDAP://CN=Infrastructure," & _ 
                                 objRootDSE.Get("defaultNamingContext")) 
strInfrastructureMaster = objInfrastructure.Get("fSMORoleOwner") 
Set objNtds = GetObject("LDAP://" & strInfrastructureMaster) 
Set objComputer = GetObject(objNtds.Parent) 
WScript.Echo "Domain's Infrastructure Master FSMO: " & objComputer.Name