ネットワークドライブのボリュームラベルを変更するには

解決

クッパ 2004-04-14 20:06:52 No: 112838 IP: [192.*.*.*]

ネットワークドライブのボリュームラベルが「コンピュター名\共有フォルダ名」になっているので、以下のVBSをつくりました。

dim Fs, Drive
Set Fs = Wscript.CreateObject("Scripting.FileSystemObject")
Set Drive = Fs.GetDrive("Z")
Drive.VolumeName = "保存"

ローカルドライブを指定して実行してみると、ボリュームラベルが変更されますが、ネットワークドライブを指定すると「このディレクトリはルートディレクトリのサブディレクトリではありません。」とエラーメッセ維持が出ます。

なんとかスクリプトでネットワークドライブのボリュームラベルを変更したいと考えています。

よろしくお願いします。

編集削除

魔界の仮面弁士 2004-04-14 22:14:42 No: 112839 IP: [192.*.*.*]

ネットワークドライブのボリュームラベルは変更できません。
(コマンドプロンプトからLABELコマンドを発行しても、拒否されます)

Win2000/XPのマイコンピュータ上では、ネットワークドライブに別名を与える事はできますが、ボリュームラベルが変更されるわけではありません。

とりあえず、マイコンピュータ上の見た目だけでも良いなら、以下のようにして変更できる可能性があります。

  Set X = Wscript.CreateObject("Shell.Application")
  Set D = X.NameSpace("Z:\")
  D.Items().Item.Name = "保存"

編集削除

クッパ 2004-04-15 09:09:30 No: 112840 IP: [192.*.*.*]

教えていただいたとおりのVBSでボリュームラベルを変更できました。
魔界の仮面弁士さんありがとうございました。

編集削除