¿Hay alguna manera de verificar los derechos de administrador en Windows con Perl?

Question

Estoy tratando de construir un script de inicio básico que averigüe en qué sistema operativo estoy ejecutando y si es necesario cargar algún módulo especial. En lo que respecta a Linux, puedo verificar la raíz examinando el uid efectivo $> ¿hay alguna manera de hacer una operación similar en Windows?

Answer 1

Win32 podría ayudarlo a obtener el nombre de usuario en Windows.

Answer 2

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