VBScript

Dim CyberridgeWS As New NLSWebService.Service
			
Dim credentialCache As New System.Net.CredentialCache()
Dim credentials = New System.Net.NetworkCredential("nls.local\username", "password", "")
 
Dim strXML, strErrorMessage As String
        
strErrorMessage = ""
       
strXML = "<NLS EnforceTagExistence=""1"">" & _
"<CIF UpdateFlag=""1"" CIFNumber=""B000001"" Entity=""Individual"" LastName1=""Last"" FirstName1=""First"" MiddleName1=""M"" StreetAddress1=""2 South Pointe Dr"" StreetAddress2="""" City=""Lake Forest"" State=""CA"" ZipCode=""92630"" EmailAddress1="""" >" & _
"</CIF>" & _
"</NLS>"
    
credentialCache.Add(New Uri(CyberridgeWS.Url), "Basic", credentials)
CyberridgeWS.Credentials = credentialCache
CyberridgeWS.ImportXML("NlsSql08", "Database_Name", strXML, strErrorMessage)