TMACUL

CA SDM Webservice::.. Como fechar um chamado - closeTicket

Blog Post created by TMACUL Champion on Jan 5, 2016

Um pequeno código de teste para logar na solução CA SDM e fechar um ticket utilizando o webservice do CA Service Desk Manager

 

URL padrao para o WS CA SDM http://localhost:8080/axis/services/USD_R11_WebService?WSDL

 

Module CASDM

 

 

    Dim USD As New localhost.USD_WebService

    Dim strSessionID As String = ""

 

 

    Function Login(user As String, password As String, url As String) As String

 

 

        Dim strReturn As String = ""

        Try

            url = IIf(Len(url) > 0, url, "http://localhost:8080/axis/services/USD_R11_WebService?WSDL")

            USD.Url = url

            strSessionID = USD.login(user, password)

            strReturn = strSessionID

        Catch ex As Exception

            strReturn = ex.Message

        End Try

 

 

        Return strReturn

    End Function

 

 

   

    Function CloseTicket(persid As String) As String

        Dim strReturn As String = ""

 

 

        If strSessionID.Length = 0 Then

            strReturn = "requires login"

        Else

 

 

            Dim ticket_handle As String = persid

            Try

                strReturn = USD.closeTicket(strSessionID, "ticket fechado", ticket_handle)

            Catch ex As Exception

                strReturn = ex.Message

            End Try

        End If

 

 

        Return strReturn

    End Function

 

 

 

 

End Module

 

OBS: Este codigo pode nao obter boa performance em utilizacao em massa.

          CUIDADO: Toda persolizacao pode ocasionar falhas no CA SDM.

Outcomes