How to get the Hard Drive Serial Number given by the Manufacturer with

[nitin36537]

How to get the Hard Drive Serial Number given by the Manufacturer with VBA?

Please note that I need Number given by Manufacturer & not Hard drive serial number which is a random number that is generated by DOS or Windows every time you format your hard drive.

Thanks

 

[MiketheEngineer]

You might check at Tek-Tips.com - a sister site to this one and it is where the computer geeks live.

 

[bmlkidd]

Check with the hard drive manufacturer. Most of them have tools for that.

 

[MiketheEngineer]

Double posting is NOT a good idea and is confusing!!

 

[IDS]

There is some code buried in the discussion here:

http://thedailyreviewer.com/office/...e-hard-disks-serial-number-from-vba-101853101

I have re-written it to work as an Excel UDF:

Function GetPhysicalSerial() As Variant

Dim obj As Object
Dim WMI As Object
Dim SNList() As String, i As Long, Count As Long

Set WMI = GetObject("WinMgmts:")

For Each obj In WMI.InstancesOf("Win32_PhysicalMedia")
If obj.SerialNumber <> "" Then Count = Count + 1
Next

ReDim SNList(1 To Count, 1 To 1)

i = 1
For Each obj In WMI.InstancesOf("Win32_PhysicalMedia")
 SNList(i, 1) = obj.SerialNumber
i = i + 1
If i > Count Then Exit For
Next

GetPhysicalSerial = SNList
End Function

Paste into a VB code module, then enter =GetPhysicalSerial() anywhere on a worksheet. If you have more than one physical hard drive enter as an array function to return the serial number for each drive.

Doug Jenkins
Interactive Design Services

http://newtonexcelbach.wordpress.com/

 

[nitin36537]

Dear Mr Doug Jenkins

Thanks a Lot. I like your

http://newtonexcelbach.wordpress.com

site also.

Nitin

 

[nitin36537]

What other information we can get from WinMgmts: ?

 

[IDS]

What other information we can get from WinMgmts: ?

I can't help there at the moment. I have never seen this object before, and I don't recall reading about it in any book I have. I can only suggest following up the links in the discussion I linked to in my previous post. If I have time to do some research myself I will post something on my blog, but I don't know when that will be.

Doug Jenkins
Interactive Design Services

http://newtonexcelbach.wordpress.com/

 

[IDS]

This seems to be the best place for information on working with WMI:

http://msdn.microsoft.com/en-us/library/aa394585

Doug Jenkins
Interactive Design Services

http://newtonexcelbach.wordpress.com/