---
title: "Nätverk 2"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/27816-nätverk-2"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Niclas Ohlsson"
published: "2000-09-12T07:57:00.000Z"
updated: "2000-09-14T10:52:00.000Z"
replies: 1
views: 348
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/27816-nätverk-2"
---

# Nätverk 2

## #1 — Niclas Ohlsson, 2000-09-12T07:57Z

Hur gör man för att få fram vilka som är inne på nätverket (om man har ett litet nätverk på c:a 8st datorer)

Permalänk: https://www.webforum.nu/p/27816

## #2 — WiNNe, 2000-09-14T10:52Z

Om du menar vilka datorer som är anslutna så fungerar följande fint:
\--------------------------------
procedure TForm1.Button1Click(Sender: TObject); 
procedure Enum(h: THandle); 
var 
  nr: array\[0..2000\] of TNetResource; 
  nRes, cbBuf : Cardinal; 
  i: Integer; 
  he: THandle;
begin 
  nRes := 100; 
  cbBuf := sizeof(nr); 
  FillChar(nr, sizeof(nr), 0); 
  WNetEnumResource(h, nRes, @nr, cbBuf); 
  for i := 0 to nRes-1 do 
  begin 
  if (nr.dwDisplayType in \[RESOURCEDISPLAYTYPE_DOMAIN\]) then
    treeview1.items.add(treeview1.TopItem,pchar(nr.lpRemoteName)); 
    if (nr.dwDisplayType in \[RESOURCEDISPLAYTYPE_DIRECTORY,RESOURCEDISPLAYTYPE_SERVER\]) and Assigned(nr.lpRemoteName) then 
     treeview1.items.addchild(treeview1.TopItem,pchar(nr.lpRemoteName)); 
      if nr.dwDisplayType in \[RESOURCEDISPLAYTYPE_DOMAIN, 
RESOURCEDISPLAYTYPE_NETWORK\] then 
    begin 
      WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 
RESOURCEUSAGE_ALL, @nr, he); 
      Enum(he); 
      WNetCloseEnum(he); 
    end; 
   end; 
end; 
var 
  he: THandle; 
begin
  treeview1.Items.Clear; 
  WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
RESOURCEUSAGE_ALL, nil, he); 
  Enum(he); 
  WNetCloseEnum(he); 
end; 
\-----------------------------------
Släng upp en knapp och en Treeview.
Körde det här på jobb med ett jävla stort nätverk, flera hundra datorer, och det tog ett tag för den att bli klar. Om det bara är c:a 8 datorer bör det gå betydligt snabbare.

Permalänk: https://www.webforum.nu/p/400307

---

Tråden på webben: https://www.webforum.nu/amne/programmering/27816-nätverk-2