[R] Comment savoir le SMTP de ma connexion en cours ?

[Hackoo]

J'ai fait un VBscript en utilisant Blat:"Est un utilitaire en ligne de commande qui envoie un email en utilisant le protocole SMTP"
Donc je cherche un moyen ou un Truc ou bien un service en ligne genre comment savoir le nom de mon serveur SMTP de ma connexion en cours ? pour ne pas éditer mon script chaque fois que je change de FAI exemple quand je me connecte depuis un espace publique.
Bon à present j'ai arrivé à cette solution mais elle me satisfait pas beaucoup car je dois savoir tous les serveurs SMTP et de les mettre dans un tablau ou je dois les parcourir obligatoirement une par une dans une boucle For Next.

► Afficher le texte

Code : Tout sélectionner

Function MailBlat()
    Dim Recipient, cc, mailhost, sender, subject, strCommand,AttDoc,AttDocZ
    Set objShell = CreateObject("Wscript.Shell")
    Listsmtp=array("smtp.FAI1.com","smtp.FAI2.com","smtp.FAI3.com","smtp.FAI4.com","smtp.FAI5.com")
    For X=LBound(Listsmtp) to UBound(Listsmtp)
    ComputerName = objShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
    Recipient = "mon-e-mail@doMailBlate.fr"
    cc = "autre-e-mail@doMailBlate.com"
        mailhost = Listsmtp(X) 
    sender = ComputerName&"@"&ComputerName&".com"
    subject = "Resultat de mailblat " & Date()
    AttDoc = "c:\TestVBscript\iplog.htm"
        AttDocZ = "C:\Crypt&Decrypt\MailBlat\mailblat.rar"
    strCommand = "%comspec% /c blat.exe -to " & Chr(34) & recipient & Chr(34) & ""
    strCommand = strCommand & " -log ""Blat.log"""
    strCommand = strCommand & " -cc " & Chr(34) & cc & Chr(34) & ""
    strCommand = strCommand & " -server " & Chr(34) & mailhost & Chr(34) & ""
    strCommand = strCommand & " -subject " & Chr(34) & subject & Chr(34) & ""
    strCommand = strCommand & " -body " & Chr(34) & "Ceci est le Corps du message" & Chr(34) & ""
    strCommand = strCommand & " -bodyF " & chr(34) & AttDoc & chr(34) & "" 
    strCommand = strCommand & " -attach " & Chr(34) & AttDocZ & Chr(34) & "" 
    strCommand = strCommand & " -f " & Chr(34) & sender & Chr(34) & ""
    strCommand = strCommand & " -q"
    Result = objShell.Run(strCommand,0,True)
    Next
MsgBox "Message Envoyé !",64,"MailBlat"    
End Function
MailBlat

Alors je cherche s'il existe un moyen avec Autoit ou bien une astuce pour résoudre mon problème !
Merci !

[bloodwolff]

Code : Tout sélectionner

BinaryToString(InetRead("http://arrkhan.free.fr/fai.php"))

[Hackoo]

Code : Tout sélectionner

BinaryToString(InetRead("http://arrkhan.free.fr/fai.php"))

bloodwolff et merci pour votre réponse !
Si je me permets une question supplémentaire : il y a quoi exactement dans le fichier FAI.php ?
J'ai ajouté un MsgBox pour afficher la variable $fai mais je ne récupère rien est-ce-que normale ? ou bien il y a quelque chose dans la syntaxe qui est incorrecte ?

Code : Tout sélectionner

$fai=BinaryToString(InetRead("http://arrkhan.free.fr/fai.php"))
MsgBox (64,"FAI",$fai)

Est-ce-que possible de poster la source de cette page FAI.php ?
et si vous m'expliquer un peu mieux le mécanisme et comment récupérer le contenu genre smtp.xxxx.com dans un fichier temporaire par exemple car je suis novice en AutoIT.

[Tlem]

Le code n'est pas adapté à la page, car le résultat est généré par la page php et non disponible en téléchargement. Donc il faut lire le texte affiché sur la page générée et non essayer de télécharger le fichier php !

Pour information, cette page est aussi présente sur http://www.autoitscript.fr et le code est disponible un peut partout sur le net.
Seule la liste des fournisseurs peut être plus ou moins complète selon qui l'a rempli en effectuant de multiples recherches.

Maintenant, puisque votre demande concerne le SMTP, je vous conseil plutôt la page smtp.php du même site ou ici même.

Voilà un code qui fonctionne :

► Afficher le texte

Code : Tout sélectionner

#include <IE.au3>

Local $oIE = _IECreate("http://www.autoitscript.fr/smtp.php", 0, 0, 1)
Local $sText = _IEBodyReadText($oIE)
MsgBox(0, "Votre SMTP", $sText)

[Hackoo]

Maintenant, puisque votre demande concerne le SMTP, je vous conseil plutôt la page smtp.php du même site ou ici même.

Si c'est possible de poster le code source de cette page smtp.php car je ne reçois pas comme ceci smtp.xxxx.com mais je reçois genre comme ceci www.186.257

