Conectando um pacote DTS 2000 com um Web Service - Script Task

Faz algum tempo, precisei realizar um suporte em um ambiente SQL 2000, mais precisamente em pacotes DTS. A dificuldade era implementar em uma carga, uma validação através de um WEB Service. Se esta solução fosse escrita em Integration Services, minha vida seria muito mais fácil, porém, quem disse que a vida é fácil?

 

Bom, a solução foi desenvolver tudo através de um VB Script dentro de uma Script Task. O código implementado foi bem mais complexo, e estou anexando aqui apenas um Snipet.

 

 

'**********************************************************************

'  Visual Basic ActiveX Script

'************************************************************************

 

Function Main()

 

 

    Dim str_telefones

 

    str_telefones = "123456"

 

    http = CreateObject("Microsoft.XmlHttp")

 

    http.open("GET", "http://enderecowebservice/varPergunta?valor=" + str_telefones + " ", False)

    http.send("")

 

    str_texto = http.responseText

 

    Main = DTSTaskExecResult_Success

End Function

 

 

Mais um usuário feliz!