Results 1 to 4 of 4
  1. #1
    mroshdy is offline Novice
    Windows 7 64bit Access 2003
    Join Date
    May 2017

    Lightbulb How to bind Microsoft access program with specific machine

    I have an access program that I need to sell to others.
    Before giving the program to any body, I need to bind the version I will give to the client with his specific machine, in order to prevent his version from opening form any other machines.

    How to perform this security issue?

    Free security solutions are preferred, If not found then not free solutions.

  2. #2
    ranman256's Avatar
    ranman256 is online now VIP
    Windows Vista Access 2010 32bit
    Join Date
    Apr 2014
    youd need the PC ID given in advance. Encode it to read it at startup.
    Then compile the frontend into an accde so users can bypass the code.

    This may work to get the ID:
    sub CheckID()
    if CpuID <> "abcde" then 
      msgbox "Invalid PC"
    end if
    end sub
    Public Function CpuId() As String
    Dim computer As String
    Dim wmi As Variant
    Dim processors As Variant
    Dim cpu As Variant
    Dim cpu_ids As String
        computer = "."
        Set wmi = GetObject("winmgmts:" & _
            "{impersonationLevel=impersonate}!\\" & _
            computer & "\root\cimv2")
        Set processors = wmi.ExecQuery("Select * from Win32_Processor")
        For Each cpu In processors
            cpu_ids = cpu_ids & ", " & cpu.ProcessorId
        Next cpu
        If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)
        CpuId = cpu_ids
    End Function

  3. #3
    deepakg27 is offline Competent Performer
    Windows 10 Access 2013 64bit
    Join Date
    Nov 2017
    Thanks, could be useful.

    Deepak Gupta

  4. #4
    isladogs's Avatar
    isladogs is offline Very idle programmer
    Windows 10 Access 2010 32bit
    Join Date
    Jan 2014
    Somerset, UK
    Creating an unique activation code for each PC is part of my security challenge thread at

    It includes the CPU ID but also several other items unique to that PC
    Because this is written as a challenge, I can't give you the code. You will need to do the challenge to get the code
    Colin (Mendip Data Systems) : Website, email
    If this has helped, please click the star button and leave a comment

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 1
    Last Post: 12-21-2015, 12:43 PM
  2. Replies: 13
    Last Post: 10-06-2015, 09:12 AM
  3. Replies: 1
    Last Post: 11-15-2014, 12:41 PM
  4. Replies: 7
    Last Post: 09-10-2014, 06:56 PM
  5. Replies: 4
    Last Post: 08-19-2014, 12:20 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
Other Forums: Microsoft Office Forums - Senior Forums