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