Foro de elhacker.net

Buenas tardes, abusando de su conocimientos, quiesiera preguntarles si alguien sabe como obtener el nombre de una pc por medio de su dirección IP, es decir si tengo: 169.58.36.48, como saber el nombre de esa PC???

Solo se me ocurren con el Environ("COMPUTERNAME") una ves dentro de la PC con ese IP claro esta.

O tambien con apis

Private Declare Function WSAStartup Lib "WSOCK32" (ByVal wVersionRequired As Long, lpWSADATA As WSAData) As Long
Private Declare Function gethostname Lib "WSOCK32" (ByVal szHost As String, ByVal dwHostLen As Long) As Long
Private Type WSAData
    szSystemStatus(0 To 128) As Byte
    dwVendorInfo As Long
End Type
 
Private Sub Command1_Click()
Dim Nombre As String * 257
Dim WSAD As WSAData
WSAStartup &H101, WSAD
gethostname Nombre, 257
MsgBox Nombre
End Sub
 

una vez dentro de la PC :P jeje

saludos ;)