Accessing a File Share which requires a Username/Password


I'm writing some code that needs to access a networked fileshare that requires a username and password. No domains involved.

My code is below but i'm getting the following error.

I've done a google and it talks about impersonating a user, but I've tried and cant get my head round it. What I need is some code that easily shows where to put the username and password in so that I can authentice with the network share.


Error below:-

System.IO.IOException: Logon failure: unknown user name or bad password.

   at System.IO.__Error.WinIOError(Int32 errorCode, String str)
   at System.IO.Directory.InternalGetFileDirectoryNames(String fullPath, String userPath, Boolean file)
   at System.IO.Directory.InternalGetFiles(String path, String userPath, String searchPattern)
   at System.IO.DirectoryInfo.GetFiles(String searchPattern)
   at NumberAssigner.clsRecordingsSyncroniser.RunningCode() in D:\HostingSpaces\admin\\NumberAssigner\clsRecordingsSyncroniser.vb:line 35
Dim dirRecordings As New DirectoryInfo("\\sip2\Recordings\recordings\")
                Dim f As FileInfo

                For Each f In dirRecordings.GetFiles("*.txt")
                    If File.Exists("\\sip2\Recordings\recordings\" & Left(f.Name, Len(f.Name) - Len(f.Exists)) & ".wav") Then

                    End If

Open in new window

Who is Participating?
nffvrxqgrcfqvvcConnect With a Mentor Commented:
Nope. You just pass "Nothing" for local name...
Here is an example

Imports System.Runtime.InteropServices
Imports System.ComponentModel
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ' To add resource without drive.
            WNet.AddConnection("user", "password", "\\\shared", Nothing)
            ' To close that connection
        Catch ex As Win32Exception
            Debug.Print("code={0} message={1}", ex.NativeErrorCode, ex.Message)
        End Try
    End Sub
End Class

Public Class WNet
    Private Const NO_ERROR As Integer = 0

    Private Enum WNetType As Integer
    End Enum

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Private Structure NETRESOURCE
        Dim dwScope As Integer
        Dim dwType As Integer
        Dim dwDisplayType As Integer
        Dim dwUsage As Integer
        Dim lpLocalName As String
        Dim lpRemoteName As String
        Dim lpComment As String
        Dim lpProvider As String
    End Structure

    <DllImport("mpr.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
    Private Shared Function WNetAddConnection2(ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUsername As String, ByVal dwFlags As Integer) As Integer
    End Function

    <DllImport("mpr.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
    Private Shared Function WNetCancelConnection2(ByVal lpName As String, ByVal dwFlags As Integer, ByVal fForce As Integer) As Integer
    End Function

    Public Shared Sub AddConnection(ByVal userName As String, ByVal password As String, ByVal remoteName As String, ByVal localName As String)
        Dim nr As NETRESOURCE = Nothing
        Dim dwResult As Integer = NO_ERROR
        nr.lpRemoteName = remoteName
        nr.lpLocalName = localName
        nr.dwType = WNetType.RESOURCETYPE_ANY
        dwResult = WNetAddConnection2(nr, password, userName, 0)
        If dwResult <> NO_ERROR Then
            Throw New Win32Exception(Marshal.GetLastWin32Error)
        End If
    End Sub

    Public Shared Sub CancelConnection(ByVal szName As String)
        Dim dwResult As Integer = NO_ERROR
        dwResult = WNetCancelConnection2(szName, 0, 1)
        If dwResult <> NO_ERROR Then
            Throw New Win32Exception(Marshal.GetLastWin32Error)
        End If
    End Sub

End Class

Open in new window

You will need to use WNetAddConnection2 P/Invoke.
DanJournoAuthor Commented:
Do you have a code sample?
Cloud Class® Course: Microsoft Exchange Server

The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.

DanJournoAuthor Commented:
Do I have to map the network share to a drive letter using this method?
DanJournoAuthor Commented:
Hi egl1044,

I'm trying the code from your last post but i'm getting the following error.
I've tested the remote path using Windows Explorer and its correct.

"System.ComponentModel.Win32Exception: A specified logon session does not exist. It may already have been terminated
   at NumberAssigner.WNet.AddConnection(String userName, String password, String remoteName, String localName) in D:\HostingSpaces\admin\project\NumberAssigner\WNet.vb:line 42
   at NumberAssigner.clsRecordingsSyncroniser.RunningCode() in D:\HostingSpaces\admin\project\NumberAssigner\clsRecordingsSyncroniser.vb:line 33"
It's working fine for me, How are you providing information into AddConnection() can we see it?
DanJournoAuthor Commented:
All I'm doing is this:-

WNet.AddConnection("username", "password", "\\\AsteriskRecordings", nothing)

also tried:-

WNet.AddConnection("username", "password", "\\\AsteriskRecordings", "s:")

I can browse to the location using windows explorer without any problems.
I would map the drive, but ive had problems before if the remote server restarts, the mapped drive stops working until I open it again in Windows Explorer.
DanJournoAuthor Commented:
Just tried the exact same code again and now its working.


Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.