VBS - Balise Title

Bonjour à tous,
Je cherche le moyen de pouvoir récupérer avec un script le contenu de la balise title d'un site distant.
J'avoue ne pas être trop à l'aise avec le VBS.

J'ai essayé avec ce script, mais j'arrive pas à écrire le contenu de la variable sData dans un fichier temporaire, de façon à pouvoir par la suite parcourir ce fichier de façon à récupérer les informations de la balise title.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

dim sData sData = GetXml("http://www.lesite.fr" ) Function GetXml(sURL) Dim Xml Set Xml = CreateObject("Microsoft.XMLHTTP" ) Xml.Open "GET", sURL Xml.send Do: wscript.sleep 10: Loop While Xml.ReadyState <> 4 GetXml = Xml.responseText   Const ForReading = 1, ForWriting = 2 Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set fichier = fso.OpenTextFile("C:\temp.txt", ForWriting,true) fichier.write(GetXml) fichier.close() End Function

---

Merci à tous pour votre aide.
Vincent,

Salut;

A ta place, j'organiserais mon code ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

dim sData sData = GetXml("http://www.developpez.net/forums/f292/autres-langages/general-visual-basic-6-vbscript/vbscript/" )   Const ForReading = 1, ForWriting = 2 Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Set fichier = fso.OpenTextFile("C:\temp.txt", ForWriting,true) fichier.write(sData) fichier.close() Function GetXml(sURL) Dim Xml Set Xml = CreateObject("Microsoft.XMLHTTP" ) Xml.Open "GET", sURL Xml.send Do: wscript.sleep 10: Loop While Xml.ReadyState <> 4 GetXml = Xml.responseText End Function

---

je mettrais une URL valide et le tour est joué !

Merci pour ta réponse.
Le script fonctionne très bien pour ton site, ou google par exemple.
Mais dès que je renseigne le mien, j'ai une erreur 800A0005.
L'erreur vient de la ligne 8, au moment d'écrire dans le fichier.
Je regarde ça et te tiens au courant, sinon je t'ai envoyé par MP le site en question.

Merci d'avance,

Finalement j'ai contourné le problème.
Je récupère avec la fonction "inStr" si la chaine que je recherche dans la balise <title> est bien présente ou pas. Si elle est présente, j'écris dans un fichier tmp et ensuite je fais mon traitement dans un classique batch dos.

Merci beaucoup pour ton aide en tout cas,

Vincent