Saber Nombre de PC

[CeLaYa]

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???

[zXxOsirisxXz]

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.

[HaDeS, -]

O tambien con apis

Código (vb) [Seleccionar] Expandir


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 jeje

saludos