| タイトル | ： サーバーへ接続確立の方法 |
| 記事No | ： 12807 |
| 投稿日 | ： 2008/07/18(Fri) 19:06 |
| 投稿者 | ： どら |
ご助言お願いします！！
環境）
PC01：WinXP VB6(SP6)
SEVER：WindowsServer2003
※PC01をサーバにユーザー登録し、DataWorkにアクセスして読み書きできる
グループに登録しています。
※DataWorkはサーバー上にあり、共有設定（アクセス許可等）も済んでいます。
※ユーザーからアクセスする時に空のパスワードを許可させるため、
ローカルポリシーのセキュリティオプション、
「アカウント：ローカルアカウントの空のパスワードの使用を
コンソールログオンのみに制限する」を無効にしました。
処理内容）
PC01上のWorkにあるFile.mdbをSERVER上のDataWorkにコピーするという処理を
VBの下記のソースにて実行しようとしています。
-------------------------------------------------
PathFrom = "C:\Work\File.mdb"
PathTo = "\\999.999.999.999\\DataWork\File.mdb"
''「999.999.999.999」はサーバのIPアドレス
FileCopy PathFrom, PathTo
-------------------------------------------------
そのままではエラーとなりますが、エクスプローラからIPアドレス(\\999.999.999.999)で
サーバーを検索し、PC01のユーザー名を入れてログオンした後は、コピーが成功します。
こうなるとユーザー名による接続が確立していないがために、
起きているエラーだと予想してはいるのですが、
VBのソースからどのようにユーザー名を宣言して、
どのようにわたしてやればいいのか分かりません。
自分なりに色々検索してみて、「WNetAddConnection2・3」という関数を
使用するという答えも見たのですが、どのように使用したらよいのか、
またはVBの参照設定をどうしたらよいのかも分かりません。
是非ご助言をお願い致します！！！
|