in reply to Re: How to determining if I am on .NET versus Windows 2003
in thread How to determining if I am on .NET versus Windows 2003

Windows .NET Enterprise Server: 

Windows version [2:5:2] unknown! at PERL2EXE_STORAGE/Win32.pm line 129

[download]

Windows 2003 Server: 

Windows version [2:5:2] unknown! at PERL2EXE_STORAGE/Win32.pm line 129

[download]

Thanks for your help. Do you know where the cutoff point for 2003 and .NET is? Are they 3600 and 3700, respectively??

-P0w3rK!d

Replies are listed 'Best First'.
Re: Re: Re: How to determining if I am on .NET versus Windows 2003
by Mr. Muskrat (Canon) on Apr 04, 2003 at 19:13 UTC

    I'm not sure. From the looks of it, neither is MS Operating System Properties.

    You might try running winver...

    1. Click Start | Run.
    2. In the Open box, type Winver.
    3. Click OK or press Enter.

[reply]
[d/l]
      I'm just going to grab what I need for now. I was trying to look ahead to compiling on new Windows platforms using Perl, Java, and Ant. Based on your help, I wrote up the code I need so it's ready months down the road. I'm just going to key off the build version to diff btw 2003 Server and .Net Enterprise for now.

      Thanks :)

      -P0w3rK!d

[reply]
      Mr. Muskrat,

      winver just opens a dialog with the information. That's not what I need, but thank you anyways. :)

      -P0w3rK!d

[reply]
Re: Re: Re: How to determining if I am on .NET versus Windows 2003
by Vorlin (Beadle) on Apr 05, 2003 at 05:09 UTC
    I haven't done much with Win32 in perl and others have already stated the whole 'can you get the build version' but from what was given, it seems we know the following:
    1. build versions are the only difference in the given chart
    2. .NET has 36## for build version
    3. 2003 has 37## for build version
    First, since I don't know what the variables are for Config, I do the following:
    foreach $i (keys %Config) {
  print "$i\n";
}

    [download]
    Perhaps a set variable based on what the build version is?
    Example:
    $build_prefix = substr Win32::GetBuild, 0, 2;

if ($build_prefix == '36') {
  # do something for .NET
} elsif ($build_prefix == '37') {
  # do something for 2003
}

    [download]
    Course, it'd be better if I knew for sure you could get the build version from Config or Win32, but it's a helping hand! I'm probably going to go look it up soon anyways just to know, hehe...

    EDIT: after looking back over this, it seems the above code/etc is a really kludgy way of doing it and I probably should've done my homework before posting. Bah, I say...it's 12:30 and I'm still at work!
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom