在Win98下怎样取得登录后的域名(Domain Name)???!!!(100分)

tonycn · 2002-09-05

在Win98下登录到域后，怎样取得登录后的域名(Domain Name) 需列明使用的API，及取得域名的过程。 请指教，谢谢！

飘摇客 · 2002-09-05

９８下好像在注册表的 HKEY_LOCAL_MACHINE/System /CurrentControlSet/Services/VxD/MSTCP/，如果不是查找一下Ｄｏｍａｉｎ ２０００下在 HKEY_LOCAL_MACHINE/System/ControlSet001/Services/Tcpip/Parameters中．

NeiTech · 2002-09-06

procedure TForm1.Button2Click(Sender: TObject); var   i: Integer;   ssGroupList: TStrings;   ssaUserList: array of TStrings; begin   FpssPCInfo.Clear;   ssGroupList := TStringList.Create;   try     GetGroupList(ssGroupList);     SetLength(ssaUserList, ssGroupList.Count);     for i := 0 to ssGroupList.Count - 1 do     begin       ssaUserList := TStringList.Create;       GetUserList(ssGroupList, ssaUserList);       FpssPCInfo.AddObject(ssGroupList, ssaUserList);     end;   finally     ssGroupList.Free;   end; end; function TForm1.GetGroupList(assGroupNames: TStrings): Boolean; var   NetResource : TNetResource;   Buf                 : Pointer;   Count,BufSize,Res   : DWORD;   lphEnum         : THandle;   p                     NetResource;   i,j                   : SmallInt;   NetworkTypeList : TList; begin   Result := False;   NetworkTypeList := TList.Create;   assGroupNames.Clear;   //获取整个网络中的文件资源的句柄，lphEnum为返回名柄   Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,                            RESOURCEUSAGE_CONTAINER, Nil,lphEnum);   if Res <> NO_ERROR then Exit;//Raise Exception(Res);//执行失败   //获取整个网络中的网络类型信息   Count := $FFFFFFFF;//不限资源数目   BufSize := 8192;//缓冲区大小设置为8K   GetMem(Buf, BufSize);//申请内存，用于获取工作组信息   Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);   if ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕     or (Res <> NO_ERROR )//执行失败   then Exit;   P := PNetResource(Buf);   for I := 0 to Count - 1 do//记录各个网络类型的信息   begin     NetworkTypeList.Add(p);     Inc(P);   end;   //WNetCloseEnum关闭一个列举句柄   Res := WNetCloseEnum(lphEnum);//关闭一次列举   if Res <> NO_ERROR then Exit;   for J := 0 to NetworkTypeList.Count-1 do //列出各个网络类型中的所有工作组名称   begin//列出一个网络类型中的所有工作组名称     NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息     //获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回名柄     Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,                               RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);     if Res <> NO_ERROR then Break;//执行失败     while True do//列举一个网络类型的所有工作组的信息     begin       Count := $FFFFFFFF;//不限资源数目       BufSize := 8192;//缓冲区大小设置为8K       GetMem(Buf, BufSize);//申请内存，用于获取工作组信息       //获取一个网络类型的文件资源信息，       Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);       if ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕         or (Res <> NO_ERROR) //执行失败       then Break;       Memo1.Lines.Clear;       P := PNetResource(Buf);       for I := 0 to Count - 1 do//列举各个工作组的信息       begin         assGroupNames.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称         Memo1.Lines.Add(P^.lpRemoteName);         Inc(P);       end;     end;     Res := WNetCloseEnum(lphEnum);//关闭一次列举     if Res <>NO_ERROR then Break;//执行失败   end;   Result := True;   FreeMem(Buf);   NetworkTypeList.Destroy; end; function TForm1.GetUserList(asGroupName: string;   assPCNames: TStrings): Boolean; var   NetResource: TNetResource;   Buf: Pointer;   Count,BufSize,Res: DWord;   Ind: Integer;   lphEnum: THandle;   Temp: PNetResource; begin   Result := False;   Buf := nil;   assPCNames.Clear;   Memo2.Lines.Add(' ');   Memo2.Lines.Add('============================================================');   Memo2.Lines.Add(asGroupName);   Memo2.Lines.Add('============================================================');   FillChar(NetResource, SizeOf(NetResource), 0);//初始化网络层次信息   NetResource.lpRemoteName := @asGroupName[1];//指定工作组名称 //  NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器（工作组）   NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_DOMAIN;//类型为服务器（工作组）   NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;   NetResource.dwType := RESOURCETYPE_DISK;//列举文件资源信息   NetResource.dwScope := RESOURCE_GLOBALNET;   //获取指定工作组的网络资源句柄   Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,                        RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);   if Res <> NO_ERROR then Exit; //执行失败   while True do//列举指定工作组的网络资源   begin     Count := $FFFFFFFF;//不限资源数目     BufSize := 8192;//缓冲区大小设置为8K     GetMem(Buf, BufSize);//申请内存，用于获取工作组信息     //获取计算机名称     Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);     if Res = ERROR_NO_MORE_ITEMS then break;//资源列举完毕     if (Res <> NO_ERROR) then Exit;//执行失败     Temp := PNetResource(Buf);     for Ind := 0 to Count - 1 do//列举工作组的计算机名称     begin       //获取工作组的计算机名称，+2表示删除"/"，如//wangfajun=＞wangfajun       assPCNames.Add(Temp^.lpRemoteName + 2);       Memo2.Lines.Add(Temp^.lpRemoteName);       if (Trim(Label3.Caption) = Temp^.lpRemoteName+2) then Label4.Caption := asGroupName;       Inc(Temp);     end;   end;   Res := WNetCloseEnum(lphEnum);//关闭一次列举   if Res <> NO_ERROR then Exit;//执行失败   Result := True;   FreeMem(Buf); end;

tonycn · 2002-09-06

接受答案了.

在Win98下怎样取得登录后的域名(Domain Name)???!!!(100分)

tonycn

Unregistered / Unconfirmed

飘摇客

Unregistered / Unconfirmed

NeiTech

Unregistered / Unconfirmed

tonycn

Unregistered / Unconfirmed

Similar threads