Function EnumerateAdmins() 'Returns space-delimited quoted user names Dim objWMI, colUsers, objUser, strGroup, strUser, strUsers, blnIsAdmin On Error Resume Next Err.Clear strUsers = "" Set objWMI = GetObject("winmgmts:\\.\root\CIMV2") Set colUsers = objWMI.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", 48) If Err.Number = 0 Then For Each objUser In colUsers strGroup = objUser.GroupComponent strGroup = Split(strGroup, "=") If strGroup(UBound(strGroup)) = """Administrators""" Then strUser = objUser.PartComponent strUser = Split(strUser, "=") If strUsers <> "" Then strUsers = strUsers & " " strUsers = strUsers & strUser(UBound(strUser)) End If Next End If EnumerateAdmins = strUsers End Function