MENU

• コンテンツ
  • プログラミング
  • エレクトロニクス
  • 家サーバ管理帳
  • Solaris Administrator
  • ごちゃ混ぜ実験
  • このサイトについて
    
• その他
  • サイトマップ
  • 人気ページ
  • 最新記事
    
• 掲示板・ゲストブック
  • FORUM
    
• リンク
  • ExattoSoftware
  • GitHub
    

Online: 3
Today: 1
Yesterday: 0
Total: 16450

はじめに †

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

使い方 †

初期設定 †

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

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

参考 †

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

• http://www.atmarkit.co.jp/fwin2k/operation/wsh08/wsh08_02.html
• http://www33.ocn.ne.jp/~yfuku/wshsampl.html

Prog