VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2006/03/13(Mon) 17:46
投稿者あやめ
URL
タイトルRe^2: ネットワークパスワード

お世話になります。

教えていただいて
色々やりましたがうまくいきません。
下記がそのときの定義とプログラムです。


’’’’’’’’’’’’’’’’’’’’’’’’
Option Explicit

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 Type NETRESOURCE
    lpLocalName  As String
    lpRemoteName As String
    lpProvider As String
    dwType As String
End Type

’’’’’’’’’’’’’’
Private Sub linknet_Click()

Dim  dwFlags as Long
Dim lpNetResource as NETRESOURCE

With lpNetResource
   .dwType = ””                '(1)
   .lpLocalName = ""               '(2)
   .lpRemoteName = "\\Bxx-soumu2"  '(3)
   .lpProvider = ""                '(4)
   .dwFlags = CONNECT_UPDATE_PROFILE
end With
lRet = WNetAddConnection2(lpNetResource, "income", "administrator", dwFla
gs)

End Sub

’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’

同一 LAN WARKGROUP の PC "\\Bxx-soumu2" に User "Administrator"
で パスワード "income" で ログインしたいのですが、

(1)の dwTypeに入れる値がわりません。
(CONNECT_UPDATE_PROFILEはデバック時 EMPTYでした。)

(2)(3)(4)は上記でいいと思うのですが?

すみません、ヒントお願いします。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -