lparameters tcDomain, tcUserName local loWMI, loAccount, lcDomain, lcUserName, loGroups, loGroup, lnStartTime lcDomain = Iif(Vartype(tcDomain) = 'C' and not Empty(tcDomain), Alltrim(tcDomain), Getenv('UserDomain')) lcUserName = Iif(Vartype(tcUserName) = 'C' and not Empty(tcUserName), Alltrim(tcUserName), Getenv('UserName')) if not Empty(lcDomain) and not Empty(lcUserName) try loLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator') loWMI = loLocator.ConnectServer() loAccount = loWMI.Get([Win32_Account.Domain="] + lcDomain + [",Name="] + lcUserName + ["]) loGroupUsers = loWMI.ExecQuery([Select * from Win32_GroupUser where PartComponent=']+Strtran(loAccount.Path_.Path, '\', '\\')+[']) llIsAdmin = .f. for each loGroupUser in loGroupUsers loGroup = Getobject([WinMgmts:] + loGroupUser.GroupComponent) llIsAdmin = loGroup.Name = 'Administrators' exit endfor ? 'Is Admin?', llIsAdmin catch ? 'Error' endtry endif