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

Question

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

Answer 1

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

Answer 2

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