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 : Sélectionner tout - Visualiser dans une fenêtre à part
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