“未找到网络路径”使用WinNT提供程序和Delphi查询ADSI时

Question

我正在使用 WINNT 提供程序查询 ADSI，其代码类似于：

var
  User : IADSUser;
begin
  User := GetObject('WinNT://'+domainname+'/'+username + ', user') as IADSUser;
  ...
  ...

其中 GetObject 定义为：

function GetObject (const Name : string): IDispatch;
var
  Moniker : IMoniker;
  Eaten : integer;
  BindContext : IBindCtx;
  Dispatch : IDispatch;
begin
  OleCheck( CreateBindCtx( 0, BindContext ) );
  OleCheck( MkParseDisplayName( BindContext, PWideChar(  WideString( Name ) ), Eaten, Moniker ) );
  OleCheck( Moniker.BindToObject( BindContext, NIL, IDispatch,  Dispatch ) );
  Result := Dispatch;
end;

这已经工作了几年了，没有问题我有一个安装，但在特定域上，我得到一个 不同域查询时出现>网络路径未找到错误。此设置有 4 个不同的域。域之间存在完全信任，并且当从域内查询时，查询在有问题的域上运行良好。只是当从其他域之一尝试这一点时。可以使用许多其他工具查询域，所以一切看起来都很好。任何想法为什么这个特定的域可能会出现这个问题？