RE: determining windows OS

[Tim Johnson]

Here's how I've been doing it:


###########################################


use Win32::TieRegistry (delimiter => '/');

foreach(@ARGV){
   if(IsServer($_)){
      print "$_ is a server\n";
   }
}

sub IsServer{
        my $wkstn = $_[0];
        my $reg =
$Registry->{"//$wkstn/HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Pr
oductOptions/"};
        if($reg->{'ProductType'} =~ /(LanmanNT|ServerNT)/){
                return 1;
        }
        return 0;
}


############################################

-----Original Message-----
From: Jonathan Chan [mailto:[EMAIL PROTECTED] 
Sent: Monday, September 15, 2003 12:01 PM
To: Perl-Win32-Admin-Request (E-mail)
Subject: determining windows OS


hi guys,

i'm using a function that looks at a client's registry to determine which 
windows os a box is running. i can easily easily determine if a machine is 
nt, 2000, or xp. does anyone have a way of determining if a box is either 
running nt server or nt workstation?


_______________________________________________
Perl-Win32-Admin mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs