Получить список всех компов в сети

Хеллоу



Подскажите, пожалуйста, код для получения списка (Name/IP) компьютеров находящихся в данный момент в текущей рабочей группе.



MASM, INTEL, XP

 

Тут только на Delphi:



http://www.e-dok.narod.ru/delphi/question1/lan/lan-017.html

 

На высокоуровневых языках у меня это есть.

 

Я думаю сложнее было бы перевести с ASM'а на Delphi...



Все функции теже, с добавлением вначале директивы invoke, Кроме FillChar - обнуление блока памяти.



Типы данных:

TNetResource -> NETRESOURCE

THandle -> DWORD

Integer -> DWORD



Вместо Repeat/Until используй директивы .REPEAT/.UNTIL



Вместо @ используйте offset, addr, или:

lea eax, память1

mov память2, eax



Вместо SizeOf(что-то) используйте sizeof что-то



PS: Вы же ReCtoR, а я Student 4-го курса, - не мне же Вас учить