[shadsnob]

Qui a le code source de cette page php, merci.
En cherchant ce genre de ressources techniques je suis tombé sur des réalisations bien documentées côté création de sites web, notamment des agences qui publient leurs snippets et bonnes pratiques PHP ouvertement, c'est souvent là qu'on trouve les réponses les plus propres et les plus à jour quand on cherche un bout de code fonctionnel.

[Tlem]

Le code source est plutôt basique. Si il ne renvoi pas le nom du smtp, c'est que celui-ci n'y est pas renseigné. J'ai fait de mon mieux pour y mettre le maximum de fournisseur, mais comme je n'ai pas de retour de qui que ce soit, je ne sais pas si il en manque et on ne me donne pas non plus les éléments nécessaire pour compléter !

@Hackoo
Je veut bien que vous me donniez plus d'éléments afin de compléter le code avec vos infos.

► Afficher le texteCode du fichier smtp.php

Code : Tout sélectionner

<?php
if ($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"] != ""){
    $ip = $HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"];
    $host = @gethostbyaddr($HTTP_SERVER_VARS["HTTP_X_FORWARDED_FOR"]);
    }
else{
    $ip = $HTTP_SERVER_VARS["REMOTE_ADDR"];
    $host = @gethostbyaddr($HTTP_SERVER_VARS["REMOTE_ADDR"]);
    }

