How to get the user or his rights?

Bob Sneidar bobs at twft.com
Mon Mar 26 15:05:10 EDT 2012


Oooh thanks for that Ray. That is going in my Library. :-)

Bob


On Mar 26, 2012, at 11:47 AM, Ken Ray wrote:

> 
> On Mar 26, 2012, at 1:38 AM, Tiemo Hollmann TB wrote:
> 
>> Hi Bob,
>> thanks for your hints.
>> For windows standalones you can set the UAC Execution Level to "require
>> Admin". So LC knows, who's logged in. I wonder, if we can retrieve this
>> information from LC?
> 
> You can get the name of the user that is logged in by checking the environment variables $USERNAME (on Windows) and $USER (on Mac). As to the user's permission level, this is what I use (watch line wraps):
> 
> 
> function stsIsAdminUser pName, pComputer
>  put stsAdminUserList(pComputer) into tList
>  return (pName is among the lines of tList)
> end stsIsAdminUser
> 
> function stsAdminUserList pOpt_ComputerName
>  switch (the platform)
>    case "MacOS"
>      put shell("dscl . read /groups/admin") into tData
>      filter tData with "GroupMembership:*"
>      put line 1 of tData into tList  -- strip other lines if there are any
>      delete word 1 of tList
>      replace space with CR in tList
>      break
>    case "Win32"
>      put "Set objGroup = GetObject(" & q("WinNT://" & pOpt_ComputerName & "/administrators,group") & ")" & cr &  \
>          "For Each objMember in objGroup.Members" & cr & \
>          "If tAdminList =" &&  quote & quote && "Then" & cr & \
>          "tAdminList = objMember.name" & cr & "Else" & cr & \
>          "tAdminList = tAdminList + vbCrLf + objMember.name" & cr & \
>          "End If" & cr & \
>          "Next" & cr & \
>          "result = tAdminList" into tScript
> 
>      do script tScript as "VBScript"
>      put the result into tList
>      break
>  end switch
>  return tList
> end stsAdminUserList
> 
> Hope this helps,
> 
> Ken Ray
> Sons of Thunder Software, Inc.
> Email: kray at sonsothunder.com
> Web Site: http://www.sonsothunder.com/	
> 
> _______________________________________________
> use-livecode mailing list
> use-livecode at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-livecode





More information about the use-livecode mailing list