windows - 如何在 Windows 上的 Perl 中获取用户和组信息？

Question

Perl 有几个内置函数，用于访问 Unix 系统(以及支持的其他地方)上的/etc/passwd 以获取用户和组信息。例如，

my $name = getpwuid($uid);

将返回给定用户 ID 的用户名，如果没有该用户则返回 undef。

如果 Perl 脚本需要可移植并在 Unices 和 Windows 上运行，应该如何访问用户和组信息？ ActivePerl 似乎支持 User::grent 和 User::pwent 模块，它们提供对/etc/passwd 的按字段访问——即使在 Windows 中也是如此。奇怪的是，它们不支持内置函数 getpw* 和 getgr*。还有哪些其他选择？

Answer 1

您可以使用 Win32::NetAdmin module .

UserGetAttributes 和 GroupIsMember 看起来它们可以满足您的需求。