' =====================================================================
'  File:		Sample.vb
'  Summary:	    This sample includes an XML file with Bank Accounts and 
'               Safe Deposit Boxes as new entities that need to be 
'               imported. The sample shows the following process: 
'               Export current customizations for the purposes of 
'               providing a backup. 
'               Import the included XML file that contains new customizations. 
'               Publish the imported customizations.
' =====================================================================
'
'  This file is part of the Microsoft CRM 3.0 SDK Code Samples.
'
'  Copyright (C) Microsoft Corporation.  All rights reserved.
'
'  This source code is intended only as a supplement to Microsoft
'  Development Tools and/or on-line documentation.  See these other
'  materials for detailed information regarding Microsoft code samples.
'
'  THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY
'  KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
'  IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
'  PARTICULAR PURPOSE.
'
' =====================================================================
 
Imports System
Imports System.IO
Imports System.Xml
Imports CrmSdk
 
Namespace Microsoft.Crm.Sdk.FullSample.ImportExportPublish
    ' <summary>
    ' The following sample demonstrates how to export, import and publish 
    ' Microsoft CRM
    ' customizations. The scenario is that you are an ISV that would like to 
    ' import
    ' two custom entities into an existing system.	The entities include a Bank 
    ' Account
    ' and a Safe Deposit Box. Each Safe Deposit Box has a Bank Account as its 
    ' parent.
    '
    ' In this scenario, we will perform the following actions:
    '
    ' - Export the systems current customizations (customization_original.xml).
    ' - Import the two new entities (new_customizations.xml).
    ' - Publish the two new entities.
    '
    ' Make sure to back up your database before running this sample.
    ' </summary>
 
	Public Class Sample
 
		Public Sub New()
		End Sub 'New
 
		Public Function Run() As Boolean
			Try
				' Set up the CRM Service.
				Dim service As New CrmService()
				service.Credentials = System.Net.CredentialCache.DefaultCredentials
 
                Dim token As CrmSdk.CrmAuthenticationToken = New _
                  CrmSdk.CrmAuthenticationToken()
                ' TODO Replace 'AdventureWorksCycle' with your Microsoft CRM 
                ' organization name.
                token.OrganizationName = "tw-elektric"
 
                service.CrmAuthenticationTokenValue = token
                ' TODO Replace 'localhost:5555' with your CRM server 
                ' information.
                service.Url = _
                  "http://srv03/MSCRMServices/2007/CrmServiceWsdl.aspx"
 
				'---- Export the system's current customizations ------------------------
				' Create the request.
				Dim request As New ExportAllXmlRequest()
 
				' Execute the request.
				Dim response As ExportAllXmlResponse = CType(service.Execute(CType(request, _
  Request)), ExportAllXmlResponse)