[bat]M'envoyer mon ip externe regulièrement
Fermé
Stephane
-
20 juil. 2007 à 16:14
jipicy Messages postés 40842 Date d'inscription jeudi 28 août 2003 Statut Modérateur Dernière intervention 10 août 2020 - 21 juil. 2007 à 10:51
jipicy Messages postés 40842 Date d'inscription jeudi 28 août 2003 Statut Modérateur Dernière intervention 10 août 2020 - 21 juil. 2007 à 10:51
A voir également:
- [bat]M'envoyer mon ip externe regulièrement
- Ethernet n'a pas de configuration ip valide - Guide
- Fichier bat - Guide
- Ou trouver mon adresse ip - Guide
- Chkdsk disque dur externe - Guide
- Ip local - Guide
5 réponses
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
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
20 juil. 2007 à 21:53
20 juil. 2007 à 21:53
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].
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 ].
sous DOS, je vous recommande l'utilisation de BLAT (voir google) pour le courriel.
Lupin
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jipicy
Messages postés
40842
Date d'inscription
jeudi 28 août 2003
Statut
Modérateur
Dernière intervention
10 août 2020
4 895
21 juil. 2007 à 10:51
21 juil. 2007 à 10:51
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
;-))
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
;-))
