Hello everybody
Is it possible to create a script to access device on serial port
I'm using Panel PC 477" Touch with WinnCC Flexible 2008 HF3
I've created a script using MSComm object ,but it looks like nothing
happened(When I try to start runtime with debugging on enginnering
station It is not started until delete of that script )


Set objComm = CreateObject ("MSCOMMLib.MSComm")

objComm.CommPort = MyPort ' select a port to use
objComm.InputLen = 0 ' if = 0, will retrieve all waiting chars
objComm.InputMode = comInputModeText ' causes Input() to return string (not array)
objComm.RThreshold = MyThreshold ' must be non-zero to enable receive
objComm.PortOpen = True ' open COM port for use

objComm.Settings = MyBaud & ",n,8,1" ' settings: baud,parity,bits,stop in BSTR
' send to COM port

For MsgIndex = 0 To 10
objComm.Output = ReadMsg(MsgIndex) ' send message out of port
Flag = False
Do
If objComm.CommEvent = comEvReceive
'Wait until all data in Recieve buffer
Delay(1)
RxBuff = objComm.Input
Answers(MsgIndex) = Right(RxBuff,Len(RxBuff)-Len(ReadMsg_Rx_Header(MsgIndex)))
Flag = True
End If
Loop While Flag = False
Next MsgIndex

objComm.PortOpen = False ' close port

Set objComm = Nothing ' uninitialize reference pointer