Avoid application to run on other PC

[rogerarce]

I made a small application at work, some people use it and I do not want anybody to take the application with them when they change of job .How can I prevent someone to run it in a different computer?

Thanks

 

[genomon]

Adding a verifiable password comes to mind.

"Don't be irreplaceable. If you can't be replaced, you can't be promoted."

 

[rogerarce]

I hear about a code to check for the HD serial?

 

[PHV]

I hear about a code to check for the HD serial
A starting point:

Sub ListDrives()
Dim FSO, dc, d
Dim S As String, N As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Set dc = FSO.Drives
For Each d In dc
  N = ""
  S = S & d.DriveLetter & " - "
  If d.DriveType = 3 Then
    N = d.ShareName
  ElseIf d.IsReady Then
    N = d.VolumeName & " SN:" & Left(Hex(d.SerialNumber), 4) & "-" & Right(Hex(d.SerialNumber), 4)
  End If
  S = S & N & vbCrLf
Next
MsgBox S
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Golom]

That's all very well but computers come and go.

What happens if someone in the office who is qualified to run the application gets a new computer? Or their hard drive crashes and they get it replaced?

Do you really want to be in the business of tinkering with the system to authorize their new computer or hard drive? ... Assuming that you haven't been replaced.

 

[genomon]

A secure backend table that resides on your network would be a good place to store passwords. On startup you could have a login form that verifies the user PW. If someone leaves, they won't have the linked table, and you would remove their PW from it anyhow.

"Don't be irreplaceable. If you can't be replaced, you can't be promoted."

 

[rogerarce]

Thanks for all the ideas.