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

发布时间：2020-12-16 00:32:04 所属栏目：大数据来源：网络整理

导读：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、获取系统目录 1 my $systemdir = Win32 ::

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、获取系统目录

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

在xp系统下$systemdir的变量值为C:WindowsSystem32

3、获取Windows目录

1 our$windir GetFolderPath(0x0024if(Win320x0025));

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

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

$rootdir$ENV{SYSTEMDRIVE} {SYSTEMDRIVE});

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

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

$currentdirGetCwd() GetCwd);

6、获取用户的document文件夹

$alldocuments0x002e));

在本人xp系统下,$documents的变量值为C:Documents and SettingsAll UsersDocuments

7、获取临时文件夹目录

$tempdir{TEMP} {TEMP});

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

$mystartup0x0007));

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

$allstartup0x0018));

10、获取Program Files文件夹目录

$programdir0x0026));

11、获取AppData文件夹目录

$myappdata0x001a));

12、获取Desktop文件夹目录

$mydesktop0x0010));

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

$myfavorites0x0006));

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

1 $allfavorites0x001f));

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

$mystartmenu0x000b));

16、获取计算机名称

$computernameNodeName() NodeName());

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

$usernameLoginName() LoginName());

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!