Dim repository, connected, counter
Set repository = RepositoryConnection
connected = repository.Connected
If not connected then
connected = repository.Open()
End If
counter = repository.Configurations.Count
output « Nombre de configurations: » & counter