perl - 使用 Perl 调用 protected Windows 7 可执行文件

Question

我正在尝试编写一个 perl 脚本，该脚本使用 query.exe (c:\Windows\system32\query.exe) 确定哪些用户当前登录到 Windows。 Perl 无法访问该文件，无法执行它，甚至无法看到它的存在，正如我在以下代码中发现的那样:

print `dir c:\\windows\\system32\\query*`;

这会产生以下输出:

07/13/2009  05:16 PM         1,363,456 Query.dll
1 File(s)      1,363,456 bytes
0 Dir(s)  183,987,658,752 bytes free

我已经使用 perl 的 getlogin 函数检查了执行脚本的用户，它返回了本地管理员组成员的名称(特别是我)。我还尝试为“所有人”添加读取/执行权限，但是当我尝试修改此文件的权限时，Windows 不断给我拒绝访问错误。最后，我尝试以管理员身份运行 perl.exe，但这也不能解决问题。

我可以通过更改 Windows 中的某些设置来解决这个问题吗？我需要在我的 perl 脚本中添加一些东西吗？还是没有办法授予 perl 访问其中一些进程的权限？

Answer 1

在我的 64 位机器上，我可以在 Windows\System32(64 位系统目录)中找到 query.exe，但在 Windows\SysWOW64(32位系统目录)。

我怀疑您正在运行 64 位 Windows 和 32 位 Perl，因此，在 WOW64 仿真下，32 位 Perl 进程将 system32 重定向到 SysWOW64。

由于 system32 应该在你的路径中，你应该能够通过在没有任何路径的情况下执行 query.exe 来执行它。如果您绝对必须引用 64 位系统文件夹，那么您可以使用 C:\Windows\sysnative 从 32 位进程执行此操作。

如果我的怀疑是正确的，我建议您阅读 WOW64，因为在您掌握它之前可能会非常困惑。另一方面，如果你已经知道这一切，我为光顾而道歉。