WNetAddConnection2を使用しサーバー接続をするには (ID:147023)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VB掲示版からの移動です。
魔界の仮面弁士様からの指摘により以下の用に修正をしましたが戻り値「1219」のままです。
ここから----------------
    Public Declare Unicode Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (ByRef lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
    '
    Private Const RESOURCE_CONNECTED As Integer = &H1
    Private Const RESOURCETYPE_ANY As Integer = &H0
    Private Const RESOURCEDISPLAYTYPE_SHARE As Integer = &H3
    Private Const CONNECT_UPDATE_PROFILE As Integer = &H1
    '
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public lpLocalName As String
        Public lpRemoteName As String
        Public lpComment As String
        Public lpProvider As String
    End Structure
ここまで--------------------------------
2〜3年前のシステムを未知識の上に引き継いだため難儀しています。
戻り値＝0にするためのご教授をお願いします。
以上

←解決時は質問者本人がここをチェックしてください。

戻る