ディスクのボリュームラベルを変更する: Win32_LogicalDisk
■Topics
ディスクのボリュームラベルを変更するサンプルです。Win32_LogicalDiskクラスを使用します。
Private Sub Command1_Click()
Dim DiskSet As SWbemObjectSet
Dim Disk As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set DiskSet = Service.ExecQuery _
("Select * From Win32_LogicalDisk Where DeviceID = 'C:'")
For Each Disk In DiskSet
Disk.VolumeName = "VOL_TEST"
Disk.Put_
Next
MsgBox "ボリュームラベルを変更しました。"
Set DiskSet = Nothing
Set Disk = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim DiskSet As SWbemObjectSet
Dim Disk As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set DiskSet = Service.ExecQuery _
("Select * From Win32_LogicalDisk Where DeviceID = 'C:'")
For Each Disk In DiskSet
Disk.VolumeName = "VOL_TEST"
Disk.Put_
Next
MsgBox "ボリュームラベルを変更しました。"
Set DiskSet = Nothing
Set Disk = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとCドライブのボリュームラベルを「VOL_TEST」に変更します。このサンプルを少し修正すればドライブごとにボリュームラベルを設定することも可能です。
OS展開時などにディスクイメージロットを判別するためにスクリプトでボリュームラベルを設定したりするのに便利ですよ。
Win32_LogicalDisk クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。