偵測架構主機

發行項
02/21/2024

Active Directory 網域服務具有多宿主更新系統;每個域控制器都會保存目錄的可寫入複本。架構更新會傳播至屬於相同樹狀結構或樹系的所有網域。由於很難協調架構的衝突更新，所以架構更新只能在單一伺服器上執行。具有執行更新許可權的伺服器可能會變更，但在任何指定時間只有一部伺服器具有該許可權。此伺服器稱為架構主機。企業中安裝的第一個 DC 預設為架構主機。

架構變更只能在架構主要層級進行。若要偵測哪一個 DC 是架構主機，請執行下列步驟。

偵測DC架構主機

讀取任何 DC 上架構容器的 fsmoRoleOwner 屬性。 fsmoRoleOwner 屬性會針對架構主機傳回 nTDSDSA 對象的辨別名稱（DN）。
系結至 您剛擷取其 DN 的 nTDSDSA 物件。這個物件的父代是包含架構主機之 DC 的伺服器物件。
取得 nTDSDSA 物件的父代 ADsPath。父系是伺服器物件。
系結至伺服器物件。
取得伺服器物件的 dNSHostName 屬性。這是包含架構主機之DC的 DNS 名稱。
將架構主機的 DNS 名稱指定為伺服器，並將 DN 指定為架構容器的 DN，以系結至架構主機。例如，如果伺服器是 “dc1.fabrikam.com”，而架構容器 DN 是 “cn=schema，cn=configuration，dc=fabrikam，dc=com”，ADsPath 會如下所示。
```
LDAP://dc1.fabrikam.com/cn=schema,cn=configuration,dc=fabrikam,dc=com
```

建議您找到架構主機並系結至架構，以進行架構變更。不過，您可以將架構主機移至另一部伺服器。

若要讓另一部伺服器成為架構主機，適當許可權的使用者可以：

使用架構管理員 MMC 嵌入式管理單元。

注意

Active Directory 架構 MMC 嵌入式管理單元必須手動註冊。若要註冊架構嵌入式管理單元，您必須從 Windows System32 目錄中的命令提示字元執行下列命令。

regsvr32.exe schmmgmt.dll
使用 NTDSUTIL 命令行公用程式。
使用第三方應用程式（發出適當LDAP寫入的應用程式）。

若要以程式設計方式成為架構主機，在適當許可權使用者的內容中執行的應用程式，可以將作業屬性 的LDAP寫入成為該 DC上的 rootDSE。這會起始架構主機從目前持有者到本機 DC 的不可部分完成傳輸。

下列程式代碼範例會尋找架構主機。下列函式會系結至架構主機電腦上的架構容器。

