gpt4 book ai didi

windows - 如何在 Perl 中以管理员模式打开命令提示符

转载 作者:可可西里 更新时间:2023-11-01 10:46:37 24 4
gpt4 key购买 nike

我需要以管理员身份在命令提示符下运行命令。当我通常使用 system() 命令发送命令以在命令提示符下运行时,我没有管理员级别提升。

如何获得管理员级别的权限来运行我的指令?

我可以右键单击 cmd.exe 并选择“以管理员身份运行”以在管理员模式下手动打开命令提示符。

谢谢!

编辑

如果未安装 7-Zip,我将尝试安装 7-Zip。 (您需要安装“wget”命令(*来自 Cygwin 或 GnuWin32)才能运行下面的代码片段)

use Cwd;
use File::Spec;
my $cwd = getcwd();
my $winpath = File::Spec->catdir($cwd);


if (!(-e "C:\\Program Files\\7-Zip")){
print "\n 7-Zip is not installed. Downloading ... \n";
system("wget http://downloads.sourceforge.net/project/sevenzip/7-Zip/9.20/7z920.exe?r=&ts=1392082197&use_mirror=softlayer-dal"); # SourceForge Mirror
print "\n Installing.. \n\n";
#print "\n Press \"install\" to install the 7-Zip installer on your pC\n\n";
if(-e $winpath."\\7z920.exe"){
system($winpath."\\7z920.exe");
}
}

最佳答案

如果您能够以管理员身份运行 cmd,那么您可以从该 cmd 实例运行您的 Perl 脚本,它将继承管理员权限。

您可以通过在 c:\windows 下创建一个目录来进行测试:

use strict;

if (mkdir 'c:/windows/perltest/') {
print "We have admin permissions";
rmdir 'c:/windows/perltest/'
} else {
print "No admin permission"
}

如果您在没有管理员权限的情况下运行并且想要提升它们,请检查 How to elevate Perl process using UAC .

旁注:您可以跳过下载 7-Zip。 Perl 有 many libraries that can handle zipping and unzipping .

关于windows - 如何在 Perl 中以管理员模式打开命令提示符,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22057506/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com