你可以用VBA返回磁盘的卷GUID吗？

我遇到了另一个职位VBA打开一个USB设备使用它在wmi中的唯一ID是没有答案的海报显示了通过VBA和WMI获取USB设备的UID的方式，但我不知道如何检索VolumeGUID的WMI VBA。

我想获得deviceid，如果可能，为特定设备返回VolumeGUID，如果它匹配deviceid。

这篇文章如何获得卷GUID似乎表明这是可能的，但它是为C ++

我只是在查询错误的WMI类吗？

macros在Windows上正常工作，但在Mac上失败

如何检查excel工作簿目前是否在MAC或Windows上工作

如何使WinHttpCrackUrl在64位工作

从Excel Vba调用Unix脚本

VBA userform工具箱附加控件对话窗口不显示

使用VBA从具有SAMLauthentication的网站下载文件

在窗口调整事件

VBA在Windows7电脑被locking时closuresexcel文件

如何从Excel / VBA调用长时间运行的外部程序？

将EXE文件embedded到Excel文件中

我曾经有VBS这样做，你可以减少和修改它在VBA中使用。

strComputer = "." Set objWMIService = Getobject("winmgmts:\" & strComputer & "rootCIMV2") Volume MountPoint Sub Volume() Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Volume") ' Windows XP and earlier: not available. wscript.echo "[ Win32_Volume ] - " & colItems.Count & " items" For Each objItem in colItems ShowT "Access",objItem.Access ShowT "Automount",objItem.Automount ShowT "Availability",objItem.Availability ShowT "BlockSize",objItem.BlockSize ShowT "Capacity",objItem.Capacity ShowT "Caption",objItem.Caption ShowT "Compressed",objItem.Compressed ShowT "Description",objItem.Description ShowT "deviceid",objItem.deviceid ShowT "DirtyBitSet",objItem.DirtyBitSet ShowT "DriveLetter",objItem.DriveLetter ShowT "DriveType",objItem.DriveType ShowT "FileSystem",objItem.FileSystem ShowT "FreeSpace",objItem.FreeSpace ShowT "IndexingEnabled",objItem.IndexingEnabled ShowT "Label",objItem.Label ShowT "MaximumFileNameLength",objItem.MaximumFileNameLength ShowT "Name",objItem.Name ShowT "NumberOfBlocks",objItem.NumberOfBlocks ShowT "PNPdeviceid",objItem.PNPdeviceid ShowT "Purpose",objItem.Purpose ShowT "Status",objItem.Status ShowT "StatusInfo",objItem.StatusInfo ShowT "SerialNumber",objItem.SerialNumber ShowT "SupportsdiskQuotas",objItem.SupportsdiskQuotas ShowT "SupportsFileBasedCompression",objItem.SupportsFileBasedCompression wscript.echo "-----" Next wscript.echo vbCrlf & "====================" & vbCrlf End Sub Sub MountPoint() Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_MountPoint") wscript.echo "[ Win32_MountPoint ] - " & colItems.Count & " items" For Each objItem in colItems ShowT "Directory",objItem.Directory ShowT "Volume",objItem.Volume wscript.echo "-----" Next wscript.echo vbCrlf & "====================" & vbCrlf End Sub Sub ShowT(s,obj) If Len(obj) > 0 Then Wscript.Echo vbTab & s & ": " & obj End Sub