正在获取脚本位置的卷序列号

Question

这里有一个显示所有驱动器的卷序列号的vbscript。但我需要自定义以仅返回运行脚本的驱动器的卷序列号。

怎么做？

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
str = ""
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk")
For Each objItem In colItems
   str = str & objItem.Name & " SerialNumber: " & objItem.VolumeSerialNumber & vbCrlf & vbCrlf
Next
MsgBox str

Answer 1

这应该可以满足您的需要：

' Get the drive designator...
With CreateObject("Scripting.FileSystemObject")
    strDrive = .GetDriveName(WScript.ScriptFullName)
End With
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DeviceId='" & strDrive & "'")
' There should only be one item in the collection...
For Each objItem In colItems
    MsgBox objItem.Name & " SerialNumber: " & objItem.VolumeSerialNumber
Next