Sub Example_GetAllProfileNames()
    ' Этот пример получает все конфигурации, доступные для системы.
    
    Dim systemProfiles As Variant
    Call AcadApplication.preferences.Profiles.GetAllProfileNames(systemProfiles)
       
    ' Перечислите все конфигурации для системы
    Dim x As Integer
    Dim msg As String
    msg = ""
    For x = LBound(systemProfiles) To UBound(systemProfiles)
        msg = msg & systemProfiles(x) & vbCrLf
    Next
    MsgBox msg, vbInformation, "Доступные Конфигурации"
End Sub