IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Vos Contributions VBScript Discussion :

Adresse IP Publique !


Sujet :

Vos Contributions VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut Adresse IP Publique !

    Pour déterminer votre adresse IP publique:
    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
    Titre = "Adresse Ip Publique !"
    URL = "http://monip.org"
    Set ie = CreateObject("InternetExplorer.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    ie.Navigate (URL) 
    ie.Visible=false
    DO WHILE ie.busy
    wscript.sleep 100
    LOOP
    Data = ie.document.documentElement.innertext 
    ie.Quit 
    Set ie = Nothing
    Set objRegex = new RegExp
    objRegex.Pattern = "\b([0-9]{1,3}\.){3}[0-9]{1,3}\b"
    objRegex.Global = False
    objRegex.IgnoreCase = True
    Set Matches = objRegex.Execute(Data)
    For Each Match in Matches   
        MsgBox "L'adresse IP Publique est : " &vbCr& Match.Value,64,Titre 
    Next

  2. #2
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    salut,
    heu... tu es vraiment sûr que cette URL te renvoie une ip valable
    en tout cas, pas en ce qui me concerne...
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  3. #3
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 130
    Par défaut
    Salut
    Moi j'ai çà qui traine sur mon DD (surement récupéré sur DVP )
    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
    Option Explicit
     
    Dim Sortie
    Dim READYSTATE_COMPLETE
    Dim IExplorer
    Dim Msg
    READYSTATE_COMPLETE = 4
    Set IExplorer = CreateObject("InternetExplorer.application")
     
    Msg = "http://monip.net/"
    Sortie = DateAdd("S", 20, Now) 'ajoute de 20 Sc par apport à l'heure systeme
    IExplorer.Navigate Msg
    Do While IExplorer.readyState <> READYSTATE_COMPLETE
        If Now >= Sortie Then
            IExplorer.Quit: Set IExplorer = Nothing
            Msg = "délai dépassé"
            Exit Do
        End If
    Loop
    If Msg <> "délai dépassé" Then
        Dim DocU
        On Error Resume Next
        DocU = IExplorer.document.activeElement.innerText
        IExplorer.Quit: Set IExplorer = Nothing
        MsgBox DocU
        Dim MeTableau
        MeTableau = Split(DocU, vbNewLine)
        MsgBox MeTableau(2) & " " & MeTableau(3) & " " & MeTableau(5)
        Else
        MsgBox Msg
    End If
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  4. #4
    Rédacteur
    Avatar de omen999
    Profil pro
    Inscrit en
    Février 2006
    Messages
    1 302
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2006
    Messages : 1 302
    Par défaut
    il y a une foultitude de scripts qui trainent sur le net pour renvoyer l'ip wan du poste connecté
    le souci est toujours le même : son bon fonctionnement dépend de la disponibilité du site et de
    la présentation des infos renvoyées qui peut varier sans préavis même si un usage judicieux de
    RegExp permet de réduire les risques au moment de l'extraction
    la solution sûre (pour une config donnée) passe par l'interrogation directe du routeur (en http) ou même
    en telnet sur certains d'entre eux
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp

  5. #5
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    Citation Envoyé par omen999 Voir le message
    la solution sûre (pour une config donnée) passe par l'interrogation directe du routeur (en http) ou même
    en telnet sur certains d'entre eux
    omen999
    si vous avez quelques scripts de ce genre, surtout,n'hésitez pas a nous partager , car je suis intéressé

  6. #6
    Expert confirmé
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 844
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 844
    Par défaut
    Voici une petite mise à jour et j’espère qu'elle va marcher chez-vous
    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
    Option Explicit
    Dim Boucle,strComputer,MsgTitre,objPing,objStatus
    Boucle = True
    While Boucle = True
    strComputer = "smtp.gmail.com"
    MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL"
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
    For Each objStatus in objPing
    If objStatus.Statuscode = 0 Then
    msgbox "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! " & objStatus.Statuscode,64,MsgTitre
    Boucle = False
    Call Ip_Publique
    wscript.quit
    else
    msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !" & objStatus.Statuscode,16,MsgTitre
    End If
    Call ReNewLocalIP
    Next
    wscript.sleep 60000
    Wend
     
    Sub Ip_Publique
    Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches
    Titre = "Adresse Ip Publique !"
    URL = "http://monip.net"
    Set ie = CreateObject("InternetExplorer.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    ie.Navigate (URL) 
    ie.Visible=false
    DO WHILE ie.busy
    wscript.sleep 100
    LOOP
    Data = ie.document.documentElement.innertext 
    Set OutPut = objfso.OpenTextFile("monip.txt",8,True)
    ie.Quit 
    Set ie = Nothing
    Set objRegex = new RegExp
    objRegex.Pattern = "\b([0-9]{1,3}\.){3}[0-9]{1,3}\b"
    objRegex.Global = False
    objRegex.IgnoreCase = True
    Set Matches = objRegex.Execute(Data)
    For Each Match in Matches   
        MsgBox "Mon IP Publique est : " & vbCr & Match.Value ,64,Titre
        OutPut.WriteLine string(40,"-") & vbcr &"  Nous sommes le "& Now & vbcr & string(40,"-") & vbcr & "  Mon IP Publique est : "& Match.Value & vbcr & string(40,"*")
    Next
    Call OpenLog("monip.txt")
    End Sub
     
    Sub OpenLog(File)
    Dim ws
    Set ws = CreateObject("wscript.shell")
    ws.run "Notepad " & File,1,True
    Set ws = Nothing
    End Sub
     
    Sub ReNewLocalIP
    Dim Ws,command,StrCommand,Resultat
    Set Ws = CreateObject("WScript.Shell")
    command = "ipconfig /release & ipconfig /flushdns & ipconfig /renew"
    StrCommand = "cmd /k "& command &""
    Resultat = ws.Run(StrCommand,1,True)
    End Sub

Discussions similaires

  1. tomcat depuis son adresse ip publique
    Par yodark dans le forum Tomcat et TomEE
    Réponses: 3
    Dernier message: 17/03/2008, 21h31
  2. Adresse IP publique de la connexion internet
    Par Najdar dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 22/11/2006, 15h57
  3. Connaitre son adresse ip publique
    Par samball dans le forum C++
    Réponses: 6
    Dernier message: 03/07/2006, 23h37
  4. adresse ip publique (adresse internet)
    Par niglo dans le forum Développement
    Réponses: 5
    Dernier message: 24/03/2006, 09h27
  5. Quest ce qu'une adresse reseau publique ?
    Par WOLO Laurent dans le forum Développement
    Réponses: 3
    Dernier message: 09/08/2003, 12h35

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo