LinkBack URL
About LinkBacks
Hi ! Try this …
An alternative :
PHP Code:Function FindDiskSerial$(DEV$)
Dim oDisks As Object, oDisk As Object
Set oDisks = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_LogicalDisk where DeviceID = '" & DEV & "'")
For Each oDisk In oDisks: FindDiskSerial = oDisk.VolumeSerialNumber: Next
Set oDisks = Nothing
End Function
Sub DemoFindDiskSerial()
Debug.Print FindDiskSerial("D:")
End Sub
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Register To Reply
Bookmarks