HRESULT BindToSchemaMaster(IADsContainer **ppSchemaMaster)
{
HRESULT hr = E_FAIL;
// Get rootDSE and the schema container DN.
IADs *pObject = NULL;
IADs *pTempSchema = NULL;
IADs *pNTDS = NULL;
IADs *pServer = NULL;
BSTR bstrParent;
LPOLESTR szPath = new OLECHAR[MAX_PATH];
VARIANT var, varRole,varComputer;
hr = ADsOpenObject(L"LDAP://rootDSE",
         NULL,
         NULL,
         ADS_SECURE_AUTHENTICATION, // Use Secure Authentication.
         IID_IADs,
         (void**)&pObject);
if (hr == S_OK)
{
  hr = pObject->Get(CComBSTR("schemaNamingContext"), &var);
  if (hr == S_OK)
  {
    wcscpy_s(szPath,L"LDAP://");
    wcscat_s(szPath,var.bstrVal);
    hr = ADsOpenObject(szPath,
             NULL,
             NULL,
             ADS_SECURE_AUTHENTICATION, // Use Secure Authentication.
             IID_IADs,
             (void**)&pTempSchema);
 
    if (hr == S_OK)
    {
      /*
      Read the fsmoRoleOwner attribute to identify which server is 
      the schema master.
      */  
      hr = pTempSchema->Get(CComBSTR("fsmoRoleOwner"), &varRole);
      if (hr == S_OK)
      {
        // The fsmoRoleOwner attribute returns the nTDSDSA object.
        // The parent is the server object.
        // Bind to NTDSDSA object and get parent.
        wcscpy_s(szPath,L"LDAP://");
        wcscat_s(szPath,varRole.bstrVal);
        hr = ADsOpenObject(szPath,
             NULL,
             NULL,
             ADS_SECURE_AUTHENTICATION,
             IID_IADs,
             (void**)&pNTDS);
        if (hr == S_OK)
        {
          hr = pNTDS->get_Parent(&bstrParent);
          if (hr == S_OK)
          {
            /*
            Bind to server object and get the DNS name of 
            the server.
            */
            wcscpy_s(szPath,bstrParent);
            hr = ADsOpenObject(szPath,
               NULL,
               NULL,
               ADS_SECURE_AUTHENTICATION,
               IID_IADs,
               (void**)&pServer);
            if (hr == S_OK)
            {
              // Get the dns name of the server.
              hr = pServer->Get(CComBSTR("dNSHostName"), 
                  &varComputer);
              if (hr == S_OK)
              {
                    wcscpy_s(szPath,L"LDAP://");
                    wcscat_s(szPath,varComputer.bstrVal);
                    wcscat_s(szPath,L"/");
                    wcscat_s(szPath,var.bstrVal);
                    hr = ADsOpenObject(szPath,
                         NULL,
                         NULL,
                         ADS_SECURE_AUTHENTICATION,
                         IID_IADs,
                         (void**)ppSchemaMaster);
                    if (FAILED(hr))
                    {
                      if (*ppSchemaMaster)
                      {
                        (*ppSchemaMaster)->Release();
                        (*ppSchemaMaster) = NULL;
                      }
                    }
              }
              VariantClear(&varComputer);
            }
            if (pServer)
              pServer->Release();
          }
          SysFreeString(bstrParent);
        }
        if (pNTDS)
          pNTDS->Release();
      }
      VariantClear(&varRole);
    }
    if (pTempSchema)
      pTempSchema->Release();
  }
  VariantClear(&var);
}
if (pObject)
    pObject->Release();
 
return hr;
}

下列程式代碼範例會顯示架構主機之計算機的 DNS 名稱。

On Error Resume Next
 
'''''''''''''''''''
' Bind to the rootDSE
''''''''''''''''''''
sPrefix = "LDAP://"
Set root= GetObject(sPrefix & "rootDSE")
If (Err.Number <> 0) Then
   BailOnFailure Err.Number, "on GetObject method"
End If
 
'''''''''''''''''''
' Get the DN for the schema
''''''''''''''''''''
sSchema = root.Get("schemaNamingContext")
If (Err.Number <> 0) Then
   BailOnFailure Err.Number, "on Get method"
End If
 
'''''''''''''''''''
' Bind to the schema container
''''''''''''''''''''
Set Schema= GetObject(sPrefix & sSchema )
If (Err.Number <> 0) Then
   BailOnFailure Err.Number, "on GetObject method to bind to schema"
End If
''''''''''''''''''''
' Read the fsmoRoleOwner attribute to see which server is the 
' schema master.
''''''''''''''''''''
sMaster = Schema.Get("fsmoRoleOwner")
If (Err.Number <> 0) Then
   BailOnFailure Err.Number, "on IADs::Get method for fsmoRoleOwner"
End If
''''''''''''''''''''
' The fsmoRoleOwner attribute returns the nTDSDSA object.
' The parent is the server object.
' Bind to NTDSDSA object and get the parent object.
''''''''''''''''''''
Set NTDS = GetObject(sPrefix & sMaster)
If (Err.Number <> 0) Then
   BailOnFailure Err.Number, "on GetObject method for NTDS"
End If
sServer = NTDS.Parent
If (Err.Number <> 0) Then
   BailOnFailure Err.Number, "on IADs::get_Parent method"
End If
''''''''''''''''''''
' Bind to server object
' and get the reference to the computer object.
''''''''''''''''''''
Set Server = GetObject(sServer)
If (Err.Number <> 0) Then
   BailOnFailure Err.Number, "on GetObject method for " & sServer
End If
sComputer = Server.Get("dNSHostName")
''''''''''''''''''''
' Display the DNS name for the computer.
''''''''''''''''''''
strText = "Schema master has the following DNS name: "& sComputer
WScript.echo strText
 
 
 
''''''''''''''''''''
' Display subroutines
''''''''''''''''''''
 
Sub BailOnFailure(ErrNum, ErrText)
    strText = "Error 0x" & Hex(ErrNum) & " " & ErrText
    MsgBox strText, vbInformation, "ADSI Error"
    WScript.Quit
End Sub

共用方式為

偵測架構主機

意見反應

其他資源