注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Bioinformatics home

 
 
 

日志

 
 

perl 获取windows 系统信息  

2011-01-25 00:09:01|  分类: Perl |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
1、获取操作系统版本信息
获取操作系统:print $^O."\n";
linux
MSWin32


1 use Win32;
2 use strict;
3 ($OS_string, $OS_major, $OS_minor, $OS_build, $OS_id) = Win32::GetOSVersion();  
 
2、获取系统目录
1 my $systemdir= Win32::GetFolderPath(0x0025) if(Win32::GetFolderPath(0x0025));
在xp系统下$systemdir的变量值为C:\Windows\System32
 
3、获取Windows目录
1 our $windir = Win32::GetFolderPath(0x0024) if(Win32::GetFolderPath(0x0025));
 在本人xp系统下$windir的变量值为C:\WINDOWS
 
4、获取系统所在的磁盘驱动号
1 our $rootdir= $ENV{SYSTEMDRIVE} if($ENV{SYSTEMDRIVE});
 在本人xp系统下$rootdir的变量值为C:,因为我机器操作系统装在C盘
 
5、获取执行程序当前目录
1 our $currentdir   = Win32::GetCwd() if(Win32::GetCwd);
 
6、获取用户的document文件夹
1 our $alldocuments = Win32::GetFolderPath(0x002e) if(Win32::GetFolderPath(0x002e));
 在本人xp系统下, $documents的变量值为C:\Documents and Settings\All Users\Documents
 
7、获取临时文件夹目录
1 our $tempdir      = $ENV{TEMP} if($ENV{TEMP});
 
8、获取当前用户启动文件夹目录
1 our $mystartup    = Win32::GetFolderPath(0x0007) if(Win32::GetFolderPath(0x0007));
 
9、获取所用用户启动文件夹目录
1 our $allstartup   = Win32::GetFolderPath(0x0018) if(Win32::GetFolderPath(0x0018));
 
10、获取Program Files文件夹目录
1 our $programdir   = Win32::GetFolderPath(0x0026) if(Win32::GetFolderPath(0x0026));
 
11、获取AppData文件夹目录
1 our $myappdata    = Win32::GetFolderPath(0x001a) if(Win32::GetFolderPath(0x001a));
 
12、获取Desktop文件夹目录
1 our $mydesktop    = Win32::GetFolderPath(0x0010) if(Win32::GetFolderPath(0x0010));
 
13、获取当前用户Favorite文件夹目录
1 our $myfavorites  = Win32::GetFolderPath(0x0006) if(Win32::GetFolderPath(0x0006));
 
14、获取所有用户的Favorite文件夹目录
1 our $allfavorites = Win32::GetFolderPath(0x001f) if(Win32::GetFolderPath(0x001f));
 
15、获取启动菜单文件夹目录
1 our $mystartmenu  = Win32::GetFolderPath(0x000b) if(Win32::GetFolderPath(0x000b));
 
16、获取计算机名称
1 our $computername = Win32::NodeName() if(Win32::NodeName());
 
17.、获取当前系统登录用户名
1 our $username     = Win32::LoginName() if(Win32::LoginName());
  评论这张
 
阅读(1376)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017