我的程序如何检测它是否在特定域上运行？

Question

我需要根据当前登录用户的位置来限制应用程序的特定功能。因为我必须在 Delphi 中实现这个逻辑，所以我不希望过度使用完整的活动目录/LDAP 查询。

我目前的想法是利用 DsGetDcName，并使用 DOMAIN_CONTROLLER_INFO 结构中返回的 GUID 并将其与硬编码常量进行比较。似乎只有在重新创建域时域 GUID 才会更改，因此这将提供我想要的功能，并且开销有限。我唯一担心的是我在 MSDN 上找不到任何文档来证实我的假设。

type
  EAccessDenied = Exception;
  EInvalidOwner = Exception;
  EInsufficientBuffer = Exception;
  ELibraryNotFound = Exception;

  NET_API_STATUS = Integer;

  TDomainControllerInfoA = record
    DomainControllerName: LPSTR;
    DomainControllerAddress: LPSTR;
    DomainControllerAddressType: ULONG;
    DomainGuid: TGUID;
    DomainName: LPSTR;
    DnsForestName: LPSTR;
    Flags: ULONG;
    DcSiteName: LPSTR;
    ClientSiteName: LPSTR;
  end;
  PDomainControllerInfoA = ^TDomainControllerInfoA;

const
  NERR_Success = 0;

procedure NetCheck(ErrCode: NET_API_STATUS);
begin
  if ErrCode <> NERR_Success then
  begin
    case ErrCode of
      ERROR_ACCESS_DENIED:
        raise EAccessDenied.Create('Access is Denied');
      ERROR_INVALID_OWNER:
        raise EInvalidOwner.Create('Cannot assign the owner of this object.');
      ERROR_INSUFFICIENT_BUFFER:
        raise EInsufficientBuffer.Create('Buffer passed was too small');
      else
        raise Exception.Create('Error Code: ' + IntToStr(ErrCode) + #13 +
          SysErrorMessage(ErrCode));
    end;
  end;
end;

function IsInternalDomain: Boolean;
var
  NTNetDsGetDcName: function(ComputerName, DomainName: PChar; DomainGuid: PGUID; SiteName: PChar; Flags: ULONG; var DomainControllerInfo: PDomainControllerInfoA): NET_API_STATUS; stdcall;
  NTNetApiBufferFree: function (lpBuffer: Pointer): NET_API_STATUS; stdcall;
  LibHandle: THandle;
  DomainControllerInfo: PDomainControllerInfoA;
  ErrMode: Word;
const
  NTlib = 'NETAPI32.DLL';
  DS_IS_FLAT_NAME = $00010000;
  DS_RETURN_DNS_NAME = $40000000;
  INTERNAL_DOMAIN_GUID: TGUID = '{????????-????-????-????-????????????}';
begin
 if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
    ErrMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
    LibHandle := LoadLibrary(NTlib);
    SetErrorMode(ErrMode);
    if LibHandle = 0 then
        raise ELibraryNotFound.Create('Unable to map library: ' + NTlib);
    try
      @NTNetDsGetDcName := GetProcAddress(Libhandle, 'DsGetDcNameA');
      @NTNetApiBufferFree       := GetProcAddress(Libhandle,'NetApiBufferFree');
      try
        NetCheck(NTNetDsGetDcName(nil, nil, nil, nil, DS_IS_FLAT_NAME or DS_RETURN_DNS_NAME, DomainControllerInfo));
        Result := (DomainControllerInfo.DomainName = 'foo.com') and (CompareMem(@DomainControllerInfo.DomainGuid,@INTERNAL_DOMAIN_GUID, SizeOf(TGuid)));//WideCharToString(pDomain);
      finally
        NetCheck(NTNetApiBufferFree(DomainControllerInfo));
      end;
    finally
      FreeLibrary(LibHandle);
    end;
    end
 else
  Result := False;
end;

按照建议在ServerFault 上添加了相关问题。

在Technet 上发现了另一篇有趣的文章，这似乎也暗示我是对的，但并未专门针对域 SID。

Answer 1

在域上创建服务帐户；

获取服务帐户的 GUID 并对其进行加密并将其保存在某处（注册表），可能作为企业安装过程的一部分以验证许可协议。

在启动客户端应用程序时查询域服务帐户 GUID 并使用保存的 GUID 对其进行验证。

或者创建您自己的企业“关键”服务器。

执行 LDAP 查询比执行所有域控制器的废话要容易。

Answer 2

如果我正确理解您的要求，那么在您的情况下最好的 API 是 GetUserNameEx。您可以选择EXTENDED_NAME_FORMAT 类型的NameFormat 参数的值，您可以更好地验证。如果您想额外验证有关程序运行所在计算机的信息，另一个函数GetComputerNameEx 会很有帮助。

Answer 3

我需要限制特定的 基于应用程序的功能 当前记录的位置 在用户中

如果您试图找出当前登录的用户的位置，则不应使用DsGetDcName。 p>

您的计算机可以加入 domainA。您的登录用户可以来自 domainB。在您的计算机上调用 DsGetDcName 不会为您提供 domainB GUID，但它会为您提供 domainA GUID

因此，我认为您应该改用LookupAccountName。 LookupAccountName 为您提供当前登录用户的 SID。然后，您可以从用户 SID 中提取域 SID。该域 SID 实际上是该用户来自的域。关于如何从用户SID中提取域SID的详细信息，请查看here

关于您关于域 GUID 唯一性的原始问题，很抱歉我没有答案。 AFAIK，没有可用的工具允许您更改域 SID 或 GUID。我不确定破解和更改它有多难。