'LANGUAGE=ENU
'SERVERNAME=IP OF YOUR CMS
'option explicit
dim lb	
dim ub 	
dim agt_grp
dim x 
dim y
dim dpath1
dim grps(100) 'Higher # if you have > 99 agent groups
dim strbuff 'as string
dim file1
'
Public Sub Main()
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Dictionary: Report: Agent Group Members: Export Data"
'## Parameters.Add "Dictionary: Report: Agent Group Members: Export Data","_Desc"
'## Parameters.Add "Dictionary","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Dictionary\\Agent Group Members","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "2295","_Top"
'## Parameters.Add "7020","_Left"
'## Parameters.Add "5190","_Width"
'## Parameters.Add "6255","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "The report Dictionary\\Agent Group Members was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "Phone Room Operators","Agent Group"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\jobrien\Documents\cms\call_recds\agent_groups.txt","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

' On Error Resume Next
'**********
dpath1 = "C:\mmc\cms1\agent_groups\"	'Change to a folder on your PC & backslash
file1= dpath1 & "Agent_Groups.txt"
'***********
On Error Resume Next

   cvsSrv.Dictionary.ACD = 1
   Set Info = cvsSrv.Dictionary.Reports("Dictionary\\Agent Groups")

   If Info Is Nothing Then
	  If cvsSrv.Interactive Then
		  MsgBox "The report Dictionary\\Agent Groups was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
	  Else
	   	  Set Log = CreateObject("ACSERR.cvsLog") 
		  Log.AutoLogWrite "The report Dictionary\\Agent Groups was not found on ACD 1."
		  Set Log = Nothing
	  End If
   Else

	   b = cvsSrv.Dictionary.CreateReport(Info,Rep)
	   If b Then
	
	      Rep.Window.Top = 2295
	      Rep.Window.Left = 7020
	      Rep.Window.Width = 5190
	      Rep.Window.Height = 6255        

                        Rep.TimeZone = "default"
	
	      Rep.SetProperty "Agent group name",""	'

	      b = Rep.ExportData(file1, 9, 0, True, True, True)

	      Rep.Quit

              If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
	      Set Rep = Nothing
	   End If

   End If
   Set Info = Nothing
'## cvs_cmd_end
'*******************************************
'## cvs_cmd_begin
'## ID = 2001
'## Description = "Dictionary: Report: Agent Group Members: Export Data"
'## Parameters.Add "Dictionary: Report: Agent Group Members: Export Data","_Desc"
'## Parameters.Add "Dictionary","_Catalog"
'## Parameters.Add "2","_Action"
'## Parameters.Add "1","_Quit"
'## Parameters.Add "Dictionary\\Agent Group Members","_Report"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "2295","_Top"
'## Parameters.Add "7020","_Left"
'## Parameters.Add "5190","_Width"
'## Parameters.Add "6255","_Height"
'## Parameters.Add "default","_TimeZone"
'## Parameters.Add "The report Dictionary\\Agent Group Members was not found on ACD 1.","_ReportNotFound"
'## Parameters.Add "*","_BeginProperties"
'## Parameters.Add "Phone Room Operators","Agent Group"
'## Parameters.Add "*","_EndProperties"
'## Parameters.Add "*","_BeginViews"
'## Parameters.Add "*","_EndViews"
'## Parameters.Add "C:\Users\jobrien\Documents\cms\call_recds\agent_groups.txt","_Output"
'## Parameters.Add "9","_FldSep"
'## Parameters.Add "0","_TextDelim"
'## Parameters.Add "True","_NullToZero"
'## Parameters.Add "True","_Labels"
'## Parameters.Add "True","_DurSecs"

'**********
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set objFSO = createobject("Scripting.FilesystemObject")
set objTextFile=objFSO.OpenTextFile(file1,1)
do Until ObjTextFile.AtEndofStream
	x=1+x
	grps(x)=ObjTextFile.Readline
'	msgbox grps(x)
loop	
set objFSO = Nothing
mx=x
for x= 2 to mx
	agt_grp = grps(x)
	call do_it2
next
end sub
'***********
sub do_it2'   
On Error Resume Next

   cvsSrv.Dictionary.ACD = 1
   Set Info = cvsSrv.Dictionary.Reports("Dictionary\\Agent Group Members")

   If Info Is Nothing Then
	  If cvsSrv.Interactive Then
		  MsgBox "The report Dictionary\\Agent Group Members was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
	  Else
	   	  Set Log = CreateObject("ACSERR.cvsLog") 
		  Log.AutoLogWrite "The report Dictionary\\Agent Group Members was not found on ACD 1."
		  Set Log = Nothing
	  End If
   Else

	   b = cvsSrv.Dictionary.CreateReport(Info,Rep)
	   If b Then
	
	      Rep.Window.Top = 2295
	      Rep.Window.Left = 7020
	      Rep.Window.Width = 5190
	      Rep.Window.Height = 6255        

                        Rep.TimeZone = "default"
	
	      Rep.SetProperty "Agent Group",agt_grp	'

	      b = Rep.ExportData(dpath1 & agt_grp & ".txt", 9, 0, True, True, True)

	      Rep.Quit

              If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
	      Set Rep = Nothing
	   End If
   End If
   Set Info = Nothing
'## cvs_cmd_end

End Sub