Je ne comprends exactement ce que tu veux. Le code ci-haut t montre comment faire, mais il y a vraiment pas assez de place pour mettre tout ce que tu peux faire avec WMI et Windows sripting.Mais le site de Microsoft a plusiuers exemples (Pas de code VFP- besoin de traduction
http://www.microsoft.com/technet/scriptcenter/learnit.mspx

Il n'a pas d'executable. Ces exemples peuvent etre utilisé dans n'importe quel application, incluant la votre.

Un autre solution possible?

Var1 = time()  && 05:19:05 AM
Var2 = time()  && 05:19:12 AM

Var3 = CTOT(var2)-CTOT(var1)

? Var3 && Donne 7 secondes.

>>>dommage, j'y avais consacré 1/2 heure ...

Dommage...

>>sympa mais quelques restrictions non?

Deux que je peu voir immédiatement. Privilege d'acces au régistre et avec Windows Scripting installé.

>>Est ce que ces fonctions retournent une erreur quelconque ou un code de OK?

Autre que d"ajouter un RegRead()  a la fin pour confirmer l'écriture, je ne crois pas.

>>Au passage un coup de chapeau à Mike Gagnon qui a publié récemment du code très efficace.

Merci.

>>>écrire dans le registre ou récupérer d'autres valeurs, ce
serait pas mal.

Avec quel solution API, Windows Scripting? Si c'est scripting, voir le nouvel entré. Si c'est API redemande.

Oui mais je préfère encore plus la flexibilité de ceci

1. No tags

oIE = createobject('internetexplorer.application')
oIE.Navigate('www.tek-tips.com')
lcStr=oIe.Document.body.innertext
?lcStr

2. With the HTML tags included.


CODE
oIE = createobject('internetexplorer.application')
oIE.Navigate('www.tek-tips.com')
lcStr=oIe.Document.body.innerHTML
?lcStr

Vieux truc, mais très utile.