Check user's administrative privileges on NT platform

 

Compatibilities: Required Xtras: KeyboardControl Xtra Standard

This item has not yet been rated

On NT platform some system functionality is not available. This tiny behavior allows to check Administrative Privileges that user has.

-- Behavior to check administrative privileges on NT/2000 -- KeyboardControl Xtra 1.1 or later required on getBehaviorDescription   return "Checks User's Administrative Privileges" end on mouseDown   checkPrivileges end on checkPrivileges   set IsAdmin = KeyboardControlIsAdmin()   case IsAdmin of     0: set Status = "Disabled"     1: set Status = "Enabled"   end case   alert ("Administrative privileges are " & Status) end