Vista - Communicating with RS232 (USB) Ports

I googled for an answer - found several expensive dlls/exes to download
!!

Found a Script that looks like it could work.

Dont have MSCommLib
Anyone got Instructions/Advice about obtaining/installing/regisrtering
it ??
(Lots of almost incomprehensible warnings about installation problems
given in Google !!)

Some help would be most helpful - please - thank you.

Pete(Northolt UK)

p byers wrote:Hi Pete,

If you google around, you will find that MSCommLib is a class
contained in MSComm32.ocx.

And MSComm32.ocx was a component shipped with VB6. Note that
VB.Net does not support serial communications, probably because
m$ thinks that serial comm is obsolete.

If you don't have vb6 installed, you best bet would be to find
a buddy with vb6 installed and "borrow" a copy. (Note that m$
may frown on this unless you sign an "End User License Agreement",
an EULA for short).

If you google some more, you will find some sites offering you
a copy of MSComm32.ocx, for example:

http://www.tech-archive.net/Archive/.../msg01077.html

but, I couldn't find an "offical microsoft" download for it.

cheers, jw
____________________________________________________________

You got questions? WE GOT ANSWERS!!! ..(but, no guarantee
the answers will be applicable to the questions)

mr_unreliable wrote:oops, blush,stammer, WRONG!!!

vb.net supports serial communications as the "serialport"
subclass of the "System.IO.Ports" class.

http://msdn.microsoft.com/en-us/libr...erialport.aspx

So, if you don't happen to have vb6 around, you can write
an "interop" assembly for accessing your serial port in
vb.net. Then use "regasm" to register your assembly as
a COM component, and then use it from script.

mea culpa, mea culpa, mea culpa, jw

On Tue, 30 Jun 2009 06:31:31 +0100, p byers <pb@newsgroup-ltd.co.uk>
wrote:
You can write to the comport like below, but no input from the
port.

Set fs=CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("COM1:",True)
a.write chr(255)
a.write chr(1)
a.write chr(127)
a.Close