「ネットワークコンピュータ」や「マイネットワーク」のファイルにアクセスする前準備

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

◆「ネットワークコンピュータ」や「マイネットワーク」のファイルにアクセスする前準備

ネットワークを介してファイルアクセスすると、普通、初回にIDとパスワードを要求されます。

初回にIDとパスワードを入力すれば、あとは、ローカルファイルと同様に処理ができるわけです。


以下は、初回にIDとパスワードを自動または手動で入力する、ネットで見つけたサンプルソースです。

WNetAddConnection3の第3引数、第4引数に各々パスワードとIDを予めコーディングすれば、自動でログオンが出来ます。

また、各々vbNullStringを指定すれば、ダイアログ(パスワードとID入力の)が出て手動でログオンがで出来ます。


尚、WNetAddConnection3の詳細は、参考URLへアクセスしてみてください。

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 udtResource
        .dwType = RESOURCETYPE_ANY
        .lpLocalName = vbNullString
        .lpRemoteName = "\\hoge"
        .lpProvider = vbNullString
    End With
    lngRet = WNetAddConnection3(0&, udtResource, vbNullString, vbNullString, CONNECT_INTERACTIVE)
    If lngRet = 0 Then
        ' 接続成功
    End If
End Sub
http://su-u.jp/juju/%B5%A4%A4%DE%A4%B0%A4%EC%C6%FC%B5%AD/2006-04.html#content_6_0

参考URL:

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpwnet/html/_win32_wnetaddconnection3.asp


ちなみに、パスワードとIDを一度システムに記憶させ、それをテスト等でクリアしたい場合があります。

以下にその手順を示します。

OR

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。

人のよいところをどんどん見つけよう