2016-11-11 4 views
0

Ich habe ein Programm erstellt, das eine bestimmte Datei von meinem Computer auf andere entfernte Computer kopiert. Ich habe das erfolgreich gemacht, aber nur im Treiber C: \. Meine Frage ist, wie kann ich die Datei auf das Laufwerk D: \ kopieren?Datei auf entfernten Computer kopieren

Ich habe versucht, \ 157.60.113.28 \ D: \ testnew \ right.bmp hinzuzufügen, aber ohne Glück. Gib mir Bescheid!

Imports System 
Imports System.Runtime.InteropServices 
Imports System.Security.Principal 
Imports System.Security.Permissions 
Public Class Form1 
<DllImport("advapi32.DLL", SetLastError:=True)> _ 
Public Shared Function LogonUser(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 
End Function 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim admin_token As IntPtr 
    Dim wid_current As WindowsIdentity = WindowsIdentity.GetCurrent() 
    Dim wid_admin As WindowsIdentity = Nothing 
    Dim wic As WindowsImpersonationContext = Nothing 
    Try 
     MessageBox.Show("Copying file...") 
     If LogonUser("Local Admin name", "Local computer name", "pwd", 9, 0, admin_token) <> 0 Then 
      wid_admin = New WindowsIdentity(admin_token) 
      wic = wid_admin.Impersonate() 
      System.IO.File.Copy("C:\right.bmp", "\\157.60.113.28\testnew\right.bmp", True) 
      MessageBox.Show("Copy succeeded") 
     Else 
      MessageBox.Show("Copy Failed") 
     End If 
    Catch se As System.Exception 
     Dim ret As Integer = Marshal.GetLastWin32Error() 
     MessageBox.Show(ret.ToString(), "Error code: " + ret.ToString()) 
     MessageBox.Show(se.Message) 
    Finally 
     If wic IsNot Nothing Then 
      wic.Undo() 
     End If 
    End Try 
End Sub 
End Class 

Antwort

0

der Weg, den Sie suchen ist:

\\157.60.113.28\D$\testnew\right.bmp 

, wenn Sie mit dem Remote-Computer den Netzwerkpfad als Netzlaufwerk in Ihrem Rechner klug sein regelmäßig wäre es zu interagieren, sind erforderlich, um Karte .

mapping network drive

+0

HALELUIA! Vielen Dank. –

+0

@RobertKodra Wenn es Ihr Problem gelöst hat, zeigen Sie bitte Ihre Dankbarkeit, indem Sie das V auf der linken Seite der Antwort markieren. – Stavm

+1

Natürlich werde ich es sagen, ich muss 3 Minuten warten, um die Antwort zu akzeptieren. Danke für die Hilfe und Tipp! –

Verwandte Themen