|
|
re:Set objRootDSE = Get...
Set objRootDSE = GetObject("LDAP://rootDSE")<br>
<br>
Dim text<br>
<br>
' Schema Master<br>
Set objSchema = GetObject("LDAP://" & objRootDSE.Get("schemaNamingContext"))<br>
strSchemaMaster = objSchema.Get("fSMORoleOwner")<br>
Set objNtds = GetObject("LDAP://" & strSchemaMaster)<br>
Set objComputer = GetObject(objNtds.Parent)<br>
text="Forest-wide Schema Master FSMO: " & objComputer.Name & vbCrLf <br>
<br>
Set objNtds = Nothing<br>
Set objComputer = Nothing<br>
<br>
' Domain Naming Master<br>
Set objPartitions = GetObject("LDAP://CN=Partitions," & _<br>
objRootDSE.Get("configurationNamingContext"))<br>
strDomainNamingMaster = objPartitions.Get("fSMORoleOwner")<br>
Set objNtds = GetObject("LDAP://" & strDomainNamingMaster)<br>
Set objComputer = GetObject(objNtds.Parent)<br>
text=text&"Forest-wide Domain Naming Master FSMO: " & objComputer.Name & vbCrLf <br>
<br>
Set objNtds = Nothing<br>
Set objComputer = Nothing<br>
<br>
' PDC Emulator<br>
Set objDomain = GetObject("LDAP://" & objRootDSE.Get("defaultNamingContext"))<br>
strPdcEmulator = objDomain.Get("fSMORoleOwner")<br>
Set objNtds = GetObject("LDAP://" & strPdcEmulator)<br>
Set objComputer = GetObject(objNtds.Parent)<br>
text=text&"Domain's PDC Emulator FSMO: " & objComputer.Name & vbCrLf <br>
<br>
Set objNtds = Nothing<br>
Set objComputer = Nothing<br>
<br>
' RID Master<br>
Set objRidManager = GetObject("LDAP://CN=RID Manager$,CN=System," & _<br>
objRootDSE.Get("defaultNamingContext"))<br>
strRidMaster = objRidManager.Get("fSMORoleOwner")<br>
Set objNtds = GetObject("LDAP://" & strRidMaster)<br>
Set objComputer = GetObject(objNtds.Parent)<br>
text=text&"Domain's RID Master FSMO: " & objComputer.Name & vbCrLf <br>
<br>
<br>
Set objNtds = Nothing<br>
Set objComputer = Nothing<br>
<br>
' Infrastructure Master<br>
Set objInfrastructure = GetObject("LDAP://CN=Infrastructure," & _<br>
objRootDSE.Get("defaultNamingContext"))<br>
strInfrastructureMaster = objInfrastructure.Get("fSMORoleOwner")<br>
Set objNtds = GetObject("LDAP://" & strInfrastructureMaster)<br>
Set objComputer = GetObject(objNtds.Parent)<br>
text=text&"Domain's Infrastructure Master FSMO: " & objComputer.Name & vbCrLf <br>
<br>
text=text & vbCrLf &" Design by coolnetboy(coolnetboy@hotmail.com)"<br>
WScript.Echo text<br>
<br>
|
|