Dim fs, fa
Set fs = CreateObject("Scripting.FileSystemObject")
Set fa = fs.OpenTextFile("\\.\pipe\test", 8, False)
fa.WriteLine("sa=1025")
fa.Close
Set fa = fs.OpenTextFile("\\.\pipe\test", 8, False)
str1 = fa.ReadAll
MsgBox str1