Как получить список WorkGroup.. все облазил...

← →
Wud (2002-07-02 17:09) [0]

Ну достало все.. крыша едет. Нигде нормального ответа не нашел.
Как получить рабочую группу(список, если не одна).
Добавить в Combobox.

← →
Dimka Maslov © (2002-07-02 17:48) [1]

http://endimus.com/oldcontent/files/index_en.php?page=findcomp.htm

← →
Wud (2002-07-02 18:47) [2]

Очень бы хотелось не целый модуль, а всего лишь одну процедурку, функцию...
Кстати в WinApi наверняка есть такая функция... подскажите...
а то перекопал все, что начинается на Get... не нашел.

← →
Wud (2002-07-02 18:49) [3]

Я больше скажу, мне кажется хватит только своей группы рабочей.
Как?
Вот например локальное имечко получить - GetLocalByName
а WorkGroup??? как...

← →
Dimka Maslov © (2002-07-03 09:50) [4]

Для получения списка рабочих групп можно воспользоваться следующей процедурой:

procedure GetWorkgroups(List: TStrings);
var
Network: TNetworkNeighborhood;
begin
Network:=TNetworkNeighborhood.Create;
try
List.Assign(Network.Strings);
finally
Network.Free;
end;
end;

Для получения рабочей группы, в которой находится компьютер без сканирования всей сети надо поковырять методы TNetworkNeighborhood.OriginFolder и OriginFolderNT, со сканированием всей сети:

function GetCompWorkgroup: string;
var
Network: TNetworkNeighborhood;
begin
Network:=TNetworkNeighborhood.Create;
try
Result:=Network.Workgroup[GetComputerName];
finally
Network.Free;
end;
end;

← →
Wud (2002-07-03 16:43) [5]

Насколько я понял, ты все это предлагаешь из первой ссылки.
А жаль... неужели нету ничего подобного типа GetHostByName только с рабочей группой...
И еще, либо я туплю либа тут на самом деле не верно...
function GetCompWorkgroup: string; var Network: TNetworkNeighborhood; begin Network:=TNetworkNeighborhood.Create; try Result:=Network.Workgroup[GetComputerName]; finally Network.Free; end; end; !!! Result:=Network.Workgroup[GetComputerName]; !!!

GetComputerName в таком виде не прокатывает, чего нужно подставить?

← →
Wud (2002-07-03 16:43) [6]

Насколько я понял, ты все это предлагаешь из первой ссылки.
А жаль... неужели нету ничего подобного типа GetHostByName только с рабочей группой...
И еще, либо я туплю либа тут на самом деле не верно...

function GetCompWorkgroup: string;
var
Network: TNetworkNeighborhood;
begin
Network:=TNetworkNeighborhood.Create;
try
Result:=Network.Workgroup[GetComputerName];
finally
Network.Free;
end;
end;
!!!
Result:=Network.Workgroup[GetComputerName];
!!!

GetComputerName в таком виде не прокатывает, чего нужно подставить?

← →
Wud (2002-07-03 16:45) [7]

Насколько я понял, ты все это предлагаешь из первой ссылки.
А жаль... неужели нету ничего подобного типа GetHostByName только с рабочей группой...
И еще, либо я туплю либа тут на самом деле не верно...
Во втором варианте, предложенном тобой GetComputerName в таком виде не прокатывает, чего нужно подставить?

uses Dim (модуль используемый модулем Networks)

← →
asmer (2002-07-04 03:07) [9]

а скажите, как енто на вин32апи будет, а?.. мож, у кого есть процедурка с использованием вин32апи-функций... мне бы очень хотелось процедурку, которая сканит сеть и перечисляет все рабочие группы в ней... и чтоб ента процедурка использовала исключительно вин32апи, а не какие-нить компоненты... эх... ну не работает у меня то, что в МСДН советуют... (код приводить не буду, он не на делфи совсем... :))

>asmer
Качай модуль по ccылке выше. Это совсем и не компонент, а класс-оболочка для функций WinAPI, он может получать и список рабочих групп, и ввобще любую информацию о компьтерах в локальной сети, за исключением имён пользователей и паролей.

Как получить список WorkGroup.. все облазил... Найти похожие ветки