VPF::Получить список всех сетевых имен в локальном сете

pantero

Дата 10.6.2002, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 9.6.2002

Репутация: нет
Всего: нет

Это опять я,

привет

Кто нибудь знает. как получить список всех сетевых имен в локальном сете. И как в Дельфи можно открыть какую -нибудь из них (сет компов)???

Спасибо,
Pantero

Vit

Дата 10.6.2002, 03:00 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Вот решение приведенное на http://delphi.mastak.ru для нахождения всех компютеров:

Код


var
  Computer      : Array[1..500] of String[25];
  ComputerCount : Integer;

procedure FindAllComputers(Workgroup: String);
Var
  EnumHandle  : THandle; 
  WorkgroupRS : TNetResource; 
  Buf         : Array[1..500] of TNetResource; 
  BufSize     : Integer; 
  Entries     : Integer; 
  Result      : Integer; 

begin 
  ComputerCount := 0;
  Workgroup := Workgroup + #0;
  FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0); 
  With WorkgroupRS do begin 
    dwScope := 2; 
    dwType := 3; 
    dwDisplayType := 1; 
    dwUsage := 2; 
    lpRemoteName := @Workgroup[1]; 
  end; 

  WNetOpenEnum( RESOURCE_GLOBALNET, 
                RESOURCETYPE_ANY, 
                0, 
                @WorkgroupRS, 
                EnumHandle ); 

  Repeat 
    Entries := 1; 
    BufSize := SizeOf(Buf); 

    Result := 
     WNetEnumResource( EnumHandle, 
                       Entries, 
                       @Buf, 
                       BufSize ); 
   If (Result = NO_ERROR) and (Entries = 1) then begin 
      Inc( ComputerCount ); 
      Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName); 
    end; 
  Until (Entries <> 1) or (Result <> NO_ERROR); 

  WNetCloseEnum( EnumHandle ); 
end;  { Find All Computers }

А что значит открыть компютер?
Обычная команда windows: "\\MyAnotherComputer\MySharedFolder\" позволяет обратится к какой-нибудь shared папке

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

pantero

Дата 10.6.2002, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 9.6.2002

Репутация: нет
Всего: нет

Спасиб, большое

У меня есть другой вопрос. Есть ли уменя ест прада Админа, могу ли перезагрузить комп, с другого компа и что то вроде этого (запустить прогу на Server через другого компа)

Vit

Дата 10.6.2002, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

В одном топике должна обсуждаться 1 тема, пожалуйста задайте свой вопрос отдельной темой.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »