如何从NT成员服务器获得NT域名服务器的计算机名??(100分)

ybangl · 2001-06-19

如何从NT成员服务器获得NT域名服务器的计算机名??

RedBeret · 2001-06-21

You should use API function NET_API_STATUS NetServerEnum(   LPWSTR servername,       DWORD level,             LPBYTE *bufptr,           DWORD prefmaxlen,         LPDWORD entriesread,     LPDWORD totalentries,     DWORD servertype,         LPWSTR domain,           LPDWORD resume_handle   );

教父 · 2001-06-21

//此过程得到局域网中所有的域 procedure GetServerList(List:TStrings); Type   {$H+}   PMyRec = ^MyRec;   MyRec = Record             dwScope      : Integer;             dwType        : Integer;             dwDisplayType : Integer;             dwUsage      : Integer;             LocalName    : String;             RemoteName    : String;             Comment      : String;             Provider      : String;           End;   {H-} Var   NetResource : TNetResource;   TempRec    : PMyRec;   Buf        : Pointer;   Count,   BufSize,   Res        : DWORD;   lphEnum    : THandle;   p          : PNetResourceArr;   i,   j          : SmallInt;   NetworkTypeList : TList; begin // Result := False;   NetworkTypeList := TList.Create;   List.BeginUpdate;   List.Clear;   GetMem(Buf, 8192);   Try     Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, Nil,lphEnum);     If Res <> 0 Then Raise Exception(Res);     Count := $FFFFFFFF;     BufSize := 8192;     Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);     If Res = ERROR_NO_MORE_ITEMS Then Exit;     If (Res <> 0) Then Raise Exception(Res);     P := PNetResourceArr(Buf);     For I := 0 To Count - 1 Do     Begin       New(TempRec);       TempRec^.dwScope := P^.dwScope;       TempRec^.dwType := P^.dwType ;       TempRec^.dwDisplayType := P^.dwDisplayType ;       TempRec^.dwUsage := P^.dwUsage ;       TempRec^.LocalName := StrPas(P^.lpLocalName);       TempRec^.RemoteName := StrPas(P^.lpRemoteName);       TempRec^.Comment := StrPas(P^.lpComment);       TempRec^.Provider := StrPas(P^.lpProvider);       NetworkTypeList.Add(TempRec);       Inc(P);     End;     Res := WNetCloseEnum(lphEnum);     If Res <> 0 Then Raise Exception(Res);     For J := 0 To NetworkTypeList.Count-1 Do     Begin       TempRec := NetworkTypeList.Items[J];       NetResource := TNetResource(TempRec^);       Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);       If Res <> 0 Then Raise Exception(Res);       While true Do       Begin         Count := $FFFFFFFF;         BufSize := 8192;         Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);         If Res = ERROR_NO_MORE_ITEMS Then Break;         If (Res <> 0) Then Raise Exception(Res);         P := PNetResourceArr(Buf);         For I := 0 To Count - 1 Do         Begin           List.Add(P^.lpRemoteName);           Inc(P);         End;       End;     End;     Res := WNetCloseEnum(lphEnum);     If Res <> 0 Then Raise Exception(Res);     //Result := True;     Finally       FreeMem(Buf);       NetworkTypeList.Destroy;   End;   List.EndUpdate; end; //此过程得到某个域中所有的计算机名 procedure GetUserList(fServer:string;List:TStrings); Var   NetResource : TNetResource;   Buf        : Pointer;   Count,   BufSize,   Res        : DWord;   Ind        : Integer;   lphEnum    : THandle;   Temp        : PNetResourceArr; Begin   List.Clear;   GetMem(Buf, 8192);   Try     FillChar(NetResource, SizeOf(NetResource), 0);     NetResource.lpRemoteName := @fServer[1];     NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;     NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;     NetResource.dwScope := RESOURCETYPE_DISK;     Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);     If Res <> 0 Then Exit;     While True Do     Begin       Count := $FFFFFFFF;       BufSize := 8192;       Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);       If Res = ERROR_NO_MORE_ITEMS Then Exit;       If (Res <> 0) then Exit;       Temp := PNetResourceArr(Buf);       For Ind := 0 to Count - 1 do       Begin         List.Add(Temp^.lpRemoteName + 2); { Add all the network usernames to List StringList }         Inc(Temp);       End;     End;     Res := WNetCloseEnum(lphEnum);     If Res <> 0 Then Raise Exception(Res); //    Result := True;   Finally     FreeMem(Buf);   End; End; 在NT4、D5下测试通过。

ybangl · 2001-06-22

怎样判断谁是主域控制器

ybangl · 2001-06-22

我用API函数NetServerEnum，如果只给域名则返回错误6118，如果服务器域名都给则返回错误2351 我的代码如下： //获得指定域中可见的指定类型的所有服务器 Function NetServerEnum(ServerName:LPTSTR;Level

WORD;BufPtr:SERVER_INFO_101_Array;PrefMaxLen

WORD;EntriesRead:LPDWORD;Totalentries:LPDWORD;ServerType

WORD;Domain:LPTSTR;Resume_handle:LPDWORD):integer; stdcall; external 'netapi32.dll'; //获得域控制器 Function GetDomain_Ctrl_ComputerName(Domain:string):string; var   V_ServerName:LPTSTR;   V_Level

WORD;   V_BufPtr:SERVER_INFO_101_Array;   V_PrefMaxLen

WORD;   V_EntriesRead:LPDWORD;   V_Totalentries:LPDWORD;   V_ServerType

WORD;   V_Domain:LPTSTR;   V_Resume_handle:LPDWORD;   TempResult

WORD; begin   V_ServerName:='ybl';   V_Level:=101;   SetLength(V_BufPtr,20);   V_PrefMaxLen :=1024;   new(V_EntriesRead);   V_EntriesRead^:=1;   new(V_Totalentries);   V_Totalentries^:=1;   V_ServerType :=$00000008;   V_Domain :=Pchar(Domain);   new(V_Resume_handle);   V_Resume_handle^ :=0;   TempResult:=NetServerEnum(V_ServerName,V_Level,V_BufPtr,V_PrefMaxLen,V_EntriesRead,V_Totalentries,V_ServerType,V_Domain,V_Resume_handle);   if TempResult=NO_ERROR then   begin     TempResult:=NetServerEnum(V_ServerName,V_Level,V_BufPtr,V_PrefMaxLen,V_EntriesRead,V_Totalentries,V_ServerType,V_Domain,V_Resume_handle);     GetDomain_Ctrl_ComputerName :=V_BufPtr[0].sv101_name;     //Application.MessageBox(pchar(inttostr(TempResult)),'dsa',mb_ok);   end end;

wjiachun · 2002-11-30

接受答案了.

如何从NT成员服务器获得NT域名服务器的计算机名??(100分)

ybangl

Unregistered / Unconfirmed

RedBeret

Unregistered / Unconfirmed

教父

Unregistered / Unconfirmed

ybangl

Unregistered / Unconfirmed

ybangl

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Similar threads