/*
object.GetStandardStream(standardStreamType [, unicode ])
The standardStreamType can have any of the following settings:
Constant      Value    Description
StdIn         0        Returns a TextStream object corresponding to the standard input stream.
StdOut        1        Returns a TextStream object corresponding to the standard output stream.
StdErr        2        Returns a TextStream object corresponding to the standard error stream

unicode       Optional Boolean value that indicates whether the file is created as a Unicode or ASCII file.
              The value is true if the file is created as a Unicode file, false if it is created as an ASCII file.
              If omitted, an ASCII file is assumed.
*/

break on
Dim $FSO,$sin,$sout,$Serr,$words
$fso=createobject("scripting.FileSystemObject")
$sin=createobject("scripting.TextStream")
$sout=createobject("scripting.TextStream")

$sin = $FSO.GetStandardStream(0)
$sout = $FSO.GetStandardStream(1)
$serr = $FSO.GetStandardStream(2)

$sout.WriteLine "Hello!"+@crlf
$sout.WriteLine "What's the word?"+@crlf
$Words = $sin.ReadLine()
$sout.WriteLine "So, the word is " + $Words+@crlf
$sout = ''
$sin = ''
get $

$fso = CreateObject("scripting.FileSystemObject")
$sin = $fso.GetStandardStream(0)
$sout = $fso.GetStandardStream(1)
$serr = $fso.GetStandardStream(2)

$sin=createobject("scripting.TextStream")
$sout=createobject("scripting.TextStream")

Dim $

; ===========================================================================================
;
; 	Script Information
;	
;	Title:       
;	Author:      Wim Rotty
;	Date:        
;	Description: 
;	
;
; ===========================================================================================

;;;;;;;;;;;;;;;;;;
; Script Options ;
;;;;;;;;;;;;;;;;;;

If Not @LOGONMODE
	Break On
Else
	Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit", "On")
$RC = SetOption("NoMacrosInStrings", "On")
$RC = SetOption("NoVarsInStrings", "On")
If @SCRIPTEXE = "KIX32.EXE"
	$RC = SetOption("WrapAtEOL", "On")
EndIf

;;;;;;;;;;;;;;;;;;;;;
; Declare variables ;
;;;;;;;;;;;;;;;;;;;;;

Dim $FSO
Dim $sin
;Dim $sout
;Dim $Serr
Dim $words
Dim $

;;;;;;;;;;;;;;;;;;;;;;;;
; Initialize variables ;
;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;
; Code ;
;;;;;;;;

$fso = CreateObject("scripting.FileSystemObject")
$sin = $fso.GetStandardStream(0)
;$sout = $fso.GetStandardStream(1)
;$serr = $fso.GetStandardStream(2)

? 'Type 10 chars and Enter please' ?
$words = $sin.Read(12)
?? "wait 1" ??
? $Words
Sleep 3

? 'Type wsomething And end with an Enter please' ?
? $Words = $sin.ReadLine
?? "wait 2" ??
? $Words
Sleep 3

? 'Type more than one line with Returns and end with Ctrl+Z please' ?
$Words = $sin.ReadAll
?? "wait 3" ??
? $Words

Get $