Windows 7: VBS error under Windows 7

OzGrant · 04 Mar 2011

G'day,
Trying to use a VBS to communicate via a USB port, but get a permission error on line 4.
Have admin prev's and script works ok under XP.

Code:

 
Const ForReading = 1
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set com = fso.OpenTextFile("COM6:9600,N,8,1", ForReading)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\arduino\vbs_stuff\results.txt", ForWriting, True)
MsgBox("Start to read data from COM")
Do While com.AtEndOfStream <> True
    s = com.ReadLine
    objFile.WriteLine(s)
    WScript.Sleep(200)
Loop
objFile.Close
com.Close()

Any ideas what I can do. Tks

Windows 7: VBS error under Windows 7

VBS error under Windows 7 problems?