http://msdn.microsoft.com/en-us/library/y6hbz9es(VS.85).aspx
 Code:
$fso = CreateObject("scripting.FileSystemObject")
$sin = $fso.GetStandardStream(0)
$sout = $fso.GetStandardStream(1)
$serr = $fso.GetStandardStream(2)

These are redundant
 Code:
$sin=createobject("scripting.TextStream")
$sout=createobject("scripting.TextStream")

and do not forget
 Code:
Dim $