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

Question

我想建立一个基本的初学者脚本，算出我运行的操作系统，以及是否需要加载任何特殊模块。就Linux而言，我可以通过查看有效的uid来检查根目录是否有办法在Windows上执行类似的操作？

Answer 1

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

Answer 2

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