** Para registrar llaves en el registro, haces:
oSh = CreateObject("WScript.Shell")
cLlave = "HKEY_CURRENT_USER\WSHpass\"
oSh.RegWrite (cLlave,"Mensaje de la Llave")
oSh.RegWrite (cLlave+"RutaFisica","C:\LaRutaQueQuieras\") && Esta llave es en respuesta a Walter.
oSh.RegWrite (cLlave+"Licencia",1234567,"REG_DWORD")
** La última llave es para darle más amplitud a las autorizaciones, pensando en asignar un número de usuario valido que podría anularse por software cuando lo desees; pero podría ser también un valor 1 o 0 para indicar si se autoriza o no.
** Una vez creadas las llave, para leerlas desde VFP; haces:
oSh = CreateObject("WScript.Shell")
? oSH.RegRead ("HKEY_CURRENT_USER\WSHpass\RutaFisica")
? oSH.RegRead ("HKEY_CURRENT_USER\WSHpass\Licencia")
** Respuesta a Walter: por ejemplo:
lcRuta = addbs(oSH.RegRead ("HKEY_CURRENT_USER\WSHpass\RutaFisica"))
if lcRuta=fullpath(curdir()) && compara si la ruta registrada es la misma que la donde esta funcionando el sistema.
...