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

はじめに†

ネットワークドライブを簡単にマウント・アンマウントするツールです。ノートＰＣなど持ち運んで使う場合に、「自動で再接続」設定が使いにくい場合に便利です。

使い方†

初期設定†

ソースファイルの一部を書き換えます。接続先ドライブを指定します。

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