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