Страница: 1 | 2 |
Вопрос: Howis для LAN
Добавлено: 02.03.05 14:57
Автор вопроса:
mc-black | Web-сайт:
Кто-нибудь подскажет, как в локальной 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-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #3
Добавлено: 03.03.05 08:13
Вот-вот, точно Whois
) Я не знал, как правильно, нутром чувствовал..
nslookup.. посмотрю, попробую
Номер ответа: 4
Автор ответа: mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #4
Добавлено: 03.03.05 22:07
Переформулируем вопрос... Известен IP-адрес в локальной сети, он статический, сеть без контроллера доменов. Возникает вопрос - имя компьютера, на котором в данный момент задан этот IP-адрес. Вроде просто... Это как ping наоборот - задаешь IP - получаешь имя компьютера. Мне ничего пока не удалось.
В общем, в сети конфликт IP-адресов, трафик раздается по IP-адресам на машины, предполагается, что у всех должны стоять пользовательские права и все не могут менять свой IP для получения трафика своего ближнего. На практике всё не так, админские права есть у каждого второго, а какой-то умник решил это использовать.
Надо выследить негодяя и раздать его месячный трафик бедным Шутка!
Номер ответа: 5
Автор ответа: mc-black
ICQ: 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
Вот такая штука должна работать (код, по-моему, с этого сайта):
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
Автор ответа: Pashenko
ICQ: 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-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #10
Добавлено: 04.03.05 18:55
Александр, т.е. HostByAddress - это то, что даст ответ на мой ворос? Прикольно, если сработает!
Номер ответа: 11
Автор ответа: mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #11
Добавлено: 04.03.05 18:57
Не для меня, т.к. я ниччего из этого не понял пока..
Номер ответа: 12
Автор ответа: Pashenko
ICQ: 176176951
Вопросов: 14
Ответов: 655
Профиль | | #12
Добавлено: 05.03.05 13:00
Типа того.
Научи?
Номер ответа: 13
Автор ответа: Sharp
Лидер форума
ICQ: 216865379
Вопросов: 106
Ответов: 9979
Web-сайт:
Профиль | | #13
Добавлено: 06.03.05 14:37
Что конкретно? MAC? IP? Имя компа?
Номер ответа: 14
Автор ответа: Alexandrus
ICQ: 496782368
Вопросов: 18
Ответов: 312
Web-сайт:
Профиль | | #14
Добавлено: 06.03.05 21:55
Есть пример для поиска компов в сети и отображения их IP-адресов , имен , комментариев.
Могу выслать , мыло давай!
C ув. Alex
Номер ответа: 15
Автор ответа: mc-black
ICQ: 308-534-060
Вопросов: 20
Ответов: 1860
Web-сайт:
Профиль | | #15
Добавлено: 06.03.05 21:59
mc-black[собака]yandex[точка]ru