Робочие группы

← →
TARIK © (2004-07-13 13:37) [0]

ПРИВЕТ!
Как найти все робочые группы в сети??
Толька без компов!!!!
Плиз ПОМОГИТЕ ОЧЕНЬ НАДА!!!!

← →
TARIK © (2004-08-10 18:49) [1]

А чо слабо вам???? :(

← →
able © (2004-08-10 20:17) [2]

Не знаю никак робочих групп.

===
""Смысл жизни состоит в том, чтобы умело скрывать её бессмысленность"" (с) Даль. http://www.maxx-ch.net

← →
Rouse_ © (2004-08-10 22:35) [3]

> А чо слабо вам???? :(
Ты знаешь, братан, видать слабо...

← →
Undert © (2004-08-10 22:55) [4]

TARIK ©

В натуре, с таким хамлом иди ка ты отсюда ...

← →
Piter © (2004-08-10 23:07) [5]

В натуре, слабо. Ламаки мы.

← →
Алхимик © (2004-08-10 23:22) [6]

Робочие группы в сети но без компов - это наверно девелоперы на перекуре.
Как найти? В курилке!

← →
Undert © (2004-08-10 23:23) [7]

Алхимик ©

LOL :))

← →
TARIK © (2004-08-12 12:27) [8]

Ну што вы налители, Я ЦЕЛЫЙ МЕСЕЦ ЖДАЛ ОТВЕТА И НЕПОЛУЧИЛ!!!!
Ну нужно мне рабочие групы узнать, а как зделать незнаю!!!!!

← →
Алхимик © (2004-08-12 12:32) [9]

> [8] TARIK © (12.08.04 12:27)

В курилке смотрел? [6]

← →
Anatoly Podgoretsky © (2004-08-12 12:40) [10]

А чего же тогда про группы роботов спрашивал?

← →
DK (2004-08-12 12:40) [11]

Начинай от своего компа, иди по сетевому кабелю.
Должен всех найти.

← →
Agent13 © (2004-08-12 12:40) [12]

Значецца так - бирёш, ищещь групы, ну те каторые без компов, и спрашеваеш - каторая тут у вас робочая?

← →
Cobalt © (2004-08-12 12:41) [13]

Посмотри тут исходник - как пример нахождения чего-нито в сети.
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621104&n=20

Если ты программер, то додумаешься, как получить список групп, а нет - значит не судьба тебе программить :(

← →
Rouse_ © (2004-08-12 12:55) [14]

Советую научиться нормально общаться на форуме, тем более если хочешь что-то получить от абсолютно незнакомых тебе людей...

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); end; _GROUP_INFO_0 = record grpi0_name: LPWSTR; end; TGroupInfo0 = _GROUP_INFO_0; TGrounInfo0Array = array of TGroupInfo0; function NetGroupEnum(servername: LPCWSTR; level: DWORD; var bufptr: Pointer; prefmaxlen: DWORD; var entriesread: DWORD; var totalentries: DWORD; resume_handle: PDWORD): DWORD; stdcall; external "NetApi32.dll"; function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall; external "NetApi32.dll"; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var GroupInfo: Pointer; entriesread, totalentries: DWORD; I: integer; begin if NetGroupEnum(nil, 0, GroupInfo, DWORD(-1), entriesread, totalentries, nil) = NO_ERROR then try Memo1.Lines.Clear; for I := 0 to entriesread - 1 do Memo1.Lines.Add(TGrounInfo0Array(@(GroupInfo^))[I].grpi0_name); finally NetApiBufferFree(GroupInfo); end; end; end.

← →
Danilka © (2004-08-12 13:00) [15]

> Я ЦЕЛЫЙ МЕСЕЦ ЖДАЛ ОТВЕТА И НЕПОЛУЧИЛ!!!!

За целый месяц, однако, даже самый ленивый разберется. Если ему действительно это нужно. Но ты целый месяц просто ждал. Следовательно, я делаю вывод, что реально тебе это не нужно.

← →
Яод (2004-08-12 13:41) [16]

TARIK ©
терпеливый однако, но тоже, добился своего )

← →
Cobalt © (2004-08-12 13:48) [17]

2 Rouse_ © (12.08.04 12:55) [14]
Хм, решил из любопытсва проверить этот код - выдаёт 1 запись:
"None"

А потом посмотрел справку:
The NetGroupEnum function retrieves information about each global group in the security database, which is the security accounts manager (SAM) database or, in the case of domain controllers, the Active Directory.

Это как-то не вяжется ни с тем, что мне выдаёт Проводник в Microsoft Windows Network, ни с тем, что у меня в "Группах" пользователей

← →
Rouse_ © (2004-08-12 14:06) [18]

> [17] Cobalt © (12.08.04 13:48)
Ну так если ты внимательно прочитал справку то понял что нужно указывать имя домена а не локальной машины (nil), в случае доменной сети :)

← →
Rouse_ © (2004-08-12 14:07) [19]

А для групп пользователей NetUserGetGroups

← →
Rouse_ © (2004-08-12 14:12) [20]

К примеру подставляю имя доменного сервера и получаю следующий список:

Buhgalteria DnsUpdateProxy IT MANAGER MBS MBSADMINISTRATION MCCS MCCSADMINISTRATION SEMINAR Администраторы домена Администраторы предприятия Администраторы схемы Владельцы-создатели групповой политики Гости домена Издатели сертификатов Компьютеры домена Контроллеры домена Пользователи домена

>[13]Cobalt ©
Все бы хорошо но в во всех примерах которых я читал используються средства ВИНДЫ!!! А на 98 неработает коректно!!! Штобы найти все компы в сети мне пришлось сканировать диапазон АПИ по 139 порту, и получилось довольно хорошо!!! Моя прога ищет болше всех компов:)! Но возникла проблема составления списка компов ХОЧЕТЬСЯ ЧТОБЫ ИЩЕ И РАБОЧУЮ ГРУПУ ПОКАЗЫВАЛО :)!

Rouse_
Твой пример будет работать тока на NT :(

Я делал на основе этого:
(Код не мой, нашел где-то)

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Winsock; type TForm1 = class(TForm) Button1: TButton; TreeView1: TTreeView; procedure Button1Click(Sender: TObject); private { Private declarations } public procedure Scan(Res: TNetResource; Root: boolean); { Public declarations } 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 Scan(R, True); end; end.

ISP ©
Ну неработает у меня средсвами винды. Скажем так: У меня когда я захожу в "Сетевое окружение" Нету нечего, сообщает что сеть недоступна (ЕТО ИЗЗА СВИЧЕЙ :( )!! Под ХР У мя получаеться узнать РАБОЧИЕ ГРУПЫ в сети но в 98 нуникак! :(

>TARIK © (12.08.04 14:35) [25]
Не совсем понимаю при чём здесь свичи? Имхо в винде галюны. Снеси драйвера сетевухи и поставь снова. Или локальный фаревол проверь (если есть).

> [24] ISP © (12.08.04 14:28)
Код мой, только это не очень хороший вариант кода, вот тут получше будет...
http://delphimaster.net/view/6-1091730361/

>Rouse_ © (12.08.04 14:44) [27]
Спасибо за код. Я из него тогда принцип взял и переделал под свою специфику. Когда-то очень помогло, времени было мало.

Робочие группы Найти похожие ветки