Esiste un modo per verificare i diritti di amministratore in Windows con Perl?

Question

Sto provando a creare uno script base di partenza che mostri quale sistema operativo sto utilizzando e se alcuni moduli speciali hanno bisogno di essere caricati. Per quanto riguarda Linux, sono in grado di verificare la presenza di root osservando l'uid effettivo. $> c'è un modo per fare un'operazione simile su Windows?

Answer 1

Win32 potrebbe aiutarti a ottenere il nome utente in Windows.

Answer 2

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