| Вопрос: Howis для LAN | Добавлено: 02.03.05 14:57 |
Автор вопроса:  mc-black | Web-сайт: mc-black.narod.ru/dzp.htm | ICQ: 308-534-060 |
| Кто-нибудь подскажет, как в локальной windows-сети найти имя компьютера по IP. IP статические, сеть без контроллера доменов. Должна быть какая-то утилитка для этого! Нужно срочно, просьба помочь. |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 02.03.05 19:23 |
| nslookup, мб? | ||
|
Номер ответа: 2 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #2 | Добавлено: 02.03.05 20:02 |
Сидел думал-думал, думал-думал.. оказывается howis = Whois ))
|
||
|
Номер ответа: 3 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #3 | Добавлено: 03.03.05 08:13 |
|
Вот-вот, точно Whois ) Я не знал, как правильно, нутром чувствовал..
nslookup.. посмотрю, попробую |
||
|
Номер ответа: 4 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #4 | Добавлено: 03.03.05 22:07 |
|
Переформулируем вопрос... Известен IP-адрес в локальной сети, он статический, сеть без контроллера доменов. Возникает вопрос - имя компьютера, на котором в данный момент задан этот IP-адрес. Вроде просто... Это как ping наоборот - задаешь IP - получаешь имя компьютера. Мне ничего пока не удалось.
В общем, в сети конфликт IP-адресов, трафик раздается по IP-адресам на машины, предполагается, что у всех должны стоять пользовательские права и все не могут менять свой IP для получения трафика своего ближнего. На практике всё не так, админские права есть у каждого второго, а какой-то умник решил это использовать. Надо выследить негодяя и раздать его месячный трафик бедным  Шутка!
|
||
|
Номер ответа: 5 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #5 | Добавлено: 03.03.05 22:09 |
|
Если кто всё знает, просьба мне объяснять как тупому-тупому ламеру.. в более простых терминах, чем nslookup (как оказалось, это не имя прикладной shareware-утилиты
|
||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 04.03.05 03:05 |
| Настройте DHCP и фейковые ARP-ответы для особо умных, тогда такой ситуации не возникнет | ||
|
Номер ответа: 7 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #7 | Добавлено: 04.03.05 10:29 |
|
Вот такая штука должна работать (код, по-моему, с этого сайта):
Option Explicit
Public Const SOCKET_ERROR = -1 Public Const AF_INET = 2 Public Const PF_INET = AF_INET Public Const MAXGETHOSTSTRUCT = 1024 Public Const SOCK_STREAM = 1 Public Const MSG_PEEK = 2 Private Type SockAddr sin_family As Integer sin_port As Integer sin_addr As String * 4 sin_zero As String * 8 End Type Private Type T_WSA wVersion As Integer wHighVersion As Integer szDescription(0 To 255) As Byte szSystemStatus(0 To 128) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpVendorInfo As Long End Type Dim WSAData As T_WSA Type Inet_Address Byte4 As String * 1 Byte3 As String * 1 Byte2 As String * 1 Byte1 As String * 1 End Type Public IPStruct As Inet_Address Public Type T_Host h_name As Long h_aliases As Long h_addrtype As Integer h_length As Integer h_addr_list As Long End Type Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb&
Declare Function gethostbyaddr Lib "wsock32.dll" (addr As Long, ByVal addr_len As Long, ByVal addr_type As Long) As Long Declare Function inet_addr Lib "wsock32.dll" (ByVal addr As String) As Long Declare Function GetHostByName Lib "wsock32.dll" Alias "gethostbyname" (ByVal HostName As String) As Long Declare Function GetHostName Lib "wsock32.dll" Alias "gethostname" (ByVal HostName As String, HostLen As Long) As Long Declare Function WSAStartup Lib "wsock32.dll" (ByVal a As Long, b As T_WSA) As Long Declare Function WSACleanUp Lib "wsock32.dll" Alias "WSACleanup" () As Integer Function HostByName(sHost As String) As String Dim s As String Dim p As Long Dim Host As T_Host Dim ListAddress As Long Dim ListAddr As Long Dim Address As Long s = String(64, 0) sHost = sHost + Right(s, 64 - Len(sHost)) p = GetHostByName(sHost) If p = SOCKET_ERROR Then Exit Function Else If p <> 0 Then CopyMemory Host.h_name, ByVal p, Len(Host) ListAddress = Host.h_addr_list CopyMemory ListAddr, ByVal ListAddress, 4 CopyMemory Address, ByVal ListAddr, 4 HostByName = InetAddrLongToString(Address) Else HostByName = "No DNS Entry" End If End If End Function Private Function InetAddrLongToString(Address As Long) As String CopyMemory IPStruct, Address, 4 InetAddrLongToString = CStr(Asc(IPStruct.Byte4)) + "." + CStr(Asc(IPStruct.Byte3)) + "." + CStr(Asc(IPStruct.Byte2)) + "." + CStr(Asc(IPStruct.Byte1)) End Function Function HostByAddress(ByVal sAddress As String) As String Dim lAddress As Long Dim p As Long Dim HostName As String Dim Host As T_Host lAddress = inet_addr(sAddress) p = gethostbyaddr(lAddress, 4, PF_INET) If p <> 0 Then CopyMemory Host, ByVal p, Len(Host) HostName = String(256, 0) CopyMemory ByVal HostName, ByVal Host.h_name, 256 If HostName = "" Then HostByAddress = "Unable to Resolve Address" HostByAddress = Left(HostName, InStr(HostName, Chr(0)) - 1) Else HostByAddress = "No DNS Entry" End If End Function Public Sub WinsockInit() WSAStartup &H101, WSAData End Sub |
||
|
Номер ответа: 8 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #8 | Добавлено: 04.03.05 10:31 |
|
А ещё можно попробовать пингануть нужный IP, и сразу же запустить "arp -a", в списке будет MAC-адрес искомой машины (не имя, конечно, но всё же...).
Кстати, MAC-адрес, насколько я понимаю, подделать сложнее, чем то же сетевое имя. |
||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 04.03.05 12:52 |
| Подделать несложно все | ||
|
Номер ответа: 10 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #10 | Добавлено: 04.03.05 18:55 |
| Александр, т.е. HostByAddress - это то, что даст ответ на мой ворос? Прикольно, если сработает! | ||
|
Номер ответа: 11 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #11 | Добавлено: 04.03.05 18:57 |
|
Настройте DHCP и фейковые ARP-ответы для особо умных, тогда такой ситуации не возникнет
Не для меня, т.к. я ниччего из этого не понял пока.. |
||
|
Номер ответа: 12 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #12 | Добавлено: 05.03.05 13:00 |
|
HostByAddress - это то, что даст ответ на мой ворос?
Типа того. Подделать несложно все
Научи? |
||
|
Номер ответа: 13 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #13 | Добавлено: 06.03.05 14:37 |
| Что конкретно? MAC? IP? Имя компа? | ||
|
Номер ответа: 14 Автор ответа:  AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #14 | Добавлено: 06.03.05 21:55 |
|
Есть пример для поиска компов в сети и отображения их IP-адресов , имен , комментариев.
Могу выслать , мыло давай! C ув. Alex |
||
|
Номер ответа: 15 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #15 | Добавлено: 06.03.05 21:59 |
| mc-black[собака]yandex[точка]ru | ||