Yet Another CPAN Grep

Win32-Elevate ( S/SU/SUBJUT/Win32-Elevate-0.01.tar.gz, SUBJUT, 2022; MetaCPAN )

Win32-Elevate/t/Win32-Elevate.t ( view source; MetaCPAN )

###

is( $^O, 'MSWin32', 'Check for Win32 platform');
isnt( Win32::IsAdminUser(), 0, "User is in Administrator group");

# ToSystem()
isnt( Win32::Elevate::BecomeSystem(), 0, "Elevate to system

SYSTEM elevation
isnt( Win32::Elevate::RevertToSelf(), 0, "RevertToSelf; Error: $^E" );
unlike( Win32::LoginName(), '/SYSTEM$/', "Don't have system credentials" );

# ToTI()
isnt( Win32::Elevate:

"Elevate to trusted installer credentials; Error: $^E" );

# RevertToSelf() after TI elevation
isnt( Win32::Elevate::RevertToSelf(), 0, "RevertToSelf; Error: $^E" );
unlike( Win32::LoginName(), '/