Help? - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Help?

How can i find out the IP of a network computer or the ip of all computers that are in the network?
10x

Comments

  • MasterijnMasterijn Posts: 188Member
    [b][red]This message was edited by Masterijn at 2004-2-24 14:40:56[/red][/b][hr]
    [b][red]This message was edited by Masterijn at 2004-2-24 14:40:34[/red][/b][hr]
    [b][red]This message was edited by Masterijn at 2004-2-24 14:40:7[/red][/b][hr]
    : How can i find out the IP of a network computer or the ip of all computers that are in the network?
    : 10x
    :
    :
    For a single computer you can use:
    [code]
    uses
    WinSock;

    function LookupName(const Name: string): TInAddr;
    var
    HostEnt: PHostEnt;
    InAddr: TInAddr;
    begin
    HostEnt := gethostbyname(PChar(Name));
    FillChar(InAddr, SizeOf(InAddr), 0);
    if HostEnt <> nil then
    begin
    with InAddr, HostEnt^ do
    begin
    S_un_b.s_b1 := Byte(h_addr^[0]);
    S_un_b.s_b2 := Byte(h_addr^[1]);
    S_un_b.s_b3 := Byte(h_addr^[2]);
    S_un_b.s_b4 := Byte(h_addr^[3]);
    end;
    end;
    Result := InAddr;
    end;
    [/code]









Sign In or Register to comment.