Outputting to com ports

[EEalmost]

I can output a string to com port 1 with the following code:

Dim fs, b
Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.CreateTextFile("COM1:",True)
b.Write &hFFFFFF

I'm trying to send data to COM1's base address, 0x3F8 (to send data) and an offset address 0x3FC (to control the RTS and DTR pins)

The following code doesn't send data to COM1:

Dim fs, b
Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.CreateTextFile(&h3F8,True)
b.Write &hFFFFFF

I'm not sure on the formatting or should I go in a different direction.

Thanks

 

[xwb]

Don't think you can do that directly. You'll probably need some ActiveX DLL of some sort. Just google for

com port vbscript

There are loads of ActiveX components that you can download which will help you do the job with vbscript.

 

[EEalmost]

I was hoping to avoid paying for an ActiveX DLL in which I'm only using a small portion of it.

 

[PHV]

I was hoping to avoid paying for an ActiveX DLL
So, write your own.

 

[EEalmost]

You're right. I guess I will.

 

[PHV]

Have a look here:

http://www.getfreesofts.com/soft/733/6356/ActiveComport_Serial_Port_Development_Kit.html

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886