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

**cerkyr** · 07/10/2016, 13h53

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,

**hackoofr** · 07/10/2016, 16h40

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

**l_autodidacte** · 07/10/2016, 18h15

Peut-être un peu ce genre de retour ?

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
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>

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

VBScript

Vue hybride

Discussions similaires

Partager

Partager