× Welcome to the fracta.net forum!

Share your coding ideas or ask questions.

Script for Modify Avaya Name

More
3 years 4 months ago #649 by mahmod
Dear Roller,

I have below script, how can i add it on excel VBA? can do some for me?

'LANGUAGE=ENU
'SERVERNAME=10.21.151.17
Public Sub Main()

'## cvs_cmd_begin
'## ID = 1050
'## Description = "Dictionary: Form: Login Identifications: Modify"
'## Parameters.Add "Modify","_Action"
'## Parameters.Add "Login Identifications","_FormName"
'## Parameters.Add "Dictionary: Form: Login Identifications: Modify","_Description"
'## Parameters.Add "Dictionary","_Subsystem"
'## Parameters.Add "Dictionary","_CatalogName"
'## Parameters.Add "1","_ACD"
'## Parameters.Add "False","_Interactive"
'## Parameters.Add "ENU","_Language"
'## Parameters.Add "4770","_Top"
'## Parameters.Add "10425","_Left"
'## Parameters.Add "6000","_Width"
'## Parameters.Add "2535","_Height"
'## Parameters.Add "2","_NumProperties"
'## Parameters.Add "47493","login_id"
'## Parameters.Add "CYG_Nor Alhafizah","ag_name"



On Error Resume Next

cvsSrv.Dictionary.ACD = 1
b = cvsSrv.Dictionary.CreateOperation("Login Identifications",Op)
If b Then
Op.Window.Top = 4770
Op.Window.Left = 10425
Op.Window.Width = 6000
Op.Window.Height = 2535
Op.SetProperty "login_id","47493"
Op.SetProperty "ag_name","CYG_Nor Alhafizah"


b = Op.DoAction("Modify")

End If

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Op.TaskID
Set Op = Nothing
'## cvs_cmd_end

End Sub

Please Log in or Create an account to join the conversation.

More
3 years 4 months ago #650 by roller
Replied by roller on topic Script for Modify Avaya Name
There are a couple of examples already in the forum see

fracta.net/fracta/index.php/forum/2-exce...-cms-agent-groups#49

and

fracta.net/fracta/index.php/forum/2-exce...ogin-identifiers#444

Both samples do something similar to what you are doing.

Please Log in or Create an account to join the conversation.

Time to create page: 0.084 seconds
Powered by Kunena Forum