ネットワークドライブを簡単にマウント・アンマウントするツールです。 ノートPCなど持ち運んで使う場合に、「自動で再接続」設定が使いにくい場合に便利です。
ソースファイルの一部を書き換えます。 接続先ドライブを指定します。
sMapDrive = "P:"
接続元の共有フォルダを指定します。
sShareFolder = "\\192.168.0.2\share"
”sMapDrive? ”に指定しているドライブの状態を確認してから動作しますので、 単純にこのスクリプトを実行するだけで機能します。
'--------------------------------------------------------------------- ' はちぽち支援ツール ' ' MapNetworkDrive ' ' by myasu '--------------------------------------------------------------------- ' wshMapNetworkDrive.vbs メイン ' Ver.0.10 2009/2/3 myasu '--------------------------------------------------------------------- Option Explicit 'On Error Resume Next '--------------------------------------------------------------------- ' 変数定義 '--------------------------------------------------------------------- Dim objNetwork, objFSO Dim sMapDrive, sShareFolder, bAutoMount, sUser, sPassword '--------------------------------------------------------------------- ' 設定 '--------------------------------------------------------------------- sMapDrive = "P:" '接続先ドライブ sShareFolder = "\\192.168.0.2\share" '接続元の共有フォルダ bAutoMount = false '再起動時の自動接続 '--------------------------------------------------------------------- ' 主処理 '--------------------------------------------------------------------- Set objNetwork = WScript.CreateObject("WScript.Network") Set objFSO = CreateObject("Scripting.FileSystemObject") '接続先ドライブの確認 If objFSO.DriveExists(sMapDrive) Then '接続中なら UnMount Else '未接続なら Mount End If '--------------------------------------------------------------------- ' 接続 '--------------------------------------------------------------------- sub Mount sMapDrive = sMapDrive objNetwork.MapNetworkDrive sMapDrive, sShareFolder, bAutoMount If Err.Number <> 0 Then MsgBox Err.Description End If end sub '--------------------------------------------------------------------- ' 切断 '--------------------------------------------------------------------- sub UnMount objNetwork.RemoveNetworkDrive sMapDrive If Err.Number <> 0 Then MsgBox Err.Description End If end sub
下記サイトを参考にさせていただきました。