Solved

Hdd Serial Number

Posted on 2001-09-10
11
739 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
  • 3
  • 2
  • 2
  • +4
11 Comments
 
LVL 2

Accepted Solution

by:
BozzoCage earned 200 total points
Comment Utility
0
 
LVL 51

Expert Comment

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

Expert Comment

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

======
Werner
0
 
LVL 2

Expert Comment

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

Expert Comment

by:q2eddie
Comment Utility
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
What Security Threats Are You Missing?

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 54

Expert Comment

by:nico5038
Comment Utility

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
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
Finalized as proposed

modulo

Community Support Moderator
Experts Exchange
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

Suggested Solutions

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.
Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
Viewers will learn how to properly install Eclipse with the necessary JDK, and will take a look at an introductory Java program. Download Eclipse installation zip file: Extract files from zip file: Download and install JDK 8: Open Eclipse and …

772 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now