Private Sub ConnectToServer(ByVal sServer As String)

        Try

            Dim sCommand As String = System.Environment.GetEnvironmentVariable("SystemRoot") & "\system32\mstsc.exe"

            System.Diagnostics.Process.Start(sCommand, GetArgumentsForServer(sServer))

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

 

    Private Function GetArgumentsForServer(ByVal sServer As String) As String

 

        Dim sConnection As String

        Dim sPort As String

        Dim sResolution As String

        Dim arrResolution() As String

        Dim sConsole As String

        Dim sConnectionFile As String

 

        Dim sArguments As String

 

        Dim parentnode As XmlNode = doc.SelectSingleNode("servers")

        Dim servernode As XmlNode = SelectNode(parentnode, "displayname", sServer)

        Dim childnode As XmlNode

 

        For Each childnode In servernode.ChildNodes

            Select Case UCase(childnode.Name)

                Case "SERVERNAME"

                    sConnection = " /v:" & Trim(childnode.InnerText)

                Case "PORT"

                    If Trim(childnode.InnerText) <> "3389" And childnode.InnerText <> String.Empty Then

                        sPort = ":" & childnode.InnerText

                    Else

                        sPort = String.Empty

                    End If

 

                Case "RESOLUTION"

                    If InStr(UCase(childnode.InnerText), "X") > 0 Then

                        arrResolution = Split(UCase(childnode.InnerText), "X")

                        sResolution = " /w:" & arrResolution(0) & " /h:" & arrResolution(1)

                    Else

                        'anything else, default to fullscreen

                        sResolution = " /f"

                    End If

                Case "CONSOLE"

                    If CBool(childnode.InnerText) Then

                        sConsole = " /console"

                    Else

                        sConsole = String.Empty

                    End If

                Case "CONNECTIONFILE"

                    sConnectionFile = childnode.InnerText

                Case Else

                    MessageBox.Show("Unrecognized node in XML: " & childnode.InnerText)

            End Select

        Next

 

        'build argument string

        sArguments = sConnection & sPort & sResolution & sConsole

 

        Return sArguments

 

    End Function

 

    Private Function SelectNode(ByVal parentNode As XmlNode, ByVal attributeName As String, ByVal attributeValue As String) As XmlNode

        Dim node As XmlNode = Nothing

        If parentNode.HasChildNodes Then

            Dim nodeName As String = parentNode.ChildNodes(0).Name

            Dim path As String = nodeName + "[@" + attributeName + "='" + attributeValue + "']"

            node = parentNode.SelectSingleNode(path)

        End If

        Return node

    End Function