Open Source Document Management System | OpenKM

<?xml version="1.0" encoding="UTF-8" standalone="no"?><SOAP-ENV:Envelope xmlns:SOAPSDK1="http://www.w3.org/2001/XMLSchema" xmlns:SOAPSDK2="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAPSDK3="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Body><SOAPSDK4:login xmlns:SOAPSDK4="http://endpoint.ws.openkm.com/"><SOAPSDK4:user>okmAdmin</SOAPSDK4:user><SOAPSDK4:password>admin</SOAPSDK4:password></SOAPSDK4:login></SOAP-ENV:Body></SOAP-ENV:Envelope>

<?xml version='1.0' encoding='UTF-8'?><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Body><ns1:login xmlns:ns1="http://endpoint.ws.openkm.com/"><user>okmAdmin</user><password>admin</password></ns1:login></soapenv:Body></soapenv:Envelope>

Option Compare Database

'*****************************************************************
'Esta clase fue creada por Web Services Toolkit de Microsoft Office 2003.
'
'Creada: 1/5/2012 09:35:57 AM
'
'Descripción:
'El Asignador de tipos genéricos es una implementación del asignador de tipos personalizado del Kit de herramientas de SOAP
'que puede asignar (serializar a XML y deshacer la serialización de XML) la mayoría de objetos COM de
'un usuario. Para obtener más información, consulte el tema Generador de objetos de la Ayuda de Web Services Toolkit de
'Microsoft Office 2003.
'
'Los cambios de código en esta clase pueden provocar un comportamiento incorrecto.
'
'*****************************************************************

Implements IGCTMObjectFactory

Private Function IGCTMObjectFactory_CreateObject(ByVal par_WSMLNode As MSXML2.IXMLDOMNode) As Object
    Dim node As IXMLDOMNode

    On Error GoTo IGCTMObjectFactoryTrap

    Set node = par_WSMLNode.Attributes.getNamedItem("targetClassName")

    Set IGCTMObjectFactory_CreateObject = Nothing

    If Not (node Is Nothing) Then
        Select Case node.nodeValue
            Case "struct_bytePair"
                Set IGCTMObjectFactory_CreateObject = New struct_bytePair
        End Select
    End If

Exit Function

IGCTMObjectFactoryTrap:
    Err.Raise Err.Number, "clsof_Factory_OKMAuthServic", Err.Description
End Function

Option Compare Database

'*****************************************************************
'Esta clase fue creada por Web Services Toolkit de Microsoft Office 2003.
'
'Creada: 1/5/2012 09:35:57 AM
'
'Descripción:
'Esta clase es una representación de clases de Visual Basic para Aplicaciones del servicio Web
' tal y como lo define http://localhost:8080/OpenKM/OKMAuth?wsdl.
'
'Uso:
'Dimensione una variable como clsws_OKMAuthService nueva, y, a continuación, escriba código para
'utilizar los métodos proporcionados por la clase.
'Ejemplo:
' Dim ExampleVar as New clsws_OKMAuthService
' debug.print ExampleVar.wsm_getGrantedRoles("Ejemplo")
'
'Para obtener más información, consulte el tema Tipos complejos en la Ayuda de Web Services Toolkit de
'Microsoft Office 2003.
'
'Los cambios de código en esta clase pueden provocar un comportamiento incorrecto.
'
'*****************************************************************

'Dimensioning private class variables.
Private sc_OKMAuthService As SoapClient30
Private Const c_WSDL_URL As String = "http://localhost:8080/OpenKM/OKMAuth?wsdl"
Private Const c_SERVICE As String = "OKMAuthService"
Private Const c_PORT As String = "OKMAuthPort"
Private Const c_SERVICE_NAMESPACE As String = "http://endpoint.ws.openkm.com/"

