Re: open com port list

[rpnoble419]

in reply to open com port list

You might want to try this:

#! perl -slw
use strict;
use Win32::TieRegistry 0.20;

# open registry node
my $key= new Win32::TieRegistry "LMachine\\Hardware\\DEVICEMAP\\SERIAL
+COMM\\";

# Get list of value names:
my @valueNames= $key->ValueNames;

foreach my $item (@valueNames)
{
    my $valueString= $key->GetValue($item);
    print $valueString."\n";
}