#$language = "VBScript"
#$interface = "1.0"

Sub Main
    crt.Screen.Synchronous = True

    If crt.Arguments.Count < 1 Then
        crt.Dialog.MessageBox "[ERROR] Need at least 1 arg (IP)"
        crt.Screen.Synchronous = False
        Exit Sub
    End If

    crt.Sleep 1000
    crt.Screen.Send "/" & crt.Arguments(0) & vbcr
    If crt.Arguments.Count < 2 Then
        crt.Screen.Synchronous = False
        Exit Sub
    End If
    crt.Screen.WaitForString "[ r ]"

    totalRows = crt.Screen.Rows
    totalCols = crt.Screen.Columns

    screenText = ""
    For i = 1 To totalRows
        lineText = crt.Screen.Get(i, 1, i, totalCols)
        lineText = RTrim(lineText)
        If lineText <> "" Then
            If InStr(lineText, "[ ") > 0 Then
                If InStr(lineText, crt.Arguments(1)) > 0 Then
                  start = InStr(lineText, "[")
                  endPos = InStr(start + 1, lineText, "]")
                  bracketContent = Mid(lineText, start + 1, endPos - start - 1)
                  crt.Screen.Send bracketContent & vbcr
                  Exit For
                End If
            End If
        End If
    Next

    If crt.Arguments.Count < 3 Then
        crt.Screen.Synchronous = False
        Exit Sub
    End If
    crt.Screen.WaitForString "Password: "
    crt.Screen.Send crt.Arguments(2) & vbcr

    If crt.Arguments.Count < 4 Then
        crt.Screen.Synchronous = False
        Exit Sub
    End If
    crt.Sleep 500
    crt.Screen.WaitForString "$"
    'crt.Screen.Send crt.Arguments(3) & " " & crt.Arguments(4) & vbcr
    crt.Screen.Send crt.Arguments(3) & vbcr
    

    crt.Screen.Synchronous = False
End Sub