Сети

AndreyKa 14.04.2004 - 17:21 | Нужна программа для определения сети и нахождения IP-адресов. (С++ Builder 5.0)
Deflorator 1 - 15.04.2004 - 01:15 | нету
enum 2 - 15.04.2004 - 08:21 | у меня тоже
FWP 3 - 15.04.2004 - 08:27 | А что такое нахождение IP адресов. И кто их терял.
enum 4 - 15.04.2004 - 08:29 | да ты ее сам нарисуй, я дулал типа такого на билдере. сканирует сеть пингами. этж несложно.
NTFS 5 - 15.04.2004 - 11:26 | А если получить через API список всех компьютеров в сети? Как это делает Виндовс в Сетевом окружении.
FWP 6 - 15.04.2004 - 12:33 | to NTFS/ Так ты получишь только свою подсеть или что видит BROWSER домена. Если нужно получить сеть за маршрутизатором, то PING.
AndreyKa 7 - 22.04.2004 - 20:33 | Спасибо конечно, а исходника нет ни у кого, очень, очень нужно!!! или где можно найти.
Deflorator 8 - 22.04.2004 - 22:01 | есть делфовый, но там один апи - переведешь. надо?
AndreyKa 9 - 23.04.2004 - 09:37 | Да! Конечно надо! Это тоже сгодиться! Большое спасибо! Пришли все что есть, буду очень благодарен! e-mail: yellow2000@yandex.ru
Deflorator 10 - 23.04.2004 - 20:20 | unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Winsock, ImgList; type TForm1 = class(TForm) Button1: TButton; TreeView1: TTreeView; ImageList1: TImageList; procedure Button1Click(Sender: TObject); private { Private declarations } public procedure Scan(Res: TNetResource; Root: boolean); end; var Form1: TForm1; TreeDomain: TTreeNode; TreeServer: TTreeNode; implementation {$R *.dfm} function GetIPAddress(NetworkName: String): String; var Error: DWORD; HostEntry: PHostEnt; Data: WSAData; Address: In_Addr; begin Delete(NetworkName, 1, 2); Error:=WSAStartup(MakeWord(1, 1), Data); if Error = 0 then begin HostEntry:=gethostbyname(PChar(NetworkName)); Error:=GetLastError(); if Error = 0 then begin Address:=PInAddr(HostEntry^.h_addr_list^)^; Result:=inet_ntoa(Address); end else Result:='Unknown'; end else Result:='Error'; WSACleanup(); end; procedure TForm1.Scan(Res: TNetResource; Root: boolean); var hEnum: cardinal; nrResource: array[0..512] of TNetResource; dwSize: DWORD; numEntries: DWORD; I: DWORD; dwResult: DWORD; begin if Root then dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, nil, hEnum) else dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, @Res, hEnum); if dwResult = NO_ERROR then begin dwSize := SizeOf(nrResource); numEntries := DWORD(-1); if WNetEnumResource(hEnum, numEntries, @nrResource, dwSize) = NO_ERROR then begin for i := 0 to numEntries - 1 do begin Application.ProcessMessages; if Assigned(nrResource[i].lpRemoteName) then if nrResource[i].dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN then TreeDomain := TreeView1.Items.Add(nil, nrResource[i].lpRemoteName) else if nrResource[i].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then TreeServer := TreeView1.Items.AddChild(TreeDomain, nrResource[i].lpRemoteName + ' IP: ' + GetIPAddress(nrResource[i].lpRemoteName)) else TreeView1.Items.AddChild(TreeServer, nrResource[i].lpRemoteName); Scan(nrResource[i], false); end; WNetCloseEnum(hEnum); end; end; end; procedure TForm1.Button1Click(Sender: TObject); var R:TNetResource; begin TreeView1.Items.Clear; Scan(R, True); end; end.
NTFS 11 - 24.04.2004 - 12:01 | Все работает. Спасибо. Мне это тоже было нужно - я собирался сам делать. Сейчас буду разбираться, как работает.
AndreyKa 12 - 28.04.2004 - 23:26 | Работать то она работает, только она сканирует мне все папки и файлы которые открыты на сетевых компах. И IP-адреса не определяет. Програмка определяет IP компа с которого я запускаю прогу, если закоментировать: begin for i := 0 to numEntries - 1 do begin Application.ProcessMessages; // if Assigned(nrResource[i].lpRemoteName) then //if nrResource[i].dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN then // TreeDomain := TreeView1.Items.Add(nil, nrResource[i].lpRemoteName) //else // if nrResource[i].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then TreeServer := TreeView1.Items.AddChild(TreeDomain, nrResource[i].lpRemoteName + ' IP: ' + GetIPAddress(nrResource[i].lpRemoteName)) else TreeView1.Items.AddChild(TreeServer, nrResource[i].lpRemoteName); Scan(nrResource[i], false); и потом опять выводит все файлы и пишет IP:Unknown Стоит Novell это не проблема?
Deflorator 13 - 29.04.2004 - 00:22 | конечно, проблема
AndreyKa 14 - 29.04.2004 - 20:43 | И что подскажите делать, как обойти этот Novell, что бы все работало нормально и определял IP?
UE 15 - 30.04.2004 - 11:33 | Товарищи, а вам SNMP не поможет?
AndreyKa 16 - 30.04.2004 - 20:34 | Что это или кто это? И чем он может помочь.
UE 17 - 01.05.2004 - 05:44 | http://www.snmp.org/protocol/

>>