有没有办法用 Perl 检查 Windows 中的管理员权限？

Question

我正在尝试构建一个基本的入门脚本，该脚本可以确定我正在运行的操作系统以及是否需要加载任何特殊模块。就Linux而言，我可以通过查看有效的uid $>来检查root是否有办法在Windows上执行类似的操作？

Answer 1

Win32
可能会帮助您在 Windows 中获取用户名。

Answer 2

if ( system("NET SESSION >NUL 2>&1") ) {
    ...
}