Is there anything available to find which Comm Ports are available or being used?

Currently I use this DEVCON.EXE with this code, but it does not work in Vista.



Set Memowidth To 200

! devcon findall =ports > ports.txt
Create Table Data\ports (portlist m(20))

Append Blank
Append Memo portlist From ports.txt Overw
Modify Memo portlist Noedit && Display memo field again

This.Parent.txtcomm_Port.SetFocus()