Solved

Accessing a File Share which requires a Username/Password

Posted on 2010-09-16
9
1,228 Views
Last Modified: 2012-05-10
Hello,

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.

Thanks
Dan

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\keshercall.com\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
                Next

Open in new window

0
Comment
Question by:DanJourno
  • 5
  • 4
9 Comments
 
LVL 29

Expert Comment

by:nffvrxqgrcfqvvc
ID: 33694021
You will need to use WNetAddConnection2 P/Invoke.
0
 
LVL 5

Author Comment

by:DanJourno
ID: 33694088
Do you have a code sample?
0
 
LVL 29

Expert Comment

by:nffvrxqgrcfqvvc
ID: 33694124
0
Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

 
LVL 5

Author Comment

by:DanJourno
ID: 33695282
Do I have to map the network share to a drive letter using this method?
0
 
LVL 29

Accepted Solution

by:
nffvrxqgrcfqvvc earned 500 total points
ID: 33695360
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
        Try
            ' To add resource without drive.
            WNet.AddConnection("user", "password", "\\192.168.1.100\shared", Nothing)
            ' To close that connection
            'WNet.CancelConnection("\\192.168.1.100\shared")
        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
        RESOURCETYPE_ANY
        RESOURCETYPE_DISK
        RESOURCETYPE_PRINT
        RESOURCETYPE_RESERVED
    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

0
 
LVL 5

Author Comment

by:DanJourno
ID: 33695563
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"
0
 
LVL 29

Expert Comment

by:nffvrxqgrcfqvvc
ID: 33699765
It's working fine for me, How are you providing information into AddConnection() can we see it?
0
 
LVL 5

Author Comment

by:DanJourno
ID: 33717819
All I'm doing is this:-

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

also tried:-

WNet.AddConnection("username", "password", "\\server3.mycompany.com\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.
0
 
LVL 5

Author Comment

by:DanJourno
ID: 33721517
Just tried the exact same code again and now its working.

Stange.

Thanks.
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

If you're writing a .NET application to connect to an Access .mdb database and use pre-existing queries that require parameters, you've come to the right place! Let's say the pre-existing query(qryCust) in Access takes a Date as a parameter and l…
Since .Net 2.0, Visual Basic has made it easy to create a splash screen and set it via the "Splash Screen" drop down in the Project Properties.  A splash screen set in this manner is automatically created, displayed and closed by the framework itsel…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

792 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question