Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

serial number

6 views
Skip to first unread message

Wayne Morgan

unread,
Mar 1, 2004, 4:53:45 PM3/1/04
to
Open the case. Move what you need to out of the way of the sticker on the MB
or HD and see what it says. Depending on the case, this may be easy or hard
to do.

Some motherboards will have the serial number in the BIOS setup. Also, the
hard drive manufacture's error detection utility (usually a free download)
will usually be able to give you the serial number of the hard drive.

--
Wayne Morgan
Microsoft Access MVP


"Jason Frazer" <anon...@discussions.microsoft.com> wrote in message
news:57C5CD19-97EF-4B42...@microsoft.com...
> How can i get the serial number off of the hard drive or motherboard?
>
> Thanks
> Jason


Adrian Jansen

unread,
Mar 1, 2004, 5:56:59 PM3/1/04
to
There is a Windows API call:

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

Public Function GetSerialNumber(strDrive As String) As Long

'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPD...@Allapi.net
Dim Serial As Long, VName As String, FSName As String
'Create buffers
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'Get the volume information
GetVolumeInformation strDrive, VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
' VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
' FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
'MsgBox "The Volume name of C:\ is '" + VName + "', the File system name
of C:\ is '" + FSName + "' and the serial number of C:\ is '" +
Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly

GetSerialNumber = Serial

End Function

--
Regards,

Adrian Jansen
J & K MicroSystems
Microcomputer solutions for industrial control

Wayne Morgan

unread,
Mar 2, 2004, 12:03:06 AM3/2/04
to
Sorry Jason, we get many misposts in here asking for help. Your message
didn't specify why you were wanting this, I thought it was a maintenance
problem. Since the drive manufacture's software can read the serial number
from the hard drive, I'm sure there is a way to do it, but I don't know how.
If the computers are networked, you may have better luck reading the MAC
address of the network card. I looked at Adrian's API call, but I don't
think it gets down to the hardware information you are asking for. It sounds
as if what you are after is something similar to the Windows Activation
routines.

--
Wayne Morgan
Microsoft Access MVP


"Jason Frazer" <anon...@discussions.microsoft.com> wrote in message

news:3D0E6505-38C5-42E6...@microsoft.com...
> lol. Funny!!! I know this.... I wish it was that simple.
> I want to find the serial number from one of the devices to set up a
registration form.
> That would require the user to enter a key number that is generated from
the serial number.
> So the sensitive information in the database can not be distributed
without authorization
> Opening the case wil not work for this.
>
> Thanks
> Jason Frazer
>


Jason Frazer

unread,
Mar 2, 2004, 11:51:41 AM3/2/04
to
Thanks for your help.

That works great.

Jason

"Adrian Jansen" <q...@noqqwhere.com> wrote in message
news:4043cbd6$3...@duster.adelaide.on.net...

0 new messages