title image


Smiley Re: Alle eingeschalteten Computer im Netzwerk anzeigen... wie gehts?
damit bekommst du alle Rechner die im Netz angemeldet sind...ich denke mal das du das meinst, weil nur eingeschaltete rechner wirst du nicht bekommen können...die funktion strip killt nur die "\" aus dem rechnernamenfunction Strip(s: String): String;var i: Integer;begin Result := s; for i := Length(Result) downto 1 do begin if Result[i] = '\' then Delete(Result, i, 1); endend;procedure TForm1.FormCreate(Sender: TObject); procedure Enum(h: THandle); var nr: array[0..99] 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[i].dwDisplayType in [RESOURCEDISPLAYTYPE_DOMAIN, RESOURCEDISPLAYTYPE_SERVER]) and Assigned(nr[i].lpRemoteName) then begin if (nr[i].dwDisplayType in [RESOURCEDISPLAYTYPE_SERVER]) and Assigned(nr[i].lpRemoteName) then begin cbCompList.Add(Strip(nr[i].lpRemoteName)); end; if nr[i].dwDisplayType in [RESOURCEDISPLAYTYPE_NETWORK, RESOURCEDISPLAYTYPE_DOMAIN] then begin WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, @nr[i], he); Enum(he); WNetCloseEnum(he); end; end; end;var he: THandle;begin cbCompList := TStringList.Create; cbCompList.Duplicates := dupIgnore; WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER, nil, he); Enum(he); WNetCloseEnum(he); cbComps.Items.AddStrings(cbCompList); Statusbar1.SimpleText := IntToStr(cbCompList.Count) + ' Rechner im Netz'; cbCompList.Free;end;wenn du weiss wie man dazu noch die IP bekommst, dann sag mir doch bitte bescheid, die hätte ich nämlich auch gerne!mfgAlbion :-[

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: