A partir del VS2005 hay un COM integrado en el sistema que nos permite trabajar con los puertos serie, así pues este ejemplo lo que hace es explotar las posibilidades de este COM para nuestro objetivo que en este momento se trata de recibir datos a través del RS232.

 

' VBScript File

Function StartComPort()
    ' Se crea el objecto MSComm que realizará la conexión con el puerto
    Dim MSComm1
    Set MSComm1 = CreateObject("MSCOMMLib.MSComm")
    ' Configuración de la conexión: 4800 Bauds, Parity None, DataBits 8, StopBits 1
    MSComm1.Settings = "4800,n,8,1"
    ' Se localiza y se abre el puerto
    Dim i
    i = 1
    Do While i<=10
        MSComm1.CommPort = i
        MSComm1.InBufferCount = 0
        MSComm1.PortOpen = True
        If Err Then
            MSComm1.PortOpen = False
            i = i + 1
        Else
            i = 11
        End If
    Loop
    
    If (MSComm1.PortOpen = True) Then
        ' Variable donde se guarda el valor que nos facilita el RS232
        Dim Buffer 
        Buffer = ""
        ' Quedamos a la espera del valor del RS232
        Do
            Buffer = Buffer & MSComm1.Input
        Loop Until InStr(Buffer, vbCrLf)
        ' Se cierra el puerto
        MSComm1.PortOpen = False
        ' Se libera la memoria
        Set MSComm1 = Nothing
        ' Valor del RS232
        StartComPort = Buffer
    Else
        StartComPort = ""
    End If
End Function