Submit a ticketCall us

ebook60.pngHow to be a Cisco® ASA ace

Our eBook, Thou Shalt Not Pass…I Think?! can help you overcome the challenges of monitoring and managing Cisco ASA firewalls. This eBook is a great read if you’ve been frustrated with monitoring firewalls, managing ACL configs, and troubleshooting VPN connections.

Get your free eBook.

Home > Success Center > Kiwi CatTools > Kiwi CatTools Documentation > 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: 118 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