Sub Main

    Dim array(3)
    array(0) = "Pommes"
    array(1) = "Poires"
    array(2) = "Tomates"
    For Each fruit in array
        WScript.Echo("J'aime bien les : " & fruit)
    Loop

    For i = 0 to 5
        WScript.Echo(i)
    Loop
    fin = 0
    Do While fin <> 5
        WScript.Echo(Ce n'est pas encore la fin)
        fin  = fin + 1
    Loop

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\ExportText\demo.txt",1)
    Do Until file.AtEndOfStream
        file.ReadLine
    Loop

End Sub