Enumerate COM Ports using VB.net Public Function foo () As Integer Try Dim searcher As New ManagementObjectSearcher ( _ "root\CIMV2" , _ "SELECT * FROM Win32_SerialPort" ) For Each queryObj As ManagementObject In searcher . Get () Debug . WriteLine ( queryObj ( "Caption" )) Debug . WriteLine ( queryObj ( "Description" )) Debug . WriteLine ( queryObj ( "DeviceID" )) Debug . WriteLine ( queryObj ( "Name" )) Debug . WriteLine ( queryObj ( "PNPDeviceID" )) Next Catch err As ManagementException Stop End Try End Function Public Function bar () As Integer Try Dim searcher As New ManagementObjectSearcher ( _ "root\CIMV2" , _ "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode = 0" ) ...
My simple yet significant travels so far are highlighted in this website. Each photograph on this page was taken with much appreciation and wonder-from shots of our small family's travels added in our children's bank of fond childhood memories to shots of the nation's most famous churches that never fail to inspire us to pray more, up to shots of my own solo trips around the world that have extended my horizons. Such memorable travels, I would say, exist in tons and wait to be encountered in the