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.
Merci à tous pour votre aide.
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
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
Vincent,
Partager