Topic: AutoLISP trial

[crowellsr]

How can I create a trial version of some of my AutoLISP applications? The trial could either be based on time or a number of uses. Thanks for any help!

Steve

[Andrea]

first welcome to theswamp crowellsr ..

here

[crowellsr]

Is there to add some code to activate the product after 30 days with a serial number that is based on the MAC address or the computer name?

Thanks

Steve

[Andrea]

sure....
you can use also DosLIB to get mac.

or something like...

Code: [Select]

(command "SH" "GETMAC > c:\\MAC.txt")
(setq f1 (open "c:\\MAC.txt" "r"))
(setq l1 (read-line f1))
(while l1
  (setq MAC (vl-string-search "{" l1))
  (if MAC (setq MAC1 l1))
(setq l1 (read-line f1))
)
(close f1)
but what happen if user change his PC ?..
You can use also "LOGINNAME" and generate a code from it.
or shuffle a code from current date..
or use certification licence file...
or use IP...
or any else idea..
but the fact is,...conception idea is not missing..
we just need to think before programming.

good luck ! 

[crowellsr]

If the person changes computers I would have to generate a new activation key just as AutoDESK has to for AutoCAD. There has to be a way to do it to avoid this though. What is a certification license file? I wil see if I can think of something that could be used that would not make it a huge hassle for the user if they change computers.

Steve

[Andrea]

a certification licence file is a simple txt file with specific generated code based on diffrent user info.

Need some idea...?

Code: [Select]

(getvar '_pkser)

Code: [Select]

(acet-reg-prodkey)

Code: [Select]

  (setq Obj (vlax-create-object "WScript.Network"))
  (setq UserName   (vlax-get-property Obj "UserName")
CompName   (vlax-get-property Obj "ComputerName")
UserDomain (vlax-get-property Obj "UserDomain")
  )
another thing is to keep the e-mail adress and generate a code from it.
e-mail should stay the same.

check on Windows registry.
or tell user to enter his e-mail adress for verification.

 

[ElpanovEvgeniy]

Code: [Select]

(mapcar 'getenv
        '("ALLUSERSPROFILE"   "APPDATA"           "COMPUTERNAME"      "COMSPEC"
          "HOMEDRIVE"         "HOMEPATH"          "HOMESHARE"         "LOGONSEVER"
          "NUMBER_OF_PROCESSORS"                  "OS"                "PATH"
          "PATHEXT"           "PROCESSOR_ARCHITECTURE"
          "PROCESSOR_IDENTFIER"                   "PROCESSOR_LEVEL"   "PROCESSOR_REVISION"
          "SYSTEMDRIVE"       "SYSTEMROOT"        "TEMP"              "TMP"
          "USERDOMAIN"        "USERNAME"          "USERPROFILE"       "WINDIR"
         )
)