' 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