Solved

Hdd Serial Number

Posted on 2001-09-10
11
799 Views
Last Modified: 2012-06-27
How to get the serial number of the HardDisk(Product number not voluem number)
Using c or assembly or any tool available
0
Comment
Question by:mon2000
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
  • 2
  • +4
11 Comments
 
LVL 2

Accepted Solution

by:
BozzoCage earned 200 total points
ID: 6472302
0
 
LVL 51

Expert Comment

by:ahoffmann
ID: 6475935
BozzoCage, posting URLs constructed by using a session ID is useless, somehow ..
0
 
LVL 11

Expert Comment

by:griessh
ID: 6478344
useless or not, I'm getting the right files, don't you?

======
Werner
0
Transaction Monitoring Vs. Real User Monitoring

Synthetic Transaction Monitoring Vs. Real User Monitoring: When To Use Each Approach? In this article, we will discuss two major monitoring approaches: Synthetic Transaction and Real User Monitoring.

 
LVL 2

Expert Comment

by:BozzoCage
ID: 6479035
Isn't that some thread identifier? I would like "better" url too, but how to get it?
0
 
LVL 7

Expert Comment

by:q2eddie
ID: 6495236
Hi, mon2000.

#Questions
1. What exactly do you mean by "product number"?
2. Do you mean the manufacturer?  model number?

#Try This
If you wanted the hard drive's serial number, then the code below should work.

<----------- Sample Code Begins ----------->
' (general-declarations)
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


Private Sub Command1_Click()

Dim VolName As String * 255
Dim VolFS As String * 255
Dim Serial As Long
GetVolumeInformation "c:\", VolName, 255, Serial, 0, 0, VolFS, 255

VolName = Left$(VolName, InStr(VolName, Chr(0)) - 1)
VolFS = Left$(VolFS, InStr(VolFS, Chr(0)) - 1)

Debug.Print "Volume Number:", VolName
Debug.Print "File System:", VolFS
Debug.Print "Serial Number:", Hex(Serial)

End Sub
<----------- Sample Code Ends ----------->

#Links
1. "S u r s e (8),"
(subsection: Obtin serial-number-ul pentru HDD)
http://www.geocities.com/SiliconValley/hills/4377/surse8.html

Bye. -e2
0
 
LVL 54

Expert Comment

by:nico5038
ID: 7489609

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:
 - PAQ'd and pts removed
Please leave any comments here within the
next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER !

Nic;o)
0
 
LVL 11

Expert Comment

by:griessh
ID: 7491155
BozzoCage's links might not be the best representation, but are still working. They point to nice little programs that will do the job.

======
Werner
0
 
LVL 54

Expert Comment

by:nico5038
ID: 7491186
Hmm, missed that as I looked to the comment from ahoffmann telling they didn't work...

I guess the moderator will take this in account when finalizing the Q.
I'll change my recommandation to:

- Answered by: BozzoCage


Thanks !

Nic;o)
0
 

Expert Comment

by:pan_kaj
ID: 7491998
Is there a small function in Turbo C which can do the
job? The question is simple but not everybody has
technical expertise to write it.  (Atleast not me but will appreciate one.)
0
 
LVL 54

Expert Comment

by:nico5038
ID: 7492857
Hi pan_kaj,

This is not the place to post a Q :-)
When the answer to your Q isn't found between the comments here I would post my own Q e.g. in the C topic area...

Nic;o)
0
 

Expert Comment

by:modulo
ID: 7527967
Finalized as proposed

modulo

Community Support Moderator
Experts Exchange
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …
Progress
Introduction to Processes

717 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question