|
|
|
Check user's administrative privileges on NT platform
Added on 3/24/2002
|
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
|
|