Netzlaufwerk per Dienst verbinden

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Netzlaufwerk per Dienst verbinden

    Hallo zusammen,

    ich versuche mehrere Netzlaufwerke per Dienst zu Mappen. Das funktioniert als Normales Programm einwandfrei.
    Sobald das ganze jedoch als Dienst unter meinem User läuft (Domain Admin) funktioniert das Mappen nicht mehr.

    Ich habe versucht dies mithilfe von "WNetAddConnection2" bzw. "Process" umzusetzen leider bisher ohne Erfolg...

    Hat jemand eine Idee was ich hier falsch mache?

    Vielen Dank!!

    VB.NET-Quellcode

    1. Private Function connect() As Boolean
    3. Dim Drive As New System.IO.DriveInfo(sDrive)
    4. Dim p As New Process()
    6. With p.StartInfo
    7. .FileName = "net"
    8. If sUser.Length > 0 Then
    9. .Arguments = String.Format("use {0} {1} /user:{2} {3}", sDrive, sPath, sUser, sPassword)
    10. Else
    11. .Arguments = String.Format("use {0} {1}", sDrive, sPath)
    12. End If
    13. .UseShellExecute = False
    14. .CreateNoWindow = True
    15. End With
    16. p.Start()
    18. If Drive.IsReady Then
    19. Return True
    20. Else
    21. Return False
    22. End If
    24. End Function



    VB.NET-Quellcode

    1. Public Function MapDrive() As Boolean
    3. Dim nr As New NETRESOURCE
    4. Dim cntresult As Integer
    6. Dim sDrives As String = Join(System.Environment.GetLogicalDrives, "\")
    8. If sDrives.Contains(sDrive) Then
    9. Return False
    10. End If
    12. With nr
    13. .dwType = RESOURCETYPE_DISK
    14. .lpLocalName = sDrive
    15. .lpRemoteName = sPath
    16. End With
    18. cntresult = WNetAddConnection2(nr, sPassword, sUser, 0)
    20. If cntresult = 0 Then
    21. Return True
    22. Else
    23. Return False
    24. End If
    26. End Function

Facebook
Telefonspende