Ip publique vers fichier txt
Bonjour a tous,
Pour etre franc je ne m'y connait pas du tout en Vbs, je commence a peine a bien gerer le Msdos et je compte bien en connaitre toutes les subtilitées avant de me lancer dans un autre language.
Je sait qu'Msdos ne fait pas tout, et c'es pour cette raison que j'ai besoin de votre savoir :p
J'ai un script vbs qui sert a recuperer l'adresse ip (du fai) et qui l'affiche dans une MessageBox, je voudrai savoir comment je pourrai lui demander de ne plus l'ecrire dans la MessageBox mais plutot dans un fichier.txt
Ps: de preference sans effacer le fichier en question avant reecriture :)
Je met le bout de code que j'ai denicher:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Dim IE, Page, Tag, TagPos, Longueur
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://tools.scl.free.fr/me/"
While IE.Busy: WScript.Sleep 100: Wend
Page = IE.Document.Body.InnerHTML
IE.Quit
Set IE = Nothing
Tag="client_ip>"
TagPos = InStr(1, Page, "<" + Tag, vbTextCompare)
Longueur = InStr(TagPos + Len(Tag), Page, "</" + Tag, vbTextCompare) - TagPos - Len(Tag) - 1
MsgBox Mid(Page, TagPos + Len(Tag) + 1, Longueur) |
Merci d'avance
