B4J Question getVolumeInformation

[mc73]

In vb I can

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

in order to get the hard disk's serial.
How can I implement this in b4j. I understand that perhaps it's just a call, yet, didn't check how to do it.

 

[Erel]

There is no simple cross platform way to get the serial number. On windows you can use jShell to run the "vol" command and parse the result. You might need to run it with cmd /c vol.

 

[mc73]

Thank you Erel.
Let me, though, apologise for the thread's title and given code.
What I am really after is the physical drive's serial number.

 

[rwblinn]

Hi,

another alternative is using jShell and Windows Script Host.
Pls look here (http://www.rwblinn.de/b4j/b4jhowto/examples/b4jhowtoshell.zip) which is one of my B4J HOWTOs example projects.
Select Menu WSH > Select Script > getserialnr.vbs.

 

[mc73]

Thank you very much! Still, does it return the physical drive's serial? I'll test it anyway, thank you again!

 

[mc73]

Hi,

another alternative is using jShell and Windows Script Host.
Pls look here (http://www.rwblinn.de/b4j/b4jhowto/examples/b4jhowtoshell.zip) which is one of my B4J HOWTOs example projects.
Select Menu WSH > Select Script > getserialnr.vbs.

Hi again,

rwblinn, I altered your script a bit, and now I have this, which supposedly return the physical drive's serial. Tried it, I guess it works, so you may want to add it to your scripts' library

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
  "SELECT * FROM Win32_physicalmedia",,48)
For Each objItem in colItems
  s = s & "SerialNumber: " & objItem.SerialNumber & vbcrlf
  s = s & "Model: " & objItem.Model
Next
wscript.echo s

 

[dilettante]

There isn't any perfectly reliable way to get the hardware serial number even if you just consider Windows. WMI uses a bunch of "by guess and by golly" techniques to try to extract it from various devices but even so it sometimes fails. The low-level code required varies by drive manufacturer, drive model, and by adapter type. And if the WMI service has been disabled on a given machine you're stuck.

 

[rwblinn]

Thanks for showing using Win32_physicalmedia ... but ... agree with dilettante = results are depending on manufacturer, windows version, adapter. All in all not reliable.

 

[mc73]

I agree. Still for what I'm using it, it's OK