two question on win32 machines

[NEVERSLEEP]

1:
on my 2kpro machine...
print $^O; # returns MSWin32
how can i be sure the client os is 2k ?

2:
how can i use the Open($Register,$hkey) here
to display all sub directory also.
this must also apply to GetKeys & GetValues methods
here what i got (this dont do sub! please optimize my code)

use strict;
use Win32::Registry;

my $Register = "";
my ($hkey, @key_list, $key, $root);
my @roots = ($HKEY_CLASSES_ROOT,$HKEY_CURRENT_USER,$HKEY_LOCAL_MACHINE,$HKEY_CURRENT_CONFIG);

foreach $root (@roots) {
  $root->Open($Register,$hkey) || die "\n$! dead in ($root)" ;
  $hkey->GetKeys(\@key_list);
  print "$Register keys\n";
  foreach $key (@key_list) {
   print "$key\n";
  }
 $hkey->Close();
}
print "\nhit enter to quit";
sleep unless <stdin>;
exit;

thanks alot! ---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[NEVERSLEEP]

ok for 1 ive found it...

$client_os = `echo %os%`;
chomp $client_os;

but this wont differ between nt and 2k...
any better idea ? ---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[MikeLacey]

ok -- cool, I wouldn't have thought of that.

Why do you need to differentiate between NT and 2K? They're both NT really..... Mike
______________________________________________________________________
"Experience is the comb that Nature gives us after we are bald."

Is that a haiku?
I never could get the hang
of writing those things.

 

[NEVERSLEEP]

how about #2 mike ? ---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[MikeLacey]

#2? Mike
______________________________________________________________________
"Experience is the comb that Nature gives us after we are bald."

Is that a haiku?
I never could get the hang
of writing those things.

 

[NEVERSLEEP]

2:
how can i use the Open($Register,$hkey) here
to display all sub directory also.
this must also apply to GetKeys & GetValues methods
here what i got (this dont do sub! please optimize my code)

use strict;
use Win32::Registry;

my $Register = "";
my ($hkey, @key_list, $key, $root);
my @roots = ($HKEY_CLASSES_ROOT,$HKEY_CURRENT_USER,$HKEY_LOCAL_MACHINE,$HKEY_CURRENT_CONFIG);

foreach $root (@roots) {
  $root->Open($Register,$hkey) || die "\n$! dead in ($root)" ;
  $hkey->GetKeys(\@key_list);
  print "$Register keys\n";
  foreach $key (@key_list) {
   print "$key\n";
  }
 $hkey->Close();
}
print "\nhit enter to quit";
sleep unless <stdin>;
exit;

---------------------------------------

someone knowledge ends where
someone else knowledge starts

 

[NEVERSLEEP]

is there like a special operator ?
that will NOT limit the search ? ---------------------------------------

someone knowledge ends where
someone else knowledge starts