FSMO Rollen ermitteln

[olc 18]

Replmon ist OT - der Threadersteller wollte Kommandozeilenbefehle. Fangen wir jetzt noch grafisch an, füllen wir noch ein paar Seiten. :D

 

Gruß olc

 

Off-Topic:

...und: Nein, ich muß nicht immer das letzte Wort haben. :D

[gelöscht 0]

Gilt VBS als Kommandozeile? Falls ja werfe ich folgendes Skript in den RIng:

 

' RootDSE wird für alle weiteren Abfragen benötigt
Set objRootDSE = GetObject("LDAP://rootDSE")
' Ermittlung des Schema Masters
Set objSchema = GetObject _
("LDAP://" & objRootDSE.Get("schemaNamingContext"))
strSchemaMaster = objSchema.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strSchemaMaster)
Set objComputer = GetObject(objNtds.Parent)
strSchemaMaster = Replace(objComputer.Name,"CN=","")
' Aufräumen
Set objNtds = Nothing
Set objComputer = Nothing
Set objSchema = Nothing
' Ermittlung des Domänennamens-Master
Set objPartitions = GetObject("LDAP://CN=Partitions," & _
objRootDSE.Get("configurationNamingContext"))
strDomainNamingMaster = objPartitions.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strDomainNamingMaster)
Set objComputer = GetObject(objNtds.Parent)
strDomain = Replace(objComputer.Name,"CN=","")
' Aufräumen
Set objComputer = Nothing
Set objNtds = Nothing
Set objPartitions = Nothing
' Ermittlung des PDC-Emulator
Set objDomain = GetObject _
("LDAP://" & objRootDSE.Get("defaultNamingContext"))
strPdcEmulator = objDomain.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strPdcEmulator)
Set objComputer = GetObject(objNtds.Parent)
strPDC = Replace(objComputer.Name,"CN=","")
' Aufräumen
Set objComputer = Nothing
Set objNtds = Nothing
Set objDomain = Nothing
' Ermittlung des 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)
strRID = Replace(objComputer.Name,"CN=","")
' Aufräumen
Set objComputer = Nothing
Set objNtds = Nothing
Set objRidMaster = Nothing
' Ermittlung des Infrastruktur-Master
Set objInfrastructure = GetObject("LDAP://CN=Infrastructure," & _
objRootDSE.Get("defaultNamingContext"))
strInfrastructureMaster = objInfrastructure.Get("fSMORoleOwner")
Set objNtds = GetObject("LDAP://" & strInfrastructureMaster)
Set objComputer = GetObject(objNtds.Parent)
strIM = Replace(objComputer.Name,"CN=","")
' Aufräumen
Set objComputer = Nothing
Set objNtds = Nothing
Set objInfrastructure = Nothing
' Globales Aufräumen
Set objRootDSE = Nothing
' Ergebnis ausgeben
WScript.Echo "Schema-Master:" & vbLf & _
" " & strSchemaMaster & vbLf & _
"Domänennamens-Master:" & vbLf & _
" " & strDomain & vbLf & _
"PDC-Emulator:" & vbLf & _
" " & strPDC & vbLf & _
"RID-Master:" & vbLf & _
" " & strRID & vbLf & _
"Infrastruktur-Master" & vbLf & _
" " & strIM

 

ASR

[IThome 10]

Wenn man sich im Nachhinein mal überlegt, dass die erste Antwort eigentlich schon passte ... :D :D :D Mal sehen, wo das noch hin führt (C-Code eventuell ?) ... ;)

[MichaStgt 10]

auch immer weider Gut jose-active-directory-dokumentation.aspx

 

Der spuckt dad auch aus=> Microsoft best practices Anaylser