comment savoir le nom de mon serveur SMTP de ma connexion en cours ? [Résolu]

[hackoofr]

je suis entrain de faire un VBscript en utilisant l'utilitaire Blat

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 tout les serveurs SMTP et de les mettre dans un tablau ou je dois les parcourir obligatoirement une par une dans une boucle For Next.

Code :

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
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

J'ai pensé aussi pour contourner ce problème de SMTP en utilisant cette méthode décrite ici et qu'elle n'est pas encore résolue

[hackoofr]

Alors il n'y a pas une commande DOS ou un Service en ligne comme whatismyip.com pour savoir l'adresse ip ou bien le nom de mon serveur SMTP

[ProgElecT]

Salut

Je ne sais pas si cela correspond à ta recherche, regardes du coté http://monip.net/ et/ou http://www.ippages.com/xml/?from=showmyip.com

[hackoofr]

Envoyé par ProgElecT

Salut
Je ne sais pas si cela correspond à ta recherche, regardes du coté http://monip.net/ et/ou http://www.ippages.com/xml/?from=showmyip.com

et bien pour ces infos qui sont très utiles mais malheureusement il y a tout sauf cette partie de SMTP ,donc je dois rechercher encore.

[hackoofr]

Donc après deux mois de casse-tête et de recherche dans les forums et dans j'ai trouvé cette solution et j’espère qu'elle aidera d'autres personnes on sait jamais

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function SMTP(adress)
Set ie = CreateObject("InternetExplorer.Application") 
ie.Navigate(adress) 
ie.Visible=false
DO While ie.busy
Loop
smtp = ie.document.documentElement.innertext 
ie.Quit 
Set ie=Nothing
end Function
 
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function
 
MySMTP=SMTP("http://www.autoitscript.fr/smtp.php")
MsgBox "Mon Serveur SMTP est : " & qq(MySMTP),64,"Mon Serveur SMTP"