【VBS】ネットワークドライブを割り当てる - 変換.tokyo | henkan.tokyo

【VBS】ネットワークドライブを割り当てる

 
■【VBS】ネットワークドライブを割り当てる
 
今回はドライブマッピング設定のためのVBScriptをご紹介します。
下記のWebサイト「ネットワークドライブを割り当てる」を参考に作成しました。
http://www.whitire.com/vbs/tips0098.html

皆さんの中にも、例えばファイルサーバー上の共有フォルダにドライブマッピングをして利用されている方はいらっしゃると思います。
(起動時、ログオンスクリプトからマッピングさせたり...)
下記のサンプルコードはVBScriptを使ってのドライブマッピングの一例です。
また、ダウンロード用サンプルコードは、下記と同様のVBScriptを組み込んだ「HTAファイル」になります。
(簡易GUI付きのVBScript。ブラウザで開きます)

mapping1.png


■サンプルコード

Option Explicit
On Error Resume Next
Dim objWshNetwork ' WshNetwork オブジェクト
Dim strDrive ' ドライブ名
Dim strPubFolder ' 共有フォルダ名
Dim strUserName ' 接続するユーザー名
Dim strPassword ' パスワード
Set objWshNetwork = WScript.CreateObject("WScript.Network")
If Err.Number = 0 Then
strDrive = "Z:"
strPubFolder = "\\Comp01\Temp"
strUserName = "Administrator"
strPassword = "Password"
objWshNetwork.MapNetworkDrive strDrive, strPubFolder, _
True, strUserName, strPassword
If Err.Number = 0 Then
WScript.Echo strDrive & " ドライブに " & _
strPubFolder & " を割り当てました。"
Else
WScript.Echo "エラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If
Set objWshNetwork = Nothing


■サンプルVBSダウンロード
こちらから


■VBSを作成するのに参考となる書籍
[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

VBScriptポケットリファレンス改訂版 (Pocket reference) [ アンク ]
価格:2030円(税込、送料無料) (2018/9/15時点)

楽天で購入


by カエレバ
by カエレバ
by カエレバ
by カエレバ
by カエレバ
by カエレバ