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

[PerlMonk]

Code: [show] | [select all]

#Code By: 523066680@163.com

#2017-06



my $self = __FILE__;

if ($ENV{"USERNAME"} =~ /Administrator/i)

{

    print "is Admin";

    <STDIN>;

}

else 

{

    print "not Admin";

    system("runas /User:Administrator \"perl \\\"$self\\\"\"");

}



exit;

小改

Code: [show] | [select all]

#Code By: 523066680@163.com

#2017-06



my $self = __FILE__;

unless ($ENV{"USERNAME"} =~ /Administrator/i)

{

    system("runas /User:Administrator \"perl \\\"$self\\\"\"");

    exit;

}



print "Hello Admin\n";

<STDIN>;

exit;