$tmp = explode(".", $host);
$serv = '(www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1].')';

 if (ereg("9online", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("adslplus", $host)) {$smtp="smtp.sunrise.ch";}
 elseif (ereg("alice", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("aliceadsl", $host)) {$smtp="smtp.aliceadsl.fr";}
 elseif (ereg("altern.org", $host)) {$smtp="imap.altern.org";}
 elseif (ereg("bbox", $host)) {$smtp="smtp.bbox.fr";}
 elseif (ereg("bluewin", $host)) {$smtp="mail.bluewin.ch";}
 elseif (ereg("bouygtel.fr", $host)) {$smtp="smtp.bouygtel.fr";}
 elseif (ereg("cablecom", $host)) {$smtp="smtp.hispeed.ch";}
 elseif (ereg("caramail", $host)) {$fai="smtp.lycos.co.uk";}
 elseif (ereg("cegetel", $host)) {$smtp="smtp.cegetel.fr";}
 elseif (ereg("club-internet", $host)) {$smtp="mail.club-internet.fr";}
 elseif (ereg("coltfrance", $host)) {$smtp="smtp.colt.net";}
 elseif (ereg("darty", $host)) {$smtp="smtpauth.dbmail.com";}
 elseif (ereg("evhr", $host)) {$smtp="smtp$serv";}
 elseif (ereg("fnac", $host)) {$smtp="mail.fnac.net";}
 elseif (ereg("free", $host)) {$smtp="smtp.$serv";} //OK
 elseif (ereg("freesbee", $host)) {$smtp="smtp.freesbee.fr";}
 elseif (ereg("freesurf", $host)) {$smtp="mail.freesurf.fr";}
 elseif (ereg("gaoland", $host)) {$smtp="smtp.neuf.fr";}
 elseif (ereg("gawab", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("hispeed", $host)) {$smtp="smtp.hispeed.ch";}
 elseif (ereg("ifrance", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("infonie", $host)) {$smtp="smtp.infonie.fr";}
 elseif (ereg("intergga", $host)) {$smtp="mail.intergga.ch";}
 elseif (ereg("laposte", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("libertysurf", $host)) {$smtp="smtp.libertysurf.fr";}
 elseif (ereg("magic-online", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("nerim", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("neuf", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("net2000.ch", $host)) {$smtp="smtp.net2000.ch";}
 elseif (ereg("noos", $host)) {$smtp="mail.noos.fr";}
 elseif (ereg("numericable", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("oleane", $host)) {$smtp="smtp.fr.$serv";}
 elseif (ereg("orange", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("oreka", $host)) {$smtp="mail.$serv";}
 elseif (ereg("proxad", $host)) {$smtp="smtp.free.fr";}
 elseif (ereg("securepop", $host)) {$smtp="Serveur inconnu";}
 elseif (ereg("sfr", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("sympatico", $host)) {$smtp="smtp1.sympatico.ca";}
 elseif (ereg("tele2.fr", $host)) {$smtp="smtp.tele2.fr";}
 elseif (ereg("tiscali.ch", $host)) {$smtp="mail.tiscalinet.ch";}
 elseif (ereg("tiscali.fr", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("tiscali-freesbee", $host)) {$smtp="smtp.$serv";}
 elseif (ereg("voila", $host)) {$smtp="";}
 elseif (ereg("vtx", $host)) {$smtp="smtp.vtxnet.ch";}
 elseif (ereg("videotron", $host)) {$smtp="relais.videotron.ca";}
 elseif (ereg("wanadoo", $host)) {$smtp="smtp.orange.fr";}
 elseif (ereg("World-Online", $host)) {$smtp="smtp.worldonline.fr";}
 elseif (ereg("yahoo", $host)) {$smtp="smtp.mail.$serv";}
 elseif (ereg("aol", $host)) {$smtp="smtp.fr.aol.com";}
 else {$smtp = 'www.'.$tmp[sizeof($tmp) - 2].'.'.$tmp[sizeof($tmp) - 1];}

if ($smtp=="smtp.proxad.net") {$fai="smtp.free.fr";} //OK

 echo $smtp;
?>

[bloodwolff]

Code : Tout sélectionner

BinaryToString(InetRead("http://arrkhan.free.fr/fai.php"))

bloodwolff et merci pour votre réponse !
Si je me permets une question supplémentaire : il y a quoi exactement dans le fichier FAI.php ?
J'ai ajouté un MsgBox pour afficher la variable $fai mais je ne récupère rien est-ce-que normale ? ou bien il y a quelque chose dans la syntaxe qui est incorrecte ?

Code : Tout sélectionner

$fai=BinaryToString(InetRead("http://arrkhan.free.fr/fai.php"))
MsgBox (64,"FAI",$fai)

Est-ce-que possible de poster la source de cette page FAI.php ?
et si vous m'expliquer un peu mieux le mécanisme et comment récupérer le contenu genre smtp.xxxx.com dans un fichier temporaire par exemple car je suis novice en AutoIT.

Le code fonctionne parfaitement chez moi, donc le smtp ne doit pas être disponible. Il suffit juste de trouver un autre lien avec un plus grande liste de fournisseur.

[Hackoo]

@Tlem pour le code source de smtp.php ,car maintenant je comprends mieux le mécanisme mais dommage que ce script ne marche pas dans mon pays ,alors il faut chercher une autre astuce , j’espère que je la trouverai le plus vite possible

[Tlem]

Ce code fonctionne pour tout le monde. Il suffit simplement de compléter la liste des smtp par rapport aux prestataires manquant !

Que vous donne la page : www.autoitscript.fr/fai.php

[Hackoo]

Ce code fonctionne pour tout le monde. Il suffit simplement de compléter la liste des smtp par rapport aux prestataires manquant !
Que vous donne la page : http://www.autoitscript.fr/fai.php

ca me donne deux lignes comme ceci :
www.233.5
***.***.233.5 ====> mon adresse ip publique

[Tlem]

Vous êtes bien chez Afrinic ?

[Hackoo]

Vous êtes bien chez Afrinic ?

Oui chez Afrinic

[Tlem]

D'après ceci :

► Afficher le texte

NetRange: 41.0.0.0 - 41.255.255.255
CIDR: 41.0.0.0/8
OriginAS:
NetName: NET41
NetHandle: NET-41-0-0-0-1
Parent:
NetType: Allocated to AfriNIC
RegDate: 2005-04-12
Updated: 2010-11-09
Ref: http://whois.arin.net/rest/net/NET-41-0-0-0-1

la plage d'adresses est déterminée. Donc on devrait pouvoir facilement implémenter ce fournisseur.

La je ne suis pas sur mon PC. Donc pas facile de bosser.
Je jetterais un œil demain.

[Tlem]

Voilà. Il à fallu implémenter la plage d'ip directement dans les fichiers fai.php et smtp.php car les variables php ne renvoyait qu'une adresse IP !!!

Normalement cela devrait fonctionner un peut mieux.

[Hackoo]

Voilà. Il à fallu implémenter la plage d'ip directement dans les fichiers fai.php et smtp.php car les variables php ne renvoyait qu'une adresse IP !!!
Normalement cela devrait fonctionner un peut mieux.

@Tlem pour la modification du fichier smtp.php je l'ai testé il marche super bien maintenant il me renvoie smtp.xxxxx.net et pour la page fai.php elle retourne juste deux lignes consécutives:
www.233.25
xxx.xxx.233.25 ======> mon adresse ip publique
Donc on conclut qu'elle n'est pas modifié. et la la page smtp.php marche super bien
Si c'est possible de poster le code source de la page modifié smtp.php et de la page fai.php et je vais la mettre cette discussion en résolu

[Tlem]

Pour le fai.php, j'avais laissé la variable du smtp. Là ça devrait fonctionner.

En ce qui concerne le code, j'ai juste rajouté ce code à la fin de fai.php (juste avant la ligne Echo) :

Code : Tout sélectionner

// Gestion de Afrinic (41.0.0.0 à 41.255.255.255)
if (preg_match('(^41\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){2}$)', $ip))
{
$fai="www.afrinic.net";
}

et celui-ci à la fin de smtp.php (juste avant la ligne Echo) :

Code : Tout sélectionner

// Gestion du serveur smtp de Afrinic (41.0.0.0 à 41.255.255.255)
if (preg_match('(^41\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){2}$)', $ip))
{
$smtp="smtp.afrinic.net";
}

[Hackoo]

Bien !
Maintenant le problème est