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
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 ....

Code:
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:

Code:
C:\demo>osinfo.pl
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

C:\demo>




This page is a thread posted to the opentalk forum at www.opentalk.org.uk 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., 2014: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • FAX: 01144 1225 899360 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho