请教高手COMAdmin接口使用，按下面代码运行后“组件服务”中没有对应名称生成。

Question

定义的函数如下：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Public ocatalog As COMAdminCatalog
Public ocatcol As COMAdminCatalogCollection
Public ocatobj As COMAdminCatalogObject
Private Function createocatalog() As Boolean
createocatalog = False
'创建catalog对象
Set ocatalog = New COMAdminCatalog
'得到应用连接
Set ocatcol = ocatalog.GetCollection("Applications")
createocatalog = True
End Function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Public Function addapp(Optional name As String = "NewAppliation", Optional activation As Integer = 1, Optional Identity As String = "Interactive User") As String
'添加一个应用
'addapp函数实现添加一个组件应用,参数name是要为这个新应用确定一个名字，我们可以默认是NewApplication,Activation和Indentity分别是配置这个应用的相关属性
On Error GoTo errd
Set ocatobj = ocatcol.Add '添加一个新应用
ocatcol.Populateocatobj.Value("Name") = name '设置这个应用的属性
ocatobj.Value("Activation") = activation
ocatobj.Value("Identity") = Identity
ocatcol.SaveChanges '保存关于ocatcol对象的改变
addapp = "OK"
Exit Function
errd:
addapp = Err.Description '如果出错返回错误信息
End Function
===================================
调用语句如下：
   If createocatalog() Then
        
        MsgBox "连接COMADMIN成功！"
    Else
    
        MsgBox "连接失败，请确认系统是否安装的组件服务！"
        
    End If
    
    addapp("sy_ls", 1, "Administrator")'调用部分，但运行后“组件服务”中没有对应名称。