VBA Security Question

[Gregm66]

Hi all,



Is it possible the have access vba lookup the hdd serial or model number and record it to a table?

I want to start by loading a form on startup, when the form loads it should find and display the hdd serial number or model number then automatically record it to the table, so that everytime the form loads it checks that the hdd serial or model number matchs the recorded one in the table.

I have done a bit of research on this and can not seem to find the answer.

any help would be appreciated.
some code to do this would be great.
Thanks in advance

[CJ_London]

google environ.

Can't remember exactly what it is but something like

environ("machine") or environ("computername")

not sure about hdd serial number - it may not be unique

[ssanfu]

From https://groups.google.com/forum/#!to...ks/mY3kkus2gfE

Post by Michel Walsh (Vanderghast, Access MVP) on 9/19/2000 & 9/30/2000

Need to set a reference to "Microsoft WMI Scripting 1.1 Library" (1.2 in Access 2010)

Public Function GetVolumeSerialNumber(Drive As String) As String
    Dim objs As WbemScripting.SWbemObjectSet
    Dim obj As WbemScripting.SWbemObject

    Set objs = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType=3 AND Name='" & Drive & "'")
    For Each obj In objs
        GetVolumeSerialNumber = obj.VolumeSerialNumber
        Exit For
    Next obj
End Function

Usage would be like:

Sub test()
    Dim tmp As Variant

    tmp = GetVolumeSerialNumber("C:")
    Debug.Print tmp
End Sub

Note the colon......

[Gregm66]

thanks for the reply ssanfu and Ajax,

I will look at both ideas and test them, will keep you posted on outcome

[Gregm66]

Thanks ssanfu,

your code you supplied worked, it displays the HDD Serial in a textbox that is on my form.

What I would like that textbox to do, is to then automatically send that number to a table, with a text field called Serial, and the table is called tblHDD.
then every time the database opens it checks the form textbox number with the number stored in the table and if the numbers do not match the an error msg is displayed. Example: " This Computer is Not Authorised to use this Software "
and if this happens then the database will close.

Hope you understand what I mean.

Thanks again for your help so far

[ssanfu]

OK, modify your code so when the main form opens, it checks the table to see if there is a record in the table. If not, add the serial number and continue on.
If a record exists, get the saved SN, get the SN of the hard drive and compare them. If not the same, display a message box and exit access.

[Gregm66]

Thanks for your reply ssanfu,

would you have some example code to get it to do this, as I am not quite sure how to approach this way of doing things.

Thanks again

[ssanfu]

No, sorry, I don't. Its not hard - how would you do it manually?
Writing down the steps you would do manually is called pseudo code. The next step would be to start converting the pseudo code to VBA.

I gave you most of the pseudo code. And you know what you want to do. Program away!!

- the main form opens,
- get the saved SN. (How?? open a recordset?? / use DLookup()??)
- If no SN, add the serial number and continue on.

- Else If a SN record exists,
- get the SN of the hard drive and
- compare them.
- If not the same, display a message box and exit access
- else continue on.


Good luck.....

[Gregm66]

thanks again for your reply ssanfu,

I am working on using the dlookup now, to look at the number, keep getting an error but I will work it out.

Thanks again