Routine de recherche du Hostname par l'adresse IP

[GallyHC]

Bonjour tous,

Voici une petite routine pour donner le HostName par une adresse IP. Fonctionne seulement sur Windows. La procédure StringConvert_memory() sert a la conversion du formatage d'une chaine en mémoire. Pour que le code soit compatible en Ascii et Unicode.

Code : Tout sélectionner

; +======================================================+
; |   ROUTINE DE RECHERCHE DU HOSTNAME PAR ADRESSE IP.   |
; +------------------------------------------------------+
; | COPYRIGHT(C)2007-2008, ALL RIGHT RESERVED KOAKDESIGN |
; +--------------+---------------------------------------+
; | Program type | PUREBASIC 4.40                        |
; +--------------+---------------------------------------+
; | VER & REV    | 0.0.1                                 |
; +--------------+---------------------------------------+
; | Program name | main.pbi                              |
; +======================================================+

; +======================================================+
; | Original Version: 0.0.1                              |
; +--------------+---------------------------------------+
; | Created by   | GallyHomeCorp                         |
; | Graphix by   |                                       |
; +--------------+---------------------------------------+
; | Comments:    |                                       |
; +--------------+                                       |
; |                                                      |
; |                                                      |
; |                                                      |
; +======================================================+

; +======================================================+
; | Système d'Exploitation                               |
; +--------------+---------------------------------------+
; | Window       | Oui                                   |
; | Linux        | NON                                   |
; | MacOS        | NON                                   |
; +======================================================+

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

EnableExplicit

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

InitNetwork()

#AF_INET      = 2
#SOCKET_ERROR = -1

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

Procedure.i StringConvert_memory(stext.s, format.l = #PB_Unicode)
; ROUTINE DE CONVERTION MUTI-FORMAT.
  Define *mem
  Define result.s

  *mem = AllocateMemory(StringByteLength(stext, format)+2)
  PokeS(*mem, stext, -1, format)
  ProcedureReturn *mem

EndProcedure

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

Procedure.s GetHostNameFromIP(sadress.s)
; ROUTINE DE RECHERCHE DU HOSTNAME.
  Protected lhadress.l
  Protected high.b = 1
  Protected low.b = 1 
  Protected wsaversion.w
  Protected wsa.WSAData
  Protected *host.HOSTENT

  PokeB (@wsaversion, high)
  PokeB (@wsaversion + 1, low)
  If WSAStartup_ (wsaversion, wsa) = #NOERROR
    lhadress = inet_addr_(StringConvert_memory(sadress, #PB_Ascii))
    If lhadress <> #SOCKET_ERROR
      If sadress <> "0.0.0.0" And sadress <> ""
        *host = gethostbyaddr_(@lhadress, 4, #AF_INET)
        If *host <> 0
          ProcedureReturn PeekS(*host\h_name, -1, #PB_Ascii)          
        EndIf
      EndIf
    EndIf
    WSACleanup_ ()
  EndIf
  ProcedureReturn ""

EndProcedure

; ****************************************************************************
; ****************************************************************************
; ****************************************************************************
; ****************************************************************************

; +--------------------------------------------------------------------------+
; |                                                                          |
; +--------------------------------------------------------------------------+

Debug GetHostNameFromIP("127.0.0.1")

J'ai aussi mis le code sur mon site a l'adresse "http://koakdesign.info/news/?url=4d&val=34"

Cordialement,
GallyHC

[Kwai chang caine]

Merci GallyHC
Le resultat est LOCALHOST chez moi, je suppose que c'est normal

[GallyHC]

bonjour,

Avec l'adresse IP "127.0.0.1" il est normal d'avoir LocalHost . sinon tu peux tester en indiquant l'adresse IP de ton poste local (surement en 192.168.x.x).

Cordialement,
GallyHC

[Kwai chang caine]

Mais quel c....quel c...
Des fois je m’épate tellement à repousser mes limites de jour en jours

Ca marche nickel....merci beaucoup GallyHC

[gildev]

Impressionnant. Un grand merci car ça va me servir.

[GallyHC]

Bonjour,

En fait c'est juste une adaptation d'un code en VB6, Je converti des code en fonction de mes besoins et je partage après.

Cordialement,
GallyHC

[Ar-S]

Testé avec l'adresse allouée pour ma box et ça fonctionne

[flaith]

C'est, en fait, un nslookup
Sinon sympa le code, merci du partage
Mais si tu as une adresse virtuelle (genre VirtualBox ou VMWare), tu as dans ce cas de figure plusieurs adresses IP, plus compliqué à gérer mais le résultat reste le même donc

[Kwai chang caine]

C'est, en fait, un nslookup

C'est dingue ce qu'en informatique y'a toujours une expression pour chaque chose
On dirait le domaine du médical....
Comment vous faites pour connaitre tous ces gros mots ????
Et surtout pour pouvoir les sortir au bon moment

Dire que j'en apprend tous les jours, c'est faire part d'un doux euphémisme....
Dire que je le retiendrais....serait faire part d'un doux optimisme....

Tiens ce soir j'essaierais de l'utiliser avant de l'oublier
Chérie.....tu peut me passer le NSLOOKUP s'il te plait

En tout cas merci FLAITH

[Backup]

C'est, en fait, un nslookup

C'est dingue ce qu'en informatique y'a toujours une expression pour chaque chose

c'est une commande !!

ouvre l'invite de commande , et tape nslookup
(ou menu demarrer /executer : tape nslookup )

tu couchera moins bete

[flaith]

Exact Dobro merci, et de rien KCC, merci aussi à toi

petite info sur la commande : nslookup

[Kwai chang caine]

Bon d'accord..c'est vrai si c'est une commande normal que ça ai un nom

Il n’empêche encore une que je connaissais pas.
Y'a peut etre un lexique de tout ce que l'on peut taper dans la zone commande
Hors mis le DOS bien sur, parce que en fin de compte c'est presque un langage a part entière

En tout cas c'est moins probant que la fonction de GALLYHC
J'ai ça comme réponse avec nslookup seul :

Code : Tout sélectionner

Serveur par dÚfaut :  HSIB.home
Address:  192.168.1.1

Ou ça avec nslookup 192.168.1.3

Code : Tout sélectionner

> nslookup 192.168.1.3
Serveur :  [192.168.1.3]
Address:  192.168.1.3

*** 192.168.1.3 ne parvient pas à trouver nslookup : No response from server

[Droopy]

merci pour ce code

[Backup]

Y'a peut etre un lexique de tout ce que l'on peut taper dans la zone commande

regarde là : en bas de page le tableau

http://fr.wikipedia.org/wiki/Nslookup

[Kwai chang caine]

Merci beaucoup DOBRO

Je sais pas si elles sont toutes la...mais ça en fait déjà pas mal

Ou est passé le temps ou on s’éclatait, a taper les DIR, RENAME, etc...
A cette époque, y'avait pas ce frénétique besoin de puissance, toujours plus pour toujours pareil

On mettait une journée pour installer un périphérique
Ca marchait jamais
Qu'est ce que c’était bien

Maintenant, l'informatique est aseptisé....comme toute la société d'ailleurs

Encore merci et bonne journée