Issue changing agent skills through CMS

[DanTheNam]

Using below code, I am able to get excel to work with CMS, but it seems that my permissons are not traveling with the code. I get an error stating "Split/Skill Cannot be modified. No write permission on 665". I do have permission to 665 (and 669) when skilling manually. Any idea what I'm doing wrong here?


Sub Swap_Skill()Dim cvsApp As Object
Dim cvsConn As Object
Dim cvsSrv As Object
Dim Rep As Object
Dim Info As Object, Log As Object, b As Object
Dim AcmS As String

Set cvsApp = CreateObject("ACSUP.cvsApplication")
Set cvsConn = CreateObject("ACSCN.cvsConnection")
Set cvsSrv = cvsApp.Servers(1)
Set Rep = CreateObject("ACSREP.cvsReport")
Set cvsSrv = cvsApp.Servers(1)
AcmS = Range("K6").Value 'variable value, currently 1217259
On Error Resume Next
Set AgMngObj = cvsSrv.AgentMgmt
On Error Resume Next

Set AgMngObj = cvsSrv.AgentMgmt
ReDim SetArr(2, 3)
SetArr(1, 1) = Range("L4").Value 'variable value, currently 665
SetArr(1, 2) = 1
SetArr(1, 3) = 0
SetArr(2, 1) = Range("N4").Value 'variable value, currently 669
SetArr(2, 2) = 12
SetArr(2, 3) = 0

AgMngObj.AcdStartUp -1, "", cvsSrv.ServerKey, -1
AgMngObj.OleAgentSetSkill 1, "" & AcmS & "", 1, 0, 0, 0, 2, SetArr, ""

Set AgMngObj = Nothing
Set cvsApp = Nothing
Set cvsConn = Nothing
Set cvsSrv = Nothing
End Sub