'

' 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 ) ; 

}