Help for this page

Select Code to Download


  1. or download this
    use Win32::TieRegistry( Delimiter=>"/" );
unless(
  $remoteKey= $Registry->{"//$pserver/LMachine/SYSTEM/"
...
) {
     die "Can't read the port key on $pserver: $^E\n";
}
  2. or download this
    use Win32::TieRegistry( Delimiter=>"/" );
$remoteKey = $Registry->Open(
  "##$pserver#LMachine#SYSTEM#"
...
  . "HP Standard TCP/IP Port#Ports#$portname#",
  { Delimiter=>"#" }
)  or  die "Can't read the port key on $pserver: $^E\n";