Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: GetHostByAddr: имя рабочей группы не выводит у компа из виртуалки.  (Прочитано 6259 раз)
0 Пользователей и 1 Гость смотрят эту тему.
malor
Опытный

ru
Offline Offline

« : 19-11-2012 11:39 » 

Программа NameWG:
Код: (Delphi)
const
  TEST_ADDRESS = '192.168.146.1';

function GetCompName(const Addr: Integer): String;
var
  WSA: TWSAData;
  Host: PHostEnt;
  Err: Integer;
begin
  Result := RES_UNKNOWN;
  Err := WSAStartup(WSA_TYPE, WSA);

  if Err <> 0 then  
  begin            
    //ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;

  try
    if Addr = INADDR_NONE then Exit;

    Host := GetHostByAddr(@Addr, SizeOf(Addr), PF_INET);

    if Assigned(Host) then  
      Result := PChar(WideString(AnsiString(Host.h_name)))
    else
      //ShowMessage(SysErrorMessage(GetLastError));
  finally
    WSACleanup;
  end;

end;

Windows 7 имеет IP-адрес виртуального интерфейса "192.168.146.1".
Причислена к домену "mydomain.local":



Внутри "VMWare Player" вращается "Windows XP", имеющая IP-адрес "192.168.146.132".
Запуск программы "NameWG" из Windows XP:



Запуск программы из исходной Windows 7:



Сканирование из программы NetView:



Сканирование из программы LANState Pro:



Почему программа "NameWG"  не пишет в имени фразу "mydomain.local" у узла "192.168.146.1" ("Windows7") ?
Или, что то же самое, почему сканировщики "LANState Pro" & "NetView" не приписывают у узла xvm имя рабочей группы?
Оно всё-таки существует (не привожу на скринах).

Delphi XE

* NameWG_all_screenshots.zip (61.86 Кб - загружено 586 раз.)
* NameWG_19_11_2012_[2].zip (84.84 Кб - загружено 592 раз.)
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines