エクセルまたはアクセスにて、
あるネットワーク先のパスワード保護を突破しておきたい場合
———————————
Set OBJ = CreateObject(“Wscript.Shell”)
ret = OBJ.Run(“NET USE \\192.168.1.1 password /user:****”, 0)
———————————
ネットで検索すると、net useコマンドでドライブの割り当ての方法が出てきます。
ドライブの割り当てはしたくない事の方が多いと思われるので、
その場合は上記のコードを使用してみてください。
password の部分はまんまパスワードを入れて頂いて、
**** のところはユーザーIDを入力ください。
最後の引数０はコマンドプロンプトを非表示にしております。