Discussion :

[abelman]

C'est pareil comme pour le ping. ça doit être le firewall

[Sadneth]

J'ai fait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tracert -h 1 www.lesacteursdelombre.com

Pour info, c'est mon site qui est hébergé par OnLine.net

et j'ai eu pour résultat :

D‚termination de l'itin‚raire vers web.pro.proxad.net [212.27.37.71]

avec un maximum de 1 sautsÿ:

1 68 ms 71 ms 71 ms lns06.par.net.tiscali.fr [212.129.20.226]

Itin‚raire d‚termin‚.

Mais quand je fais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tracert -h 1 www.microsoft.fr

J'ai eu :

D‚termination de l'itin‚raire vers www.microsoft.fr [195.6.184.9]

avec un maximum de 1 sautsÿ:

1 69 ms 71 ms 71 ms lns06.par.net.tiscali.fr [212.129.20.226]

Itin‚raire d‚termin‚.

Donc lns06.par.net.tiscali.fr [212.129.20.226] , c'est juste mon fournisseur d'accés... Mais ca ne doit pas être loin...

[abelman]

Envlève le nombre de saut dans ta commande

[Sadneth]

Quand je ne limite pas le saut :

D‚termination de l'itin‚raire vers www.microsoft.fr [195.6.184.9]

avec un maximum de 30 sautsÿ:



1 67 ms 71 ms 71 ms lns06.par.net.tiscali.fr [212.129.20.226]

2 76 ms 71 ms 71 ms vlan22.gw2.par.net.tiscali.fr [213.36.82.62]

3 77 ms 71 ms 71 ms ge-1-1-1-0.bb2.par.net.tiscali.fr [213.36.82.102]

4 68 ms 71 ms 71 ms so-1-0-0-0.bb1.par.net.tiscali.fr [212.129.8.1]

5 88 ms 71 ms 71 ms so-0-0-0-0.bb1.cou.net.tiscali.fr [212.129.8.25]

6 77 ms 71 ms 71 ms so-0-0-0-0.bb1.lil.net.tiscali.fr [212.129.8.98]

7 77 ms 71 ms 83 ms fe0-0-63.lil-te.net.tiscali.fr [212.129.17.26]

8 77 ms 82 ms 83 ms fe01-pictime-gw.fr.cw.net [195.154.227.65]

9 * * * D‚lai d'attente de la demande d‚pass‚.

10 * * * D‚lai d'attente de la demande d‚pass‚.

11 * * * D‚lai d'attente de la demande d‚pass‚.

12 * * * D‚lai d'attente de la demande d‚pass‚.

13 * * * D‚lai d'attente de la demande d‚pass‚.

14 * * * D‚lai d'attente de la demande d‚pass‚.

15 * * * D‚lai d'attente de la demande d‚pass‚.

16 * * * D‚lai d'attente de la demande d‚pass‚.

17 * * * D‚lai d'attente de la demande d‚pass‚.

18 * * * D‚lai d'attente de la demande d‚pass‚.

19 * * * D‚lai d'attente de la demande d‚pass‚.

20 * * * D‚lai d'attente de la demande d‚pass‚.

21 * * * D‚lai d'attente de la demande d‚pass‚.

22 * * * D‚lai d'attente de la demande d‚pass‚.

23 * * * D‚lai d'attente de la demande d‚pass‚.

24 * * * D‚lai d'attente de la demande d‚pass‚.

25 * * * D‚lai d'attente de la demande d‚pass‚.

26 * * * D‚lai d'attente de la demande d‚pass‚.

27 * * * D‚lai d'attente de la demande d‚pass‚.

28 * * * D‚lai d'attente de la demande d‚pass‚.

29 * * * D‚lai d'attente de la demande d‚pass‚.

30 * * * D‚lai d'attente de la demande d‚pass‚.



Itin‚raire d‚termin‚.

[Admin]

et en desactivant ton firewall ? rassure moi tu passe pas par un proxi ?

[Sadneth]

Là en fait, tu parles en charabia.
J'ai 3 firewall d'activé, c'est tout :
- Celui de XP
- Celui de Norton
- Et Kerio

Et j'ai pas à me plaindre honnêtement... Après Proxi, euh, c'est trop pr moi là

[grafikm_fr]

Bonjour,
Je voudrais résoudre une adresse IP afin de récupérer le contenu dans une variable.
MaChaine = MaSuperFonctionDeResolutionIP("213.36.226.25")

Dans un module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
 
Option Explicit
 
