'
' This example is suitable for running
' in batch mode, to check the current state
' of workgroups
'
aWorkgroups = Application.Workgroups
Application.LogMessage "-----Current Active Workgroups-----"
for i = 0 to ubound( aWorkgroups, 1 )
	Application.LogMessage aWorkgroups(i)
next

// This example prints out all the current workgroups
aWorkgroups = new VBArray( Application.Workgroups ) ;
cntWorkgroups = aWorkgroups.ubound( 1 ) + 1
for ( var i = 0 ; i < cntWorkgroups ; i++ )
{		
	var strWorkgroupPath = aWorkgroups.getItem( i ) ;
	LogMessage( strWorkgroupPath ) ; 
}