На моем HP pavilion я не могу получить .serialportnames

---

Ниже приведены различные способы, которые я пробовал.

Короче говоря, список имен, генерируемых в каждом из них, всегда равен 0.

Я использую ноутбук HP Pavilion dv6 и действительно понятия не имею, сколько портов я должен иметь доступ, но наверняка это больше, чем 1.

Заранее благодарю вас,

Сильвия

Что я уже пробовал:

Option Strict On

Imports System
Imports System.Data
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Imports System.Timers
Imports System.Data.OleDb
Imports System.ComponentModel
Imports System.Collections.ObjectModel
Imports System.Configuration
Imports System.Windows.Forms


Dim myPort As Array 'Array to hold the COM detected

		myPort = IO.Ports.SerialPort.GetPortNames() 'Get the portnames for the IO.Ports.SerialPort 

		'Loading COM into combobox
		CmbAry(0).Items.Add(myPort)         'ComboBox9.Items.AddRange(myPort)


		For Each portName As String In My.Computer.Ports.SerialPortNames
			CmbAry(0).Items.Add(portName)
		Next


		For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1
			CmbAry(0).Items.Add(My.Computer.Ports.SerialPortNames(i))
		Next


Dim ports As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.Ports.SerialPortNames
		i = ports.Count
		i = i
		For Each port As String In ports
			CmbAry(0).Items.Add(port)  'Console.WriteLine(port)
		Next

		For i = 0 To 3
			For Each sp As String In My.Computer.Ports.SerialPortNames
				CmbAry(i).Items.Add(sp)
			Next
		Next

---