Private Const WSADescription_Len As Long = 256
Private Const WSASYS_Status_Len As Long = 128
Private Const WS_VERSION_REQD As Long = &H101
Private Const IP_SUCCESS As Long = 0
Private Const SOCKET_ERROR As Long = -1
Private Const AF_INET As Long = 2
 
Private Type WSADATA
  wVersion As Integer
  wHighVersion As Integer
  szDescription(0 To WSADescription_Len) As Byte
  szSystemStatus(0 To WSASYS_Status_Len) As Byte
  imaxsockets As Integer
  imaxudp As Integer
  lpszvenderinfo As Long
End Type
 
Private Declare Function WSAStartup Lib "wsock32" _
  (ByVal VersionReq As Long, _
   WSADataReturn As WSADATA) As Long
 
Private Declare Function WSACleanup Lib "wsock32" () As Long
 
Private Declare Function inet_addr Lib "wsock32" _
  (ByVal s As String) As Long
 
Private Declare Function gethostbyaddr Lib "wsock32" _
  (haddr As Long, _
   ByVal hnlen As Long, _
   ByVal addrtype As Long) As Long
 
Private Declare Sub CopyMemory Lib "kernel32" _
   Alias "RtlMoveMemory" _
  (xDest As Any, _
   xSource As Any, _
   ByVal nbytes As Long)
 
Private Declare Function lstrlen Lib "kernel32" _
   Alias "lstrlenA" _
  (lpString As Any) As Long
 
 
Public Function SocketsInitialize() As Boolean
 
   Dim WSAD As WSADATA
 
   SocketsInitialize = WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS
 
End Function
 
 
Public Sub SocketsCleanup()
 
   If WSACleanup() <> 0 Then
       MsgBox "Windows Sockets error occurred in Cleanup.", vbExclamation
   End If
 
End Sub
 
 
Public Function GetHostNameFromIP(ByVal sAddress As String) As String
 
   Dim ptrHosent As Long
   Dim hAddress As Long
   Dim nbytes As Long
 
   If SocketsInitialize() Then
 
     'convert string address to long
      hAddress = inet_addr(sAddress)
 
      If hAddress <> SOCKET_ERROR Then
 
        'obtain a pointer to the HOSTENT structure
        'that contains the name and address
        'corresponding to the given network address.
         ptrHosent = gethostbyaddr(hAddress, 4, AF_INET)
 
         If ptrHosent <> 0 Then
 
           'convert address and
           'get resolved hostname
            CopyMemory ptrHosent, ByVal ptrHosent, 4
            nbytes = lstrlen(ByVal ptrHosent)
 
            If nbytes > 0 Then
               sAddress = Space$(nbytes)
               CopyMemory ByVal sAddress, ByVal ptrHosent, nbytes
               GetHostNameFromIP = sAddress
            End If
 
         Else: MsgBox "Call to gethostbyaddr failed."
         End If 'If ptrHosent
 
      SocketsCleanup
 
      Else: MsgBox "String passed is an invalid IP."
      End If 'If hAddress
 
   Else: MsgBox "Sockets failed to initialize."
   End If  'If SocketsInitialize
 
End Function

Dans un form: deux textBox, Text1 et Text2 et un bouton COmmand1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
   Text2.Text = GetHostNameFromIP(Text1.Text)
End Sub

[Sadneth]

Merci, mais celà ne répond pas aux problèmes...

Je me répète parce que je sais pas si je me suis bien expliqué :
J'ai besoin de faire IpConfig

Mais pas sur mon IP, mais sur les IP des gens qui viennent sur mon site.

[grafikm_fr]

J'ai pas compris

Tu veux, connaissant l'IP de qqun, trouver son hostname ou quoi???

[Sadneth]

Je comprend :

Ma question est : y'a-t-il moyen de savoir de quel fournisseur vient une telle IP.

Si je fais : MaSuperFonction("UNE IP D'UNE NET")

Et bien il me sort un tas d'information dont celle du fournisseur d'accés de l'IP demandé...

[grafikm_fr]

Ben si tu fais la fonction que je t'ai mis,
par exemple si je resous "123.123.122.121" et que ca te sort

jesaispasquoi.wanadoo.fr

T'as moyen de savoir que ca vient de Wanadoo, non???

[Sadneth]

Oui, en effet, ca serait bon comme ça... Mais là, quand j'essai sur mon IP, il me sort le nom de mon serveur...

[abelman]

Oui, en effet, ca serait bon comme ça... Mais là, quand j'essai sur mon IP, il me sort le nom de mon serveur...

Oui parce qu'il voit ton ip du réseau local

[Sadneth]

C'est bizarre, car je lui donne mon IP internet et non 127.1.1...

[hpfx]

Là en fait, tu parles en charabia.
J'ai 3 firewall d'activé, c'est tout :
- Celui de XP
- Celui de Norton
- Et Kerio

rien que ca !? 3 FW ? je pensais pas que c'etait possible....

Ca reste un problème non résolu pour moi actuellement. J'ai déjà vu ça sur des sites professionnels et j'aimerais bien savoir comment ils font... lol

bref, pour ton probleme, voici ce que je pense :


ce n'est pas possible.
ce dont tu parle (site professionnel qui affichent le nom de ton fournisseur) est different. en effet il s'agit de SITE web utilisant un PROTOCOLE (HTTP)
il y a des paquet qui pertent de chez toi (ta demande d'URL de ton browser) qui passent par ton fournisseur (normal) et qui arrivent sur le serveur ou la page est construite (cas de page dynamique) il est alors facile de recuperer ces info en PHP.
mais dans ton cas, tu es sur ton PC, a qui tu veux envoyer tes paquets ?
il y aurait bien une astuce, fait une page web, heberges-là chez free par ex. fait là en PHP et fait afficher juste les info du client (celui qui surf), toutes les info que tu veux, ensuite dans ton appli tu fait un socket qui va chercher cette adresse et en retour tu a le contenu de la page web, qu'il te reste a traiter, voilà.

en tout etat de cause il n'existe AUCUNE commande dos pour ton probleme, nslookup, net, ping, ipconfig, nbtstat et consors NE sont pas dans une problematique FAI, ils gerent des elements reseaux, un point c'est tout.

voilà.

[hpfx]

Et c'est un peu hors sujet, mais je me permet de vous donner cette adresse tres sympatique pour ceux qui voudrait recuperer des info sur leur config reseau (un peu comme au debut de ce thread quoi..)

http://vbnet.mvps.org/code/network/getinterfacetable.htm
c'est de l'excellentissime site vbnet, son seul defaut est d'être en anglais

et aussi puisque ca été abordé dans le thread aussi : comment pinger en VB6 (sans passer par des commande dos, je préfere)
http://vbnet.mvps.org/code/internet/ping.htm
http://vbnet.mvps.org/code/internet/pingbyhostname.htm

ce site est specialisés dans les API, a eviter si vous êtes alergiques aux API.

voilà, bonne année !!!!

[Sadneth]

Sisi, c'est tout à fait possible et grafikm_fr m'a donné la solution.
Tu peux faire ce que tu veux à la base. Il n'y a aucune différence entre un hébergeur comme free ou comme mon propre serveur (enfin PC, je te l'accorde). Mais mon serveur est sous IIS et le fonctionnement est identique à un hébergeur professionnel.

Après pour avis perso, je ne considère pas Free comme professionnel, ca reste du gratuit et nous ne pouvons pas leur demander la lune (fonction Mail bloquée)

Ensuite pour info, j'étais en PHP sur mon site à la base et je suis développeur ASP de formation et je préfère de loin faire de l'ASP au PHP. Ce que tu peux faire en PHP, tu peux le faire aussi en ASP. J'ai décidé de faire tout ça en ASP, car mes possibilités sont bien + grandes. Pour être franc, je prend mon pied et plus les problèmes sont difficiles, plus je m'éclate.

Le problème de base a été résolu pour ma part. Le gars vient sur mon site, il poste son message sur mon libre d'or. Hop, je flague son IP et hop, je résous son IP pour savoir de quel fournisseur il vient. Le but ? Bah comme je l'avais dit, si un gros con m'insulte, je verrai d'où il vient... C'était juste pour ça et je te prie de me croire, ca me servira bien à un moment t...

Merci de ta participation

[hpfx]

ha, en fait j'avais pas compris que tu faisais de l'ASP !

je croyait que tu devellopais un programme en VB et c'est tout.
mais en fait ta machine joue le role d'un serveur web (ca change tout, car tu recoit des informations de la part de IIS (idem apache) qui (on va dire) viennent de l'utilisateur... (cf mon post avec HTTP), dans ce cas tu te situe dans la situation que je decrit (serveur web, free ...etc)

j'avais pas compris.
moi j'ai parlé de PHP parce que je connais mieux le PHP que l'ASP, c'est tout, c'etait pas pour dire que c'est mieux ou pas...

a propos de free, je suis 100% OK avec toi, je cherchais simplement une solution qui ne t'aurais rien couté (par rapport a ma mauvaise comprehention du probleme)

enfin, je suis content pour toi si tu as trouvé ton bonheur.