VBScriptでネットワークドライブを扱う
VBScriptでネットワークドライブを扱う
０．改訂履歴
１．はじめに
このドキュメントでは，VBScriptを使ってネットワークドライブをマウントしたりアンマウントしたりする方法を説明する．
なお，使用しているOSは，Windows2000 SP3である．
２．マウントする
'Drive Mount
set WshNet = CreateObject("Wscript.Network")
WshNet.MapNetworkDrive "W:","\\10.0.0.1\c$"
|
'Drive Mount
set WshNet = CreateObject("Wscript.Network")
WshNet.MapNetworkDrive "W:","\\10.0.0.1\c$",,"user","password"
|
３．解除する
set WshNet = CreateObject("Wscript.Network")
WshNet.RemoveNetworkDrive "W:"
|
４．エラー処理を入れてみる
On Error Resume Next
'Drive Mount
set WshNet = CreateObject("Wscript.Network")
WshNet.MapNetworkDrive "w:","\\10.0.0.1\c$",,"user","password"
Select case Err.Number
case 0
msgbox "接続できました"
case -2147023570
msgbox "ユーザIDかパスワードが間違っています。"
case -2147024811
msgbox "すでにドライブが存在しています。"
case -2147024829
msgbox "指定された共有が見つかりません。"
case -2147024843
msgbox "サーバが見つかりません。"
case else
msgbox "ネットワークドライブのマウントで何かしらのエラーです"
end select
|
On Error Resume Next
set WshNet = CreateObject("Wscript.Network")
WshNet.RemoveNetworkDrive ":"
Select case Err.Number
case 0
msgbox "解除できました"
case -2147022646
msgbox "マウントされてないので解除の必要がありませんでしたが"
case else
msgbox "ネットワークドライブの解除で何かしらのエラーです"
end select
|
