[bat]M'envoyer mon ip externe regulièrement

Question

Bonjour a tous,

Je m'entraine un petit peu au bat.

Et je coince sur un problème. Voila, je voudrais que mon pc m'envoie mon adresse ip externe régulièrement au boulot sans pour autant etre obligé d'utiliser un service comme dyndns ou no-ip.


Alors ma question est : y a t'il une ou plusieurs commandes dos qui me permettrait de le faire ?

Merci par avance

Stéphane


ps : Ah oui il y a bien la solution de l'ip fixe mais a priori derrière une aol box ce n'est pas possible. C'est toujours une ip dynamique

Utilisateur anonyme · Answer

Bonjour,

une solution VBS vous intéresse ?

Lupin

Stéphane · Answer

Bonsoir,

Et bien même si dans le principe j'essaie plutot de le faire en bat, je veux bien regarder le script vbs ne serait ce que  pour mon info personnelle.

Merci par avance

Amitiés

ps : de plus en voyant la manière de s'y prendre en vbs, cela m'aiguillera peut etre sur la solution en bat

Utilisateur anonyme · Answer

re :

alors voilà !

2 fichier a placer dans le même dossier.

Un premier fichier html, qui envoie une requête sur [www.actulab.com/affiche-ip.php].
Cette page possède un script en javascript qui capture l'@ip dans le presse-papier.
Tu peux l'essayer une fois copié, en l'ouvrant avec IE, ensuite tu ouvres le bloc-notes
et tu fais [coller].

<html>
  <head>
    <title>ADRESSE IP</title>

      <script language="JavaScript">

        var Contenu = null;
        var adrip = "";
        var position1 = "CRIPT>";
        var position2 = "</CEN";
        function LirePage()
          {
             Contenu = document.body.innerHTML;
             adrip = Contenu.substring(((Contenu.indexOf(position1)) + 8),((Contenu.indexOf(position2)) - 1));
             window.clipboardData.setData("Text", adrip);
          }
    </script>

  </head>

  <body onLoad="JavaScript:LirePage()">
    <center>
      <script id='adr-ip' type="text/javascript" src="http://www.actulab.com/affiche-ip.php" language="JavaScript"></script>
    </center>
  </body>

</html>

et enfin le script VBS qui lance la page html, récupère l'@ip, et envoie par courriel avec les objets
windows CDO (Outlook Express). Il te faut paramètrer ton FAI [smtp] dans le code ou j'ai noté
[MonFAI], ex. : [ smtp.monFAI.ca ].

' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
'
'Ce script ne fonctionne qu'avec cette page Web particulière
' "adrip.html"
'
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
'
' * Lupin - 3 Septembre 2005
' * Utilisation du navigateur Internet Explorer
' * Utilisation de OutlookExpress pour courrier sortant
' * Donner l'adresse smtp
' * 
' * Bloquer accès en entrée dans firewall
'
' Déclaration de variables
	Dim objMail ' Objet Courriel
	Dim oIE     ' Objet Navigateur
	Dim Reponse ' Chaine de caractères
	Dim Message ' Chaine de caractères

	'Création d'une instance du navigateur (Internet Explorer)
	Set oIE = CreateObject("InternetExplorer.Application")
	'Navigation sur page fournissant adresseIP dans presse papier
	'Le javascript de cette page web interroge le "net" pour
	'obtenir l'adresse IP public et capture celle-ci dans le
	'presse-papier, il suffit ensuite de la récupérer.
	oIE.Navigate "adrip.html"
	Do Until oIE.ReadyState=4: WScript.Sleep 1: Loop
	'Capture de l'adresseIP du presse-papier vers la variable (coller)
	Reponse = oIE.document.parentwindow.clipboardData.GetData("text")
	oIE.Quit

	'Création d'une instance du facteur (Outlook Express)
	Set objMail = CreateObject("CDO.Message")

	With objMail

	  'Adresse source -> Modifiable mais Obligatoire
	  .From = "monadresse@monFAI.maregion"
	  'Adresse de destination -> Modifiable mais Obligatoire
	  .To = "monadresse@monFAI.maRegion"

	  .Subject = "Adresse virtuel ..."
	  Message = "Salut," & VbCrlf & VbCrlf & "->->-> Automatisme" & VbCrlf & VbCrlf
	  .TextBody =  Message & Reponse

	  'Adresse smtp du serveur de courrier [ FAI ]-> Obligatoire
	  .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.monFAI.maRegion"
	  .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	  .Configuration.Fields.Update

	  .Send

	End With

	Set objMail = Nothing
	Set oIE = Nothing

Wscript.Quit

sous DOS, je vous recommande l'utilisation de BLAT (voir google) pour le courriel.

Lupin

Stephane · Answer

Merci beaucoup Lupin

Je regarde cela attentivement.

Merci encore 

Amitiés

jipicy · Answer

Salut,

Je te propose une solution à base de solutions libres faute de connaissances en mode MS-DOS et en batch du même nom...

Il y a une astuce dans la FAQ de CCM pour récupérer son IP publique mais concernant le shell GNU/Linux, mais facilement adaptable pour Windows grâce aux logiciels portés pour ce système :
sed pour Windows
Lynx pour Windows

Et un tuto pour Lynx sous Windows : http://www.dg77.net/tekno/lynx/index.htm

;-))

[bat]M'envoyer mon ip externe regulièrement

5 réponses

Discussions similaires

Newsletters