Leser: 1
|< 1 2 3 4 >| | 35 Einträge, 4 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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);
}
}
|< 1 2 3 4 >| | 35 Einträge, 4 Seiten |