Posted: November 26 2003 at 11:18 | IP Logged
|
|
|
Tony,
Not really...I did a search of Dejanews however and did turn up the following code snippet:
set oComPort CreateObject("MSCommLib.MSComm") ' Set Com 3 oComPort.CommPort 3 ' 9600 baud, no parity, 8 data, and 1 stop bit. oComPort.Settings "9600,N,8,1" ' Tell the control to read entire buffer when Input is used. oComPort.InputLen 0 ' Open the port oComPort.PortOpen True ' Send a command oComPort.Output "ATL1" & vbCr ' Wait for response - (Could use a loop here) WScript.Sleep 2000 ' Read response Wscript.Echo oComPort.Input ' Close the port oComPort.PortOpen False
HTH,
Dave
|