Imports System
Imports System.Data
Imports System.Math
Imports System.Collections.Generic
Imports System.Net
Imports System.Net.Security
Imports System.Text
Imports System.Web.Script.Serialization
Imports Microsoft.SqlServer.Dts.Runtime

Public Class ScriptMain
   Public Sub Main()
      Dim url As String = "http://url.com"
      Dim userName As String = "test"
      Dim password As String = "test"
      Dim crmContactsWebClient As New WebClient()
      Dim httpCredentialCache As New CredentialCache()
      Dim basicNetworkCredential As New NetworkCredential(userName, password)
      httpCredentialCache.Add(New Uri(url), "Basic", basicNetworkCredential)
      crmContactsWebClient.Credentials = httpCredentialCache
      Dim postData(0) As Byte
      Dim responseData() As Byte = crmContactsWebClient.UploadData(url, postData)
      Dim response As String = Encoding.UTF8.GetString(responseData)
      Dim jsonJavaScriptSerializer As New JavaScriptSerializer()
      Dim responseJSON As Dictionary(Of String, Object) = jsonJavaScriptSerializer.Deserialize(Of Dictionary(Of String, Object))(response)
 	Dts.TaskResult = Dts.Results.Success
   End Sub
End Class