|
▼カド さん:
>残念ながら色々簡単に試せる状況になく、今回は諦めます。
どういうう風に試していたのか解りませんが、JuJuさんの方法で出来ませんでしたか?
JuJuさんのを勝手にいじってみました。
Private 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
Private Declare Function WNetAddConnection3 Lib "mpr.dll" Alias "WNetAddConnection3A" (ByVal hWndOwner As Long, lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Private Const RESOURCETYPE_ANY = 0&
Private Const CONNECT_INTERACTIVE = &H8
Sub hoge()
Dim udtResource As NETRESOURCE
Dim lngRet As Long
With Worksheets("Sheet1").OLEObjects("ComboBox1").Object
If .ListIndex >= 0 Then
CpmNam = .List(.ListIndex)
Else
MsgBox "コンボボックスで選択"
End
End If
End With
With udtResource
.dwType = RESOURCETYPE_ANY
.lpLocalName = vbNullString
.lpRemoteName = CpmNam '"\\ComputerName"
.lpProvider = vbNullString
End With
'一応ログイン名とパスワード
SendKeys CreateObject("WScript.Network").UserName
'SendKeys "({Tab})" '必要に応じて
'SendKeys "パスワード" ' 同じ
'無理やりSendKeys..。
'私の所では、これだけで何もせず直に入れました。
'そちらのログインの許可状況?っていうのかが、わかっていませんが...。
SendKeys "({ENTER})"
lngRet = WNetAddConnection3(0&, udtResource, vbNullString, vbNullString, CONNECT_INTERACTIVE)
If lngRet = 0 Then
MsgBox "接続成功"
Else
MsgBox "失敗"
End If
End Sub
|
|