Training, Open Source computer languages
PerlPHPPythonMySQLApache / TomcatTclRubyJavaC and C++LinuxCSS 
Search for:
Home Accessibility Courses Diary The Mouth Forum Resources Site Map About Us Contact
Python, Lua and Tcl - public course schedule [here]
Private courses on your site - see [here]
Please ask about maintenance training for Perl, PHP, Java, C, C++, Ruby, MySQL and Linux / Tomcat systems
Microsoft windows - what version is running?

Posted by enquirer (enquirer), 28 September 2003
How do I find out things like the current version of Windows that I'm running from within a Perl program?

Posted by admin (Graham Ellis), 28 September 2003
The Win32 module that comes with the ActiveState distribution includes a lot of useful information ....

use Win32;

@bits = Win32::GetOSName();
print "Operating System:         $bits[0]\n";
print "Extra Information:        $bits[1]\n\n";

$timer = Win32::GetTickCount();
print "Milliseconds since boot:  $timer\n";

$who = Win32::LoginName();
print "Current User:             $who\n";

$drive = Win32::GetNextAvailDrive();
print "Next Available Drive:     $drive\n\n";

@fsinfo = Win32::FsType();
print "File System Type          $fsinfo[0]\n";
print "Maximum object name len:  $fsinfo[2]\n";
printf "Flags for file system:    %b\n",$fsinfo[1];

and here's the output from running that:

Operating System:         WinXP/.Net
Extra Information:        Service Pack 1

Milliseconds since boot:  43530153
Current User:             trainee
Next Available Drive:     E:

File System Type          NTFS
Maximum object name len:  255
Flags for file system:    1010000000011111111


This page is a thread posted to the opentalk forum at and archived here for reference. To jump to the archive index please follow this link.

You can Add a comment or ranking to this page

© WELL HOUSE CONSULTANTS LTD., 2018: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01225 708225 • FAX: 01225 793803 • EMAIL: • WEB: • SKYPE: wellho