Private Sub Class_Initialize()
    '*****************************************************************
    'Se llamará a esta subrutina cada vez que se creen instancias de la clase.
    'Crea sc_ComplexTypes como SoapClient30 nuevo y, a continuación,
    'inicializa sc_ComplexTypes.mssoapinit2 con el archivo WSDL encontrado en
    'http://localhost:8080/OpenKM/OKMAuth?wsdl.
    '*****************************************************************

    Dim str_WSML As String
    str_WSML = "<servicemapping>"
    str_WSML = str_WSML & "<service name='OKMAuthService'>"
    str_WSML = str_WSML & "<using PROGID='MSOSOAP.GenericCustomTypeMapper30' cachable='0' ID='GCTM'/>"
    str_WSML = str_WSML & "<types>"
    str_WSML = str_WSML & "<type name='bytePair' targetNamespace='http://endpoint.ws.openkm.com/' uses='GCTM' targetClassName='struct_bytePair'/>"
    str_WSML = str_WSML & "</types>"
    str_WSML = str_WSML & "</service>"
    str_WSML = str_WSML & "</servicemapping>"

    Set sc_OKMAuthService = New SoapClient30

    sc_OKMAuthService.MSSoapInit2 c_WSDL_URL, str_WSML, c_SERVICE, c_PORT, c_SERVICE_NAMESPACE
    'Utilice el servidor proxy definido en la configuración LAN de Internet Explorer
    'estableciendo ProxyServer en <CURRENT_USER>
    sc_OKMAuthService.ConnectorProperty("ProxyServer") = "<CURRENT_USER>"
    'Detectar automáticamente la configuración proxy si la aplicación Internet Explorer está definida para realizar esta función
    'estableciendo EnableAutoProxy en True
    sc_OKMAuthService.ConnectorProperty("EnableAutoProxy") = True

    Set sc_OKMAuthService.ClientProperty("GCTMObjectFactory") = New clsof_Factory_OKMAuthServic

End Sub

Private Sub Class_Terminate()
    '*****************************************************************
    'Se llamará a esta subrutina cada vez que se destruya la clase.
    'Establece sc_ComplexTypes a Nothing.
    '*****************************************************************

    'Intercepción de errores
    On Error GoTo Class_TerminateTrap

    Set sc_OKMAuthService = Nothing

Exit Sub

Class_TerminateTrap:
    OKMAuthServiceErrorHandler ("Class_Terminate")
End Sub

Private Sub OKMAuthServiceErrorHandler(str_Function As String)
    '*****************************************************************
    'Esta subrutina es el controlador de errores de clase. Se puede llamar desde cualquier subrutina o función de clases
    'cuando dicha subrutina o función encuentra un error. A continuación, generará el error junto con el
    'nombre de la subrutina o función que realiza la llamada.
    '*****************************************************************

    'Error SOAP
    If sc_OKMAuthService.FaultCode <> "" Then
        Err.Raise vbObjectError, str_Function, sc_OKMAuthService.FaultString
    'Error no SOAP
    Else
        Err.Raise Err.Number, str_Function, Err.Description
    End If

End Sub

................


Public Function wsm_login(ByVal str_user As String, ByVal str_password As String) As String
    '*****************************************************************
    'Se creó la función proxy desde http://localhost:8080/OpenKM/OKMAuth?wsdl.
    '*****************************************************************

    'Intercepción de errores
    On Error GoTo wsm_loginTrap

    wsm_login = sc_OKMAuthService.login(str_user, str_password)

Exit Function
wsm_loginTrap:
    OKMAuthServiceErrorHandler "wsm_login"
End Function

..................

Public Sub pruebaWS()
    
    Dim authStub As clsws_OKMAuthService
    
    Set authStub = New clsws_OKMAuthService
    
    Dim user As String
    Dim pass As String
    
    user = "okmAdmin"
    pass = "admin"
    
    MsgBox authStub.wsm_login(user, pass)
    
End Sub

wsdl.exe http://localhost:8080/OpenKM/OKMAuth?wsdl /out:OKMAuthService.cs