Page 1 sur 1
[Ex] IP externe
Posté : ven. 28 mars 2008 21:34
par 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))
Re: [Ex] IP externe
Posté : sam. 29 mars 2008 04:53
par 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
Re: [Ex] IP externe
Posté : ven. 18 déc. 2009 19:05
par DJSIR
Il y à aussi _GetIP()
Re: [Ex] IP externe
Posté : ven. 18 déc. 2009 22:11
par 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