WSHで、ネットワークドライブの接続
WindowsScriptingHostっていう、ようするにVBScriptの
延長みたいな言語があります(詳しくは、MS社のページで)。
こんな技を自動的にできるのは、なかなか便利です。
自分は、今までDOSコマンドで"NET USE"だったので、
これはいいですね。
どういう仕組みか分らないですが、この方法だと、NET
コマンドより処理速度速いです。何より、エラーコード
がプログラム側で把握できるので、制御し易いですね。
--------------------------
Dim objNetWork As Object 'オブジェクト変数の宣言
On Error Resume Next
'WSHのNetworkオブジェの作成
Set objNetWork = CreateObject("Wscript.Network")
'ネットワークドライブの接続
Call objNetWork.MapNetworkDrive("Z:", "\\192.168.0.100\TEST", False, "SuperUser", "hogehoge")
If Err.Number = 0 Then
'正常
Call MsgBox("ドライブZ:に対して、正常に接続できました。", vbInformation + vbOKOnly)
Else
'なんかエラー
Call MsgBox(Err.Number & " : " & Err.Description, vbExclamation + vbOKOnly)
End If
'解放
Set objNetWork = Nothing
延長みたいな言語があります(詳しくは、MS社のページで)。
こんな技を自動的にできるのは、なかなか便利です。
自分は、今までDOSコマンドで"NET USE"だったので、
これはいいですね。
どういう仕組みか分らないですが、この方法だと、NET
コマンドより処理速度速いです。何より、エラーコード
がプログラム側で把握できるので、制御し易いですね。
--------------------------
Dim objNetWork As Object 'オブジェクト変数の宣言
On Error Resume Next
'WSHのNetworkオブジェの作成
Set objNetWork = CreateObject("Wscript.Network")
'ネットワークドライブの接続
Call objNetWork.MapNetworkDrive("Z:", "\\192.168.0.100\TEST", False, "SuperUser", "hogehoge")
If Err.Number = 0 Then
'正常
Call MsgBox("ドライブZ:に対して、正常に接続できました。", vbInformation + vbOKOnly)
Else
'なんかエラー
Call MsgBox(Err.Number & " : " & Err.Description, vbExclamation + vbOKOnly)
End If
'解放
Set objNetWork = Nothing
by tumugu_32
| 2007-02-23 11:50
| 仕事