VBA Code To Do Check for a Valid Use Computer

[spurs]

I want to incorporate into my VBA code a check to make sure that the computer that the VBA code is being run on is authorized for use.

Is there a unique serial number - that VBA can access to verify that the computer being used is in fact authorized for use? - Possibly a serial number that identifies a specific drive, or motherboard or some other feature? My plan would be that this number would be hard coded into the VBA code and everytime the program is run, it would shut down if the number does not match the allowable number.

Is there a down side to this approach? I am writing code that is to be used on only a handful of authoized computers, and I am trying to prevent the code from being used malicously elsewhere.

What is the VBA code that is needed to get this number from a system?

 

[yesimeon]

Hi

I have a little problem. I am writing a macro which can run in four different PC namely DELL,ACER,HCL,LENOVO.
The macro will open a file and execute a certain function, the real problem is the location of this file. The location of the file is different in all the four system make.

Can anyone help me?

(I have written four different macro for this, can this be made into one macro by detecting the system manufacturer and choosing the corresponding path to open the file)

Thanks in advance

 

[azizrasul]

What happens if the licensee gets rid of his original laptop\PC and buys a new one?

 

[azizrasul]

What happens if the machine breaks down and you want to install the software or file on a new machine?

 

[zomy hassan]

This worked great

Thank you all

 

[zomy hassan]

Hello: This code gets the HD #

 Option Explicit

Sub DriveSerialNumber()
    MsgBox CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
End Sub

And this code verifies the serial number and opens the file if the serial number checks out

Private Sub Workbook_Open()
If CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber <> "-1464624812" Then Application.Quit
End Sub

Your HD might or might not have a minus sighn in front of the number... if it does make sure you include it.


just noticed that jonmo1 posted .. sorry for this

please if i have two computers and insert two serial number how i can write the code thanks