如何使用UAC提升Perl进程

Question

假设我有一个脚本需要从普通用户不允许读取的地方（例如其他用户的文件夹）读取信息。

目前我所能做的只是抱怨没有作为“超级用户”运行而退出，但我宁愿让脚本自己去寻求提升。

Answer 1

根据MSDN和PerlMonks，你可以尝试：

Win32::FileOp::ShellExecute(runas => 'yourprogram.exe') 

或

Win32::FileOp::ShellExecute(runasuser => 'yourprogram.exe') 

这些应该（未测试）问你海拔在需要时。 （仅适用于Windows 7）。

相关：Requesting Administrator privileges during runtime

Answer 2

如果你确定通过快捷方式启动，可以使用以下命令：

1. 创建一个快捷方式perl.exe所在

2. 编辑的快捷方式。

   1. 在快捷方式选项卡，将 “目标”，以

      “C：\ BIN \ perl.exe所在” “C：\ script.pl”

   2. [可选]在快捷方式选项卡上，将“开始”更改为脚本所在目录的路径。

   3. 在快捷方式选项卡上，单击“高级”，然后选中“以管理员身份运行”。

有一个名为“runas”的工具，但我似乎无法得到它不向您的管理员密码工作。

Answer 3

我在自己的作品中对这个问题没有很好的回答，所以我写了Win32::RunAsAdmin。它所做的就是调用通过OLE Windows外壳程序与“运行方式”为动词，但其打包方便，所有您需要做的就是坚持在你的代码的开头如下：

use Win32::RunAsAdmin qw(force); 

在导入一步，它将检查提升的特权，并且如果你已经在提升模式下运行，则默默地返回。否则，它将使用UAC弹出菜单以提升模式重新启动脚本。