Submit a ticketCall us

Solarwinds & Cisco Live! Barcelona
Join us from the 29th of January to the 2nd of February at Cisco Live 2018 in Barcelona, where we will continue to show how monitoring the network with SolarWinds will keep you ahead of the game. At our booth (WEP 1A), we will demonstrate how SolarWinds network solutions can help. As a bonus, we are also hosting a pre-event webinar - Blame the Network, Hybrid IT Edition with our SolarWinds Head Geek™, Patrick Hubbard on January 24th - GMT (UTC+0): 10:00 a.m. to 11:00 a.m. There's still time to RSVP.

Home > Success Center > Kiwi CatTools > Kiwi CatTools 3.11 Administrator Guide > API > CatTools API Classes > Groups > Sample code to list Groups found in your database

Sample code to list Groups found in your database

Table of contents
No headers
Created by Caroline Juszczak, last modified by Caroline Juszczak on Jun 28, 2016

Views: 110 Votes: 0 Revisions: 1

Sample VB code showing you how to list the Groups found in your database using the CatTools API.

 

Dim DB As CatToolsAPI.Database

Dim Groups As CatToolsAPI.Groups

Dim Group As CatToolsAPI.Group

 

Set DB = New CatToolsAPI.Database

 

DB.OpenConnection

If DB.Connected Then

Set Groups = DB.Groups

If Not Groups Is Nothing Then

Debug.Print Groups.Count & " groups in the database"

For Each Group In Groups

Debug.Print "->" & Group.Name

DoEvents

Next

Else

Msgbox "Error:" & DB.ErrDescription

End If

Else

Msgbox "Connection failed: " & DB.ErrDescription

End If

 

DB.CloseConnection

 

Set Group = Nothing

Set Groups = Nothing

Set DB = Nothing

Last modified

Tags

Classifications

Public