sub get_parm 
   {
    my ($SubKey) = @_;
    my $num = "1";
    my $nic = "$SubKey$num";
    print $nic,"\n";
    if (my $Class = $Registry->{"LMachine/SYSTEM/CurrentControlSet/Services/$nic/Parameters"} ||  
                                 die "Can't read LMachine/SYSTEM/CurrentControlSet/Services/$nic/Parameters key: $^E\n") 
      {
       &go_next($Class);
      }
      else
         {
          my $num = "2";
          my $nic = "$SubKey$num";
          print $nic,"\n";
          my $nic = "$SubKey$num";
          my $Class = $Registry->{"LMachine/SYSTEM/CurrentControlSet/Services/$nic/Parameters"} ||  
                                   die "Can't read LMachine/SYSTEM/CurrentControlSet/Services/$nic/Parameters key: $^E\n";
          &go_next($Class);
         }
   }