[Ex] IP externe

[MClaveau]

Connaitre l'IP externe.
Le poste doit être connecté à Internet.
Sous Vista, l'UAC doit être désactivé.

Code : Tout sélectionner

msgbox(524352,"IP externe            ",StringMid(InetGet("http://alexissoft.free.fr/ip.php",  "ip_temp.txt")&FileRead("ip_temp.txt"),2))

[arrkhan]

cela fait deja quelques temps que j'ai le meme genre d info sur mon serveur et qu'il est à disposition pour tous le monde

http://arrkhan.free.fr/ip.php ; IP externe
http://arrkhan.free.fr/fai.php ; SMTP de l'ordi se connectant (que j'utilise pour mon mailer autonome)
http://arrkhan.free.fr/debugfai.php ; Mon outil de debug de fai.php avec plus d'infos (utilisé sur http://assiste.com.free.fr/p/qui_etes_v ... traces.php )
http://arrkhan.free.fr/date.php ; Jour/mois/annee HH:MM:SS et EPOCH ( peut etre pratique pour les periode d essai des logiciels)

Sachant que ces fichiers sont utilisés par quelques entreprises pour leurs logiciels (proprietaire et autres), ces script ne sont pas pres de quitter mon serveur ^^ utilisez les autant que vous voulez

EDIT: si votre smtp n'est pas reconnu comme il faut par http://arrkhan.free.fr/fai.php (normal si vous etes derriere un proxy), merci de me le faire savoir par mp, je le corrigerai sachant que le script contient approximativement une soixantaine de fai a l heure actuelle

[DJSIR]

Il y à aussi _GetIP()

[scorp84]

Bonjour,

Voici quelques bout de codes qui vous permettront d'obtenir votre IP LAN, votre IP WAN, votre adresse MAC :

► Afficher le texte

Code : Tout sélectionner

Func _INFO_AFFICHE($INFO_VALEUR, $INFO_TITRE)
    _CLIPBOARD_SETDATA($INFO_VALEUR)
    If $SILENCE_NOSILENCE <> "OUI"  Then
        MsgBox(0, "BM'TOOLS", $INFO_VALEUR & @LF & @LF & "(Faites Ctrl + V pour la récupérer)")
    Else
        $INFO_FICHIER_TXT = $PARAM_VAL & ".txt"
         FileOpen($INFO_FICHIER_TXT, 10)
        FileWrite($INFO_FICHIER_TXT, $INFO_VALEUR)
        FileClose($INFO_FICHIER_TXT)
    EndIf
EndFunc


Func _INFO_NOMPC()
    $INFO_PC = @ComputerName
    _INFO_AFFICHE($INFO_PC, "NOM PC")
EndFunc


Func _INFO_UTILISATEUR()
    $INFO_UTILISATEUR = @UserName
    _INFO_AFFICHE($INFO_UTILISATEUR, "NOM UTILISATEUR")
EndFunc


Func _INFO_IP_LAN()
    $INFO_IP_LAN = @IPAddress1
    _INFO_AFFICHE($INFO_IP_LAN, "IP LAN")
EndFunc


Func _INFO_IP_WAN()
    $IP_URL = "http://www.bmweb.fr/ip.php"
    $IP_TMP = "BMip.txt"
    $IP_RECUP = InetGet($IP_URL, $IP_TMP)
    If $IP_RECUP == 0 Then
        $INFO_IP_WAN = "PC non connecté à Internet"
    Else
        $INFO_IP_WAN = FileRead($IP_TMP)
        If FileExists($IP_TMP) Then
            FileDelete($IP_TMP)
        EndIf
    EndIf
    _INFO_AFFICHE($INFO_IP_WAN, "IP WAN")
EndFunc


Func _INFO_MAC()
    Local $MAC, $MACSIZE
    Local $I, $S, $R
    $MAC = DllStructCreate("byte[6]")
    $MACSIZE = DllStructCreate("int")
    DllStructSetData($MACSIZE, 1, 6)
    $R = DllCall("Ws2_32.dll", "int", "inet_addr", "str", @IPAddress1)
    $IIP = $R[0]
    $R = DllCall("iphlpapi.dll", "int", "SendARP", "int", $IIP, "int", 0, "ptr", DllStructGetPtr($MAC), "ptr", DllStructGetPtr($MACSIZE))
    $ADRESSE_MAC = ""
    For $I = 0 To 5
        If $I Then $ADRESSE_MAC = $ADRESSE_MAC & ":"
        $ADRESSE_MAC = $ADRESSE_MAC & Hex(DllStructGetData($MAC, 1, $I + 1), 2)
    Next
    _INFO_AFFICHE($ADRESSE_MAC, "ADRESSE MAC")
EndFunc

 

Ces codes sont sûrement perfectibles mais j'espère qu'ils pourront vous aider.

Ils permettent d'afficher le résultat via un msgbox et de copier le résultat dans le presse papier.

Pour celui sur l'adresse MAC vient d'un des posts d'autoit.com :
http://www.autoitscript.com/forum/index ... pic=106360

Amicalement.

BM