http://pnpk.net

ネットワークドライブを割り当てる単純なスクリプトです。

単純ですがファイルサーバ等の共有ディレクトリを参照するときなんか便利です。

NetworkDriveMount.bat

@ECHO OFF
REM ネットワークドライブをマウントします。

SET URL=”\\hogehoge.local\music”
SET DRIVE=”X”

if EXIST %DRIVE%:\ NET USE %DRIVE%: /DELETE
NET USE %DRIVE%: %URL%

SET URL=
SET DRIVE=

EXIT

NetworkDriveMount.vbs

‘********************************
‘*
‘* Module Name: NetworkDriveMount.vbs
‘* Version:     1.0
‘* Abstract:    ネットワークドライブをマウント
‘*
‘********************************
Option Explicit

‘変数の宣言
Dim objNet

Set objNet = CreateObject(”WScript.Network”)

On Error Resume Next

‘既にマウントされているドライブの削除
objNet.RemoveNetworkDrive “I:”, True, True

‘ネットワークドライブをマウント
objNet.MapNetworkDrive “I:”,\\hogehoge.local\Files,True

‘オブジェクトの解放
Set objNet = Nothing

これをログオンスクリプトに仕込んでクライアントが端末にログインした時に実行されるようにします。
どちらのスクリプトでも一応動くと思います。

2007/10/30追記：Functionでコードをまとめてみました。

'***************************************
'* Module Name: NetWorkDriveMount.vbs
'* Version:     1.2
'* Abstract:    NetWorkDriveをマウントします。
'***************************************
OPTION EXPLICIT

Dim strMountDrive  'ドライブパス
Dim strDirPath   'ディレクトリパス

'例Call NetWorkDriveMount("G:","\\serv00\Data")
Call NetWorkDriveMount("G:","\\serv00\Data")

Function NetWorkDriveMount(strMountDrive,strDirPath)
    Dim objFso
    Dim objNet

    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objNet = CreateObject("WScript.Network")

    If objFso.FolderExists(strMountDrive) Then
     objNet.RemoveNetworkDrive strMountDrive,True
     objNet.MapNetworkDrive strMountDrive,strDirPath
    Else
     objNet.MapNetworkDrive strMountDrive,strDirPath
    End If

    Set objFso = Nothing
    Set objNet = Nothing
End Function

Popularity: 4%