Help with mapping a drive (persistence)

[FrogBoy666]

I'm currently using "WNetAddConnection2" to map a network drive, but the all of the connections are persistent. I was wondering if there was some way to make the mapping non-persistent (i.e., ensure that my computer doesn't try to reconnect during the next logon to WinNT).

Here is my code (in case you need it):

This is in a module:

Option Explicit

Public Type NETRESOURCE
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    lpLocalName As String
    lpRemoteName As String
    lpComment As String
    lpProvider As String
End Type

' error values
Public Const ERROR_SESSION_CREDENTIAL_CONFLICT = 1219&
Public Const ERROR_INVALID_PASSWORDNAME = 1216&
Public Const ERROR_ACCESS_DENIED = 5&
Public Const ERROR_BAD_DEVICE = 1200&
Public Const ERROR_BAD_PROFILE = 1206&
Public Const ERROR_DEVICE_ALREADY_REMEMBERED = 1202&
Public Const ERROR_DEV_NOT_EXIST = 55&
Public Const ERROR_ALREADY_ASSIGNED = 85&
Public Const NO_ERROR = 0

Public Const RESOURCETYPE_DISK As Long = &H1& 'dwType

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" _
    (lpNetResource As NETRESOURCE, ByVal lpPassword As String, _
    ByVal lpUserName As String, ByVal dwFlags As Long) As Long

Public Const CONNECT_UPDATE_PROFILE As Long = &H1&

Public netRes As NETRESOURCE
Public lResult As Long

And this is in my form (frmMain):

Private Sub Command1_Click()

    Dim strDriveLetter, strNetResName As String
    Dim strPswd, strUser As String

    strDriveLetter = "K:" + Chr$(0)
    strNetResName = "\\network\path" + Chr(0)

    With netRes
        .dwType = RESOURCETYPE_DISK
        .lpLocalName = strDriveLetter
        .lpRemoteName = strNetResName
        .lpProvider = ""
    End With

    strUser = "UserName"
    strPswd = "Password"

    lResult = WNetAddConnection2(netRes, strPswd, strUser, CONNECT_UPDATE_PROFILE)
                '// update profile with connect information

    ' check for errors using const's defined above
    Select Case lResult
        Case NO_ERROR
            ' No problems occurred...

        Case Else
            'Handle any problems that occur
    End Select

End Sub

I may be overlooking something that is already in my code (perhaps in the NETRESOURCE section)... That wouldn't be unusual.

[kiwisheep]

Hope this helps - I copied it from the API Guide program.


· dwFlags
A set of bit flags that specify connection options. The following bit flag constant is currently defined:
CONNECT_UPDATE_PROFILE
The network resource connection should be remembered.

If this bit flag is set, the operating system automatically attempts to restore the connection when the user logs on.
The operating system remembers only successful connections that redirect local devices. It does not remember unsuccessful connections or deviceless connections. A deviceless connection occurs when lpLocalName is NULL or points to an empty string.
If this bit flag is clear, the operating system will not automatically restore the connection at logon.