Affichage d'exécution du script VBS dans la fenêtre HTA pour les ECHO

Bonjour,
Je voudrais ajouter, dans ma page HTA exécutant un script VBS, une "cellule" me montrant le résultat des commandes VBS ECHO.
Cela indiquera à l'utilisateur final ce qui s'est bien ou mal passé, sans avoir à ouvrir de fichier log.
Cdlt,

:salut:
Votre demande n'est pas clair ?? VBS Echo ??
Pouvez au moins postiez votre code en expliquant mieux l'objectif
:merci:

Peut-être un peu ce genre de retour ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
<html> 
 <head><title>Résultat dans une  zone de texte</title> 
<HTA:APPLICATION ID="ObjECHO";
APPLICATIONNAME="objECHO"; 
WindowState="Normal";
SCROLL="Auto"; 
NAVIGABLE="Yes"; 
SCROLLFLAT="Yes"; 
INNERBORDER="Yes"; 
BORDERSTYLE="normal"; 
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> 
<body bgcolor="#E8E8E8"> 
 
<Script language="VBScript" type="text/vbscript"> 
  Option Explicit
  Dim oText, IE
  Sub window_onload()
    self.resizeTo 350, 200
    self.moveTo 400,300
    Set oText = document.getElementById("Test")
    oText.value = "En attente ..."
  End Sub
  Function myFuncTest()
      Set oText = document.getElementById("Test")
      oText.value = "En attente ..."
      Set IE = CreateObject("InternetExplorer.Application")
      IE.navigate "http://www.developpez.net"
      IE.visible = False
      Do  While IE.busy
         oText.value = "En attente ..."
      Loop
      If IE.LocationName = "Forum du club des développeurs et IT Pro"  Then
        oText.value = "Page trouvée"
        IE.Quit
        set IE = nothing
      Else
        oText.value = "Page non trouvée"
        IE.Quit
        set IE = nothing
      End If
End Function
 </Script> 
<input type ="text" Id="Test" name="Test"><br>
<input type="button" id="btnTest" name="btnTest" value="Go on" onclick="myFuncTest()">
</body>
</HTML>