[Perl]用管理员权限自我执行(需要输入密码)

There's more than one way to do it!
https://metacpan.org http://perlmonks.org
头像
PerlMonk
渐入佳境
渐入佳境
帖子: 51
注册时间: 2016年09月19日 10:20
拥有现金: 锁定
Has thanked: 4 times
Been thanked: 3 times
联系:

[Perl]用管理员权限自我执行(需要输入密码)

帖子 #1 PerlMonk » 2017年06月17日 17:15

Code: [全选] [展开/收缩] [Download] (RunasAdmin.pl)
  1. #Code By: 523066680@163.com
  2. #2017-06
  3.  
  4. my $self = __FILE__;
  5. if ($ENV{"USERNAME"} =~ /Administrator/i)
  6. {
  7.     print "is Admin";
  8.     <STDIN>;
  9. }
  10. else
  11. {
  12.     print "not Admin";
  13.     system("runas /User:Administrator \"perl \\\"$self\\\"\"");
  14. }
  15.  
  16. exit;


小改
Code: [全选] [展开/收缩] [Download] (RunasAdmin.pl)
  1. #Code By: 523066680@163.com
  2. #2017-06
  3.  
  4. my $self = __FILE__;
  5. unless ($ENV{"USERNAME"} =~ /Administrator/i)
  6. {
  7.     system("runas /User:Administrator \"perl \\\"$self\\\"\"");
  8.     exit;
  9. }
  10.  
  11. print "Hello Admin\n";
  12. <STDIN>;
  13. exit;

回到 “Perl”

在线用户

用户浏览此论坛: 没有注册用户 和 0 访客