Log d'un VBS dans une fenêtre

Log d'un VBS dans une fenêtre - VB/VBA/VBS - Programmation

Marsh Posté le 22-10-2005 à 13:09:05    

Bonjour,
 
J'ai un Programme en VBS, mais celui-ci dure assez longtemps,et je voudrais pouvoir suivre celui-ci pas à pas dans une fenêtre.
Une sorte de log en temps réel..
 
Mais je ne vois pas comment faire ni quels objets utiliser pour demander à la fenêtre d'afficher ce que je veux....
 
Si quelqu'un à une petite idée...
 
Fred

Reply

Marsh Posté le 22-10-2005 à 13:09:05   

Reply

Marsh Posté le 23-10-2005 à 15:50:17    

Fred_l a écrit :

Bonjour,
 
J'ai un Programme en VBS, mais celui-ci dure assez longtemps,et je voudrais pouvoir suivre celui-ci pas à pas dans une fenêtre.
Une sorte de log en temps réel..
 
Mais je ne vois pas comment faire ni quels objets utiliser pour demander à la fenêtre d'afficher ce que je veux....
 
Si quelqu'un à une petite idée...
 
Fred


 
 
 
Bon n'ayant pas de réponse et pour ceux que ça intéresse, je me suis orienté vers la solution Internet Explorer :
 
Dim Ie            ' Appli InternetExplorer
Dim Console    ' Fichier de réponse html
Dim LogEvent  ' Nom du fichier de suivi du script (.HTML)
Dim FileRepInet ' Repertoire des fichiers Intarnet
 
LogEvent = "Console.html"  
FileRepInet = "C:\WWW\Intranet\"
 
Set Ie=WScript.CreateObject("InternetExplorer.Application" )
Ie.Visible=True
Ie.Top=10
Ie.Height=500  
Ie.Width=500
Ie.Navigate FileRepInet&LogEnvent
Ie.MenuBar=False
Ie.AddressBar=False
Ie.Resizable=False
 
Set Console =Fso.CreateTextFile(FileRepInet&LogEvent)
 
Console.Write "<HTML><BR>"
Console.Write  Time & "'--- Première écriture <BR>"
Ie.Refresh
 
Blablabla  Suite du Programme
 
Console.Write  Time & "'--- Deuxième écriture <BR>"
Ie.Refresh
 
Blablabla  Suite du Programme
 
Console.Write  Time & "'--- Troisième écriture <BR>"
Ie.Refresh
 
Blablabla  Suite du Programme
 
Console.Write "</HTML>"
Console.close
Ie.Quit
 
Ainsi j'ai une fenêtre Ie ou je peux suivre mon VBS pas pas tel un débuger même si pour ma part c'est que mon VBS dure longtemps et que je voulais savoir ce qu'il faisait et où il en était....
 
Bon je sais qu'il doit y avoir mieux...  
M'enfin ça marche bien comme ça aussi sans prise de tête...  
Même si je me suis un peu pris la tête quand même !
 
@+ Fred

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed