; ===========================================================================================
;
; 	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 $