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

追加された行はこの色です。
削除された行はこの色です。
Prog/VBScript/ネットワークドライブのマウント・アンマウントへ行く。

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

*使い方 [#tcadaed2]

**初期設定 [#xf4898bc]
ソースファイルの一部を書き換えます。
接続先ドライブを指定します。
 sMapDrive = "P:"
接続元の共有フォルダを指定します。
 sShareFolder = "\\192.168.0.2\share"

**マウント・アンマウントしたいとき [#z7b67824]
”sMapDrive ”に指定しているドライブの状態を確認してから動作しますので、
単純にこのスクリプトを実行するだけで機能します。
-マウントされていない場合
→マウントします。
-マウントされている場合
→アンマウントします。


*ソース [#j2311587]
 '---------------------------------------------------------------------
 '	はちぽち支援ツール
 '	
 '	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
 

*参考 [#gba3fadc]
下記サイトを参考にさせていただきました。
-http://www.atmarkit.co.jp/fwin2k/operation/wsh08/wsh08_02.html
-http://www33.ocn.ne.jp/~yfuku/wshsampl.html


RIGHT:2009-12-31 (木) 22:00:08
----
[[Prog]]

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

index.php?Prog/VBScript/%A5%CD%A5%C3%A5%C8%A5%EF%A1%BC%A5%AF%A5%C9%A5%E9%A5%A4%A5%D6%A4%CE%A5%DE%A5%A6%A5%F3%A5%C8%A1%A6%A5%A2%A5%F3%A5%DE%A5%A6%A5%F3%A5%C8

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