perl - Perl 代码检索当前登录的 windows 服务器用户列表

Question

客户端正在使用不同的用户名连接到 Windows 服务器。例如：

• client1 使用 user1 连接到服务器
• client2 使用 user2 连接到服务器
• client3 与 user3 连接到服务器

现在服务器上有 3 个当前登录的用户：user1、user2、user3。

是否可以检索登录的用户和客户端名称？我可以在用户表单的任务管理器中看到这一点，如下图所示：

Answer 1

我不使用 Windows，但我可以通过谷歌来猜测解决方案。

此页面建议您可以query user用来获取已登录用户的列表。

您可以在 Perl 中运行该命令并使用qx[].

# All output in a scalar
my $users = qx[query users];

# One line of output per element in an array
my @users = qx[query users];

你知道在 Perl 变量中有你想要的信息。下一步是解析该数据以提取您需要的特定字段。由于我目前无法访问运行 Windows 的机器，因此我看不到此命令返回的格式，因此我无法帮助您完成该过程的第二部分。

如果您在解析数据时遇到问题，请在此处的新问题中发布数据示例，我们将很乐意为您提供进一步帮助。