Authentication mellem domæner

Nedenstående kode til kopiering af en fil fra en server til en anden, har jeg set virke.

Hvis du skal hente filen fra clienten, er det dog en anden snak. Dette virker til kopiering mellem servere (webserver - filserver).

Måske skal du benytte notationen \\10.20.30.40\share\directory i stedet for \\server\share\directory, hvis ikke serveren er kendt på NetBios (server-) navnet.

Imports System.Security.Principal
Imports System.IO


  ' -- VARIABLER TIL AT IMPERSONATE --
    Public LOGON32_LOGON_INTERACTIVE As Integer = 2
    Public LOGON32_PROVIDER_DEFAULT As Integer = 0
    Declare Auto Function LogonUser Lib "advapi32.dll" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Integer, ByVal dwLogonProvider As Integer, ByRef phToken As IntPtr) As Integer
    Declare Auto Function DuplicateToken Lib "advapi32.dll" (ByVal ExistingTokenHandle As IntPtr, ByVal ImpersonationLevel As Integer, ByRef DuplicateTokenHandle As IntPtr) As Integer
    Public impersonationContext As WindowsImpersonationContext
    Public currentWindowsIdentity As WindowsIdentity



  Dim strFrom, strTo As String
        'Skifter identitet til imp_user med password imp_pass   
            If impersonateValidUser(imp_user, "", imp_pass) Then
                Try

                    'Kopierer fra strFrom til strTo
                    strFrom = "..."
                    strTo = "......."


                    File.Copy(strFrom, strTo, True)

                Catch
                    undoImpersonation()

                    lblError.text = "Source: " & strFrom & " Destination: " & strTo & " " & Err.Description
                    Exit Sub
                End Try
                undoImpersonation()
            Else
                lblError.text = "ErrorMsg.aspx?txt=Error Impersonating."
                Exit Sub
            End If
            '-----------------------------------------------------------------

            '------- KONTROLLER AT DOKUMENTET FINDES PÅ  DEN NY SERVER -----------
            If Not File.Exists(strTo) Then
                lblError.Text = "Error copying from " & strFrom & " to " & strTo
                Exit Sub
            End If
            '-----------------------------------------------------------------