'LANGUAGE=ENU
'SERVERNAME=IP OF YOUR CMS
dim dpath1
'
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\"	'Folder + backslash on your PC
file1= dpath1 & "agent_logins.txt"
'***********

On Error Resume Next

   cvsSrv.Dictionary.ACD = 1
   Set Info = cvsSrv.Dictionary.Reports("Dictionary\\Login Identifications")

   If Info Is Nothing Then
	  If cvsSrv.Interactive Then
		  MsgBox "The report Dictionary\\Login Identifications was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
	  Else
	   	  Set Log = CreateObject("ACSERR.cvsLog") 
		  Log.AutoLogWrite "The report Dictionary\\Login Identifications 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 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

End Sub