Thanks guys, helpfull information.
Exporting can handy be done in CMS indeed, importing couldn't and the callflow extract tool looks good but for a one time need a bit too expensive.
I played a bit with the scripting of the CMS itself and after some digging i found out what to do and wrote a script fir the importing part.
I made 1 for adding and 1 for deleting bulk agents and maybe some other people might think it is handy too so i will put them underneed.
Script for adding agents:
------------------------------------------------
'LANGUAGE=ENU
'SERVERNAME=xxxxxxxxxxxx
Public Sub Main()
'Place a ";" separated file name agent.txt on the root of C drive
'This file needs to have the agent format: John Doe;1234 on every line
'This line will be read and split on the ";" and put in an array to add into CMS
'Script writen by sgroepie
l=0 'loop value for read loop
result=0 'Answer on adding
c=0 'counter for giving the messagebox
dim regel, a 'variabel for readline and for splitting on ";"
dim sString 'variable for information on adding data
dim NameArray(999) 'define array for agent name. All data is read into this from agents.txt
dim NumberArray(999) 'define array for agent number
dim fs, f 'define filesystem stuff for read
cvsSrv.Dictionary.ACD = 1
'Reads file one line at a time into name and number array
'Place the textfile on the root of C drive
Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile("C:\agents.txt", 1)
Do While f.AtEndOfStream <> True
regel = f.ReadLine
a = split(regel,";")
NameArray(l) = a(0)
NumberArray(l) = a(1)
l=l+1
Loop 'keep reading in data until EOF hit.
f.Close 'close agents.txt file
Set f=Nothing 'clear f and fs
Set fs=Nothing
'Read all agents into string and display it in a messagebox
for c = 0 to l-1
sString = sString & NumberArray(c) & " - " & nameArray (c) & (Chr(13) & Chr(10))
next
result = msgbox (sString, 1, "Sure to Add these Agents?")
if result = 1 then
sString = "" 'make string empty for next use
'Add entries
b = cvsSrv.Dictionary.CreateOperation("Login Identifications",Op)
Op.Window.Top = 4490
Op.Window.Left = 4680
Op.Window.Width = 6000
Op.Window.Height = 2540
for c = 0 to l-1
If b Then
Op.SetProperty "login_id", NumberArray(c)
Op.SetProperty "ag_name", NameArray(c)
On Error Resume Next
if b = Op.DoAction("Add") then
else
sString = sString & " " & NumberArray(c) & (Chr(13) & Chr(10))
end if
End If
next
if sString <> "" then
msgbox sString, 64, "Following Agents Already Exist"
else
msgbox "All Agents Added", 64, "Operation Succesfull"
end if
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Op.TaskID
Set Op = Nothing
end if
end Sub
------------------------------------------------
script for deleting
------------------------------------------------
'LANGUAGE=ENU
'SERVERNAME=xxxxxxxxx
Public Sub Main()
'Place a ";" separated file name agent.txt on the root of C drive
'This file needs to have the agent format: John DOe;1234 on every line
'This line will be read and split on the ";" and put in an array to delete in CMS
'Script writen by sgroepie
l=0 'loop value for read loop
result=0 'Answer on deleting
c=0 'counter for giving the messagebox
dim regel, a 'variabel for readline and for splitting on ";"
dim sString 'variable for information on adding data
dim NameArray(999) 'define array for agent name. All data is read into this from agents.txt
dim NumberArray(999) 'define array for agent number
dim fs, f 'define filesystem stuff for read
cvsSrv.Dictionary.ACD = 1
'Reads file one line at a time into name and number array
'Place the textfile on the root of C drive
Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile("C:\agents.txt", 1)
Do While f.AtEndOfStream <> True
regel = f.ReadLine
a = split(regel,";")
NameArray(l) = a(0)
NumberArray(l) = a(1)
l=l+1
Loop 'keep reading in data until EOF hit.
f.Close 'close agents.txt file
Set f=Nothing 'clear f and fs
Set fs=Nothing
'Read all agents into string and display it in a messagebox
for c = 0 to l-1
sString = sString & NumberArray(c) & " - " & nameArray (c) & (Chr(13) & Chr(10))
next
result = msgbox (sString, 1, "Sure to Delete these Agents?")
if result = 1 then
sString = "" 'make string empty for next use
'Delete entries
b = cvsSrv.Dictionary.CreateOperation("Login Identifications",Op)
Op.Window.Top = 4490
Op.Window.Left = 4680
Op.Window.Width = 6000
Op.Window.Height = 2540
for c = 0 to l-1
If b Then
Op.SetProperty "login_id", NumberArray(c)
Op.SetProperty "ag_name", NameArray(c)
On Error Resume Next
if b = Op.DoAction("Delete") then
else
sString = sString & NumberArray(c) & " - " & nameArray (c) & (Chr(13) & Chr(10))
end if
End If
next
if sString <> "" then
msgbox sString, 64, "Following Agents Not in System"
else
msgbox "All Agents Deleted", 64, "Operation Succesfull"
end if
If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Op.TaskID
Set Op = Nothing
end if
end Sub
