Có cách nào để kiểm tra quyền quản trị trong Windows bằng Perl không?

Question

Tôi đang cố gắng xây dựng một tập lệnh khởi động cơ bản để tìm ra hệ điều hành nào tôi đang chạy và nếu có bất kỳ mô-đun đặc biệt nào cần tải. Theo như Linux là có liên quan tôi có thể kiểm tra cho root bằng cách nhìn vào hiệu quả uid $> là có một cách để làm một hoạt động tương tự trên các cửa sổ?

Answer 1

Win32 có thể giúp bạn nhận tên người dùng trong Windows.

Answer 2

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