read BIOS or HDD or Machine Serial Number

[Gavin]

Hi, I'm a newbie to programming of any kind. I have posted this to other
groups in a hope to get a response from anyone.

Can any one tell me how to make my VB program read the Bios serial number
(or would HDD be better, or both?) and put that info into VB prog so the
program won't work on another computer. My program uses an MSAccess table.

Much appreciated if you can help!

Thanks
Gavin

[J French]

On Wed, 13 Aug 2003 19:21:16 -0400, "André Joubert"
<ja****@sympati co.ca> wrote:

In an other NG some was looking for HDD serial number and it was suggested
to try a driver that can be found on a site. I when to that site and
downloaded the driver. On the the same site (I don,t have the reference on
hand) there were some links on how to build a driver. On of the links was
about SMART driver and sent me to MSDN. I went there and there was a
document in the KB that describe the problem.
André
P.S. here is the reference

http://www.winsim.com/diskid32/diskid32.html

Gottit - thanks - that is one to remember !

[Ramiro C]

Hi, I'm a newbie to programming of any kind. I have posted this to other
groups in a hope to get a response from anyone.

Can any one tell me how to make my VB program read the Bios serial number
(or would HDD be better, or both?) and put that info into VB prog so the
program won't work on another computer. My program uses an MSAccess table.

Much appreciated if you can help!

Thanks
Gavin

Gavin

following the routine for your request

Sub serial()

drvpath = "c:"

Dim fs, d, s, t
Set fs = CreateObject("S cripting.FileSy stemObject")
Set d = fs.GetDrive(fs. GetDriveName(fs .GetAbsolutePat hName(drvpath)) )
Select Case d.DriveType
Case 0: t = "Desconocid o"
Case 1: t = "Separable"
Case 2: t = "Fijo"
Case 3: t = "Red"
Case 4: t = "CD-ROM"
Case 5: t = "Disco RAM "
End Select
s = "Unidad " & d.DriveLetter & ": - " & t

' this is a comment next line print out the hdd serial number

s = s & vbCrLf & "NS: " & d.serialnumber
MsgBox s
End Sub