http://www.cnblogs.com/royenhome/archive/2010/07/21/1782019.html
1、获取操作系统版本信息
1
use
Win32;
2 strict;
3 ($OS_string, $OS_major$OS_minor$OS_build$OS_id) = Win32::GetOSVersion();
2 strict;
3 ($OS_string, $OS_major$OS_minor$OS_build$OS_id) = Win32::GetOSVersion();
2、获取系统目录
1
my
$systemdir
=
Win32
::
GetFolderPath(
0x0025
)
if
(Win32
));
在xp系统下$systemdir的变量值为C:\Windows\System32
3、获取Windows目录
在本人xp系统下$windir的变量值为C:\WINDOWS
4、获取系统所在的磁盘驱动号
$rootdir$ENV{SYSTEMDRIVE} {SYSTEMDRIVE});