WNetAddConnection2で接続後、違うユーザーで接続するには (ID:99779)

名前

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

本文

GOD様、お世話になります。下記に試した内容を記述します。
   Private Type NETRESOURCE
        UScope As Long
        UType As Long
        UDType As Long
        UUsage As Long
        UDrive As String
        URmt As String
        UCmt As String
        UPro As String
    End Type

Private PBU_RCODE_LNG As Long
    Private 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

Private Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" _
        (lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long

' 接続
    Private sub Mount()
        Dim PBU_WNET_TYPE As NETRESOURCE
        Dim PBU_WNET_FLG As Long
        
        PBU_WNET_TYPE.UScope = &H2
        PBU_WNET_TYPE.UType = &H1
        PBU_WNET_TYPE.UDType = &H3
        PBU_WNET_TYPE.UUsage = &H1
        PBU_WNET_TYPE.UPro = ""
        PBU_WNET_TYPE.UCmt = ""
        PBU_WNET_FLG = &H0
     
        PBU_WNET_TYPE.UDrive = "" 'ドライブ名称 
        PBU_WNET_TYPE.URmt = "\\コンピュータ名\共有ディレクトリー名"
  
        PBU_RCODE_LNG = WNetAddConnection2(PBU_WNET_TYPE,ユーザー名, パスワード, 0)
  
        Select Case PBU_RCODE_LNG
            Case 0&
                'MsgBox ("正常終了")
                Mount = "ok"
                Exit Function
            Case 53&
                MsgBox ("サーバ（コンピュータ名）が見つかりません。")
            Case 67&
                MsgBox ("ＰＡＴＨが見つかりません（共有になっていません）。")
            Case 85&
                MsgBox ("既に接続済みです。")
            Case Else
                MsgBox (PBU_RCODE_LNG & " サーバーに接続できません。")
        End Select
        call UnMount() 
    End sub

' 切断
    Private Sub UnMount()
        Dim PBU_WNETC_UDrive As String
        Dim PBU_WNETC_UFlg1 As Long
        Dim PBU_WNETC_UFlg2 As Long

PBU_WNETC_UFlg1 = &H0
        PBU_WNETC_UFlg2 = 1&
        'PBU_WNETC_UDrive = ""      'ドライブ名称   H:

PBU_RCODE_LNG = WNetCancelConnection2("\\コンピュータ名\共有ディレクトリー名", PBU_WNETC_UFlg1, PBU_WNETC_UFlg2)
 
        Select Case PBU_RCODE_LNG
            Case 0&
                MsgBox ("正常終了")
            Case 2250&
                MsgBox ("既に切断済みです。")
            Case Else
                MsgBox (PBU_RCODE_LNG)
        End Select

End Sub

略しますとこのようになります。間違っているのでしょうか。
UnMountの部分はいろいろ変えましたが常に「既に切断済みです」と返ってきます。
宜しくお願いします。

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

戻る