Top / Prog / VBScript / ネットワークドライブのマウント・アンマウント

はじめに

ネットワークドライブを簡単にマウント・アンマウントするツールです。 ノート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

参考

下記サイトを参考にさせていただきました。

2009-12-31 (木) 22:00:08

Prog


トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-12-31 (木) 22:10:27 (2671d)