? ATC("Administrators", localgroups())>0 PROCEDURE LocalGroups LOCAL strComputer, objWMIService, colItems, objItem, lcResult lcResult = "" #IF VERSION(5)>600 strComputer = "." objWMIService = GETOBJECT( "winmgmts:\\" + strComputer + "\root\cimv2") colItems = objWMIService.ExecQuery("Select * from Win32_Group Where LocalAccount = True") lcResult = crlf IF NOT TYPE("colItems.Count")=="O" FOR EACH objItem IN colItems lcResult = lcResult + TRANSFORM(objItem.NAME) + crlf NEXT ENDIF #ENDIF RETURN lcResult ENDPROC