|
JuJu さん こんにちは
Win2000SP4だと、こんな感じでダイアログにユーザ名が入れらることが解りました。
ありがとうございます。
でも、パスワードは入れられませんでした。
もっともユーザ名とコンピュータ名(自動で取得されている?)が解ればパスワード無しで入れるので、ダイアログがを閉じるのにエンタキーを送ってやれば接続できました。
これで、前より少し楽になりました。
Sub hoge()
Dim udtResource As NETRESOURCE
Dim lngRet As Long
With udtResource
.dwType = RESOURCETYPE_ANY
.lpLocalName = vbNullString
.lpRemoteName = "\\接続先コンピュータ名\D"
.lpProvider = vbNullString
End With
SendKeys "({ENTER})" '← これが必要でした。
'lngRet = WNetAddConnection3(0&, udtResource, "パス", "ユーザー名", CONNECT_INTERACTIVE)
' ↑パスワードが、表記されない
lngRet = WNetAddConnection3(0&, udtResource, vbNullString, "ユーザー名", CONNECT_INTERACTIVE)
If lngRet = 0 Then
MsgBox "接続成功"
End If
End Sub
|
|