Code: Select all
nslookup 162.125.65.13
Code: Select all
procedure.s IPtoHostName(IPaddress$)
#AF_INET = 2
Define *HOST.HOSTENT
Define LocalIPv4Address.L
InitNetwork()
LocalIPv4Address = MakeIPaddress (Val(StringField(IPaddress$, 1, ".")),
Val(StringField(IPaddress$, 2, ".")),
Val(StringField(IPaddress$, 3, ".")),
Val(StringField(IPaddress$, 4, ".")))
*HOST = gethostbyaddr_(@LocalIPv4Address, 4, #AF_INET)
if *HOST
HostName$ = PeekS(*HOST\h_name, -1, #PB_Ascii)
endif
ProcedureReturn Hostname$
EndProcedure
debug IPtoHostName("162.125.65.13")