программно вывести список модемов и их состояния

[Ципихович Эндрю]

здравствуйте, нужен код на вб(а) как программно вывести список модемов на компьютере и их состояния, строго!!!!! с вкладки панель управления, телефон и модем, программно она открывается так:

'control.exe - служит для работы с панелью управления
'telephon.cpl - оснастка панели управления для телефонии
'1 - номер вкладки, которую нужно активировать при открытии (отсчет с нуля)
'Shell "control.exe telephon.cpl,,1"

'закрыть вкладку
SendMessage GetForegroundWindow, &H10, 0&, 0&