有沒有辦法在Perl中檢查Windows中的管理員權限？

Question

我想建立一個基本的初學者腳本，算出我運行的操作系統，以及是否需要加載任何特殊模塊。就Linux而言，我可以通過查看有效的uid來檢查根目錄是否有辦法在Windows上執行類似的操作？

Answer 1

Win32 可能會幫助您在Windows中獲取用戶名。

Answer 2

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