Get Hard Drive Serial Number?

[ern2ern]

I want to write a macro that will retrieve the user's hard drive serial number. I tried running the macro in the SerialNumber Property example in VB Help but all it did was open the Macro dialog box, then it wouldn't run again.

I've seen several examples posted on the web but none work.

Does anyone know how to really do this?

Thanks.

[davesexcel]

Not sure is this it??

Please Login or Register  to view this content.

[ern2ern]

That worked just fine. Thanks.
Here is what I added:

Sub SerialNumber()
MyPath = Left("" & ActiveWorkbook.Path & "", 2)
Dim oFSO As Object
Dim drive As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set drive = oFSO.GetDrive("" & MyPath & "")
MsgBox drive.SerialNumber
'ActiveSheet.Range("F11") = drive.SerialNumber
Set oFSO = Nothing
Set drive = Nothing
'release memory

End Sub

[VBA Noob]

Please wrap your code using by clicking on the # symbol in edit mode.
Link below explains more

VBA Noob

[mudraker]

Paul

VBA Noob is not attaching his name to threads for any reason.

As a moderator of this site VBA Noob's reply was directed to ern2ern to point out the ern2ern was not following the forum rules.

[pcbpradeep]

Dear ern2ern it is very nice and i was looking this from 2012 to day i am very thank full to you and added reputation also. now only one thing this code is popping up a window can you suggest a modified code which writes this in to some particular cells in excel like,

the number must be written to

A10 B20 C30 cell as soon i open the excel automatically

please help me in this. thanks in advance

[Blokeman]

@pcbpradeep

Next time make your own thread.

Please Login or Register  to view this content.

[pcbpradeep]

Dear Blokeman thank you for quick suggestion, but
1.the code given is not working it is closing and no macro file names are appearing in excel to run.
2.I just don't want to query only C drive, but the path where the file will be. the code from ern2ern is doing exactly what i want only difference is, it is popping up the serial and i want to write in to multiple cells.
again sorry for posting in this thread.

[pcbpradeep]

Yes blokeman finally i got it i just clubbed both and it is working fine given reputation to you also. my actual question from 2012 is as in ling if you can help me on that also please check it once
**http://www.excelbanter.com/showthread.php?p=1608158

thank you again

[protonLeah]

@pcbpradeep,
Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

[kumi]

Hi.
This is great code that works.
I would like to know if this works with Mac...?
I would like to somehow verify the Book is not a copy.
So, I'm thinking to enter the serial number in the cell/sheet before giving, and match the number with the actual serial number obtaining with this code.
I'm guessing that the Office's Product ID code may work as well.

How can I do that with Mac?

Thank you for your help!

[FDibbins]

kumi, welcome to the forum

Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.

[cristrios07]

Hi, i new in the forum. I learned how to use VBA on yt so i am not an expert using it, nevertheless i made a excel file that i`d like to sell to some people, but i dont want them to pirated it, so i was wondering if it is posible to created a macro that can identify hard disk serial number and request a password.

i'd aprecciate your help!!

[6StringJazzer]

Hi, i new in the forum. I learned how to use VBA on yt so i am not an expert using it, nevertheless i made a excel file that i`d like to sell to some people, but i dont want them to pirated it, so i was wondering if it is posible to created a macro that can identify hard disk serial number and request a password.

i'd aprecciate your help!!

cristrios07, welcome to the Forum! We don't allow new questions in somebody else's thread. Please start a new thread with your question.

Please take the time to review our rules. There aren't many, and they are all important.