Perl篇：获取操作系统的信息

1、获取操作系统版本信息

 use Win32;
2 use strict;
3 ($OS_string, $OS_major, $OS_minor, $OS_build, $OS_id) = Win32::GetOSVersion();  

 

2、获取系统目录

 my $systemdir= Win32::GetFolderPath(0x0025) if(Win32::GetFolderPath(0x0025));

在xp系统下$systemdir的变量值为C:\Windows\System32

 

3、获取Windows目录

 our $windir = Win32::GetFolderPath(0x0024) if(Win32::GetFolderPath(0x0025));

 在本人xp系统下$windir的变量值为C:\WINDOWS

 

4、获取系统所在的磁盘驱动号

 our $rootdir= $ENV{SYSTEMDRIVE} if($ENV{SYSTEMDRIVE});

 在本人xp系统下$rootdir的变量值为C:,因为我机器操作系统装在C盘

 

5、获取执行程序当前目录

 our $currentdir   = Win32::GetCwd() if(Win32::GetCwd);

  

6、获取用户的document文件夹

 our $alldocuments = Win32::GetFolderPath(0x002e) if(Win32::GetFolderPath(0x002e));

 在本人xp系统下, $documents的变量值为C:\Documents and Settings\All Users\Documents

 

7、获取临时文件夹目录

 our $tempdir      = $ENV{TEMP} if($ENV{TEMP});

  

8、获取当前用户启动文件夹目录

 our $mystartup    = Win32::GetFolderPath(0x0007) if(Win32::GetFolderPath(0x0007));

  

9、获取所用用户启动文件夹目录

 our $allstartup   = Win32::GetFolderPath(0x0018) if(Win32::GetFolderPath(0x0018));

  

10、获取Program Files文件夹目录

 our $programdir   = Win32::GetFolderPath(0x0026) if(Win32::GetFolderPath(0x0026));

  

11、获取AppData文件夹目录

 our $myappdata    = Win32::GetFolderPath(0x001a) if(Win32::GetFolderPath(0x001a));

  

12、获取Desktop文件夹目录

 our $mydesktop    = Win32::GetFolderPath(0x0010) if(Win32::GetFolderPath(0x0010));

  

13、获取当前用户Favorite文件夹目录

 our $myfavorites  = Win32::GetFolderPath(0x0006) if(Win32::GetFolderPath(0x0006));

  

14、获取所有用户的Favorite文件夹目录

 

 our $allfavorites = Win32::GetFolderPath(0x001f) if(Win32::GetFolderPath(0x001f));

  

15、获取启动菜单文件夹目录

 our $mystartmenu  = Win32::GetFolderPath(0x000b) if(Win32::GetFolderPath(0x000b));

 

16、获取计算机名称

 our $computername = Win32::NodeName() if(Win32::NodeName());

 

 

17.、获取当前系统登录用户名

 our $username     = Win32::LoginName() if(Win32::LoginName());