Leer el número de serie de los discos

Hoy os presento una utilidad que puede servirle a aquellas personas que tengan una aplicación comercial realizada en excel. Como “aplicación comercial”, me estoy refiriendo a una aplicación desarrollada en excel, y que vendéis ya sea a empresas o a particulares. Si habéis decidido que vuestra aplicación no sea de libre distribución, quizás esto os pueda servir.

Imaginemos que habéis vendido una aplicación financiera que sirve para analizar una compañía, y en la que habéis invertido cientos de horas hasta dejarla, simplemente perfecta. Imaginemos que vendéis esa aplicación a una empresa, por la módica cantidad de 30 euros. ¿Qué os parecería ver que vuestra aplicación acaba en todos los PC’s, de todos los directores financieros, de todas y cada una de las empresas, porque se la han descargado de la red?. No parece muy lógico, si te has decantado por un modelo de negocio basado en la distribución de una aplicación, que requiere una contraprestación económica.

¿Qué podemos hacer, para evitar la libre distribución de esa aplicación?. Por una parte, podemos impedir que a un fichero se le cambie el nombre, y evitar que otra persona o empresa le ponga el nombre que a él se le antoje. Pero eso no es suficiente para evitar que nuestra aplicación circule impunemente por la red, sin haber pagado su correspondiente licencia.

¿Qué más podemos hacer?. Pues podemos controlar las máquinas en las que se ejecuta la aplicación. Quizás te preguntes “¿a qué te refieres con eso de controlar?”. Pues a algo tan sencillo –en principio-, como es leer el disco (o los discos) instalados o conectados en el PC del usuario que ha adquirido tu aplicación, e impedir que la misma se ejecute en otros PC’s que no sean ese. Hombre, siempre podremos darle al usuario un margen, por si su disco duro le ha petado, o si ejecuta la aplicación desde una llave USB. En estos casos, podemos controlar el número de ejecuciones de la aplicación, e impedir por ejemplo que ese libro de excel se abra en más de 2, de 3, de 5, o de X ordenadores.

Para leer el número de serie de los discos (extraíbles o fijos) de un PC, he partido del código que he encontrado en la red, y que permite hacer esto que nos proponemos. Hay varios ejemplos más, unos que utilizan el objeto FileSystemObject, y otros que usan otros métodos, pero el que realmente “lee” el número de serie de los discos, es este que he encontrado en la red:

Sub AveriguarNumeroDeSerieDeDiscos() Dim oWMI As Object, Discos As Object, Disco As Object Set oWMI = GetObject("WINMGMTS:") Set Discos = oWMI.instancesof("Win32_PhysicalMedia") For Each Disco In Discos MsgBox "Serie: " & Disco.serialnumber Next Set Disco = Nothing Set Discos = Nothing Set oWMI = Nothing End Sub

Me he permitido añadir alguna cosilla a ese macro, para que haga lo siguiente:

1.- En la hoja3 (el nombre interno VBA de la hoja, no el nombre que tiene la pestaña, aunque puede que coincidan) escribiremos todos los números de serie con los que nos encontremos, siempre y cuando no tengamos ya registrado uno de los números de serie de los discos presentes en ese PC. La hoja3 estará oculta (la haremos visible para trabajar con ella, y posteriormente la ocultaremos).

2.- Permitiremos que nuestra aplicación se pueda ejecutar en 5 ordenadores diferentes (podéis cambiar esa cifra). En caso de ejecutarla en un sexto ordenador, el libro de excel se cerraría automáticamente.

Tenemos una limitación, y es que las memorias flash no nos devuelven ningún número de serie, por eso tenemos que controlar todos los discos presentes en el PC. Si distribuimos nuestra aplicación, y ésta se ejecuta desde una llave USB, y no leyéramos el disco duro, entonces estaríamos permitiendo que Pepito le pasase la aplicación a Menganito y a sus 50 amigos, porque no podemos leer el número de serie de la llave USB (al menos este macro que encontré, no lo hace). Leyendo el número de serie de todos los discos, sabremos con toda certeza, si la aplicación se ejecuta en diferentes ordenadores, incluso si ésta se ejecuta desde una llave USB (si la llave USB la pinchamos en más de 5 ordenadores, se bloqueará la aplicación, porque a pesar de estar siempre en la misma USB, el usuario está incumpliendo las condiciones: no se puede ejecutar la aplicación en más de 5 PC’s distintos).

Bueno, aquí os dejo el código completo, y debidamente comentado. Ojo, debéis copiarlo y pegarlo en ThisWorkbook, dentro de Microsoft Excel Objetos. También lo podéis copiar y pegar en un módulo, con el nombre de Sub Auto_open(), en lugar de Private Sub Workbook_Open().

Por supuesto, no hace falta que os diga que si deseáis utilizar este código en vuestras aplicaciones, tendréis que proteger el código VBA, poniéndole una contraseña desde Herramientas, seleccionando Propiedades de VBA Project…, y desde la pestaña Protección. Desde ahí podremos bloquear la visualización, poniéndole una muesca a esa opción, y pondremos el password dos veces, una de ellas para confirmarlo:

Private Sub Workbook_Open() 'Desactivamos las teclas de cancelación de macros Application.EnableCancelKey = xlDisabled 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Mostramos la Hoja3 Hoja3.Visible = xlSheetVisible 'omitimos los mensajes de aviso Application.DisplayAlerts = False 'Seleccionamos la hoja3 Hoja3.Select 'Selecionamos la celda A1 Range("A1").Select 'Informamos del número máximo de ordenadores 'donde se puede ejecutar la aplicación maximo_de_ordenadores = 5 'Empezamos... Set oWMI = GetObject("WINMGMTS:") Set Discos = oWMI.instancesof("Win32_PhysicalMedia") 'Para el conjunto de discos de ese PC... For Each Disco In Discos 'leemos el número de serie, eliminando 'previamente los espacios vacios del 'principio y del final del número de serie numero_de_serie = Trim(Disco.serialnumber) 'si no tiene número de serie (como las 'memorias flash, por ejemplo), que 'ponga: "Memoria flash o similar" If IsNull(numero_de_serie) Then numero_de_serie = "Memoria flash o similar" 'y lo escribimos a partir de la primera 'celda vacía que encontremos, siempre 'y cuando no tengamos registrado ya ese 'número de serie del disco Do While Not IsEmpty(ActiveCell) 'comprobamos si el valor de la celda 'es igual o no al número de serie del disco 'duro que estamos leyendo en este momento If ActiveCell <> Trim(numero_de_serie) Then 'Si es distinto, bajamos a la fila siguiente ActiveCell.Offset(1, 0).Select Else 'Si es igual, entonces finalizamos el macro 'pero antes ocultamos la Hoja3 al máximo Hoja3.Visible = xlSheetVeryHidden 'Grabamos el fichero ThisWorkbook.Save 'finalizamos el macro Exit Sub End If Loop ActiveCell = numero_de_serie 'pasamos a la siguiente fila ActiveCell.Offset(1, 0).Select Next Set Disco = Nothing Set Discos = Nothing Set oWMI = Nothing 'ponemos en B1 el número de ordenador en el 'que se ha ejecutado la aplicación, controlando 'que no se pase del límite máximo 'limpiamos los objetos If Range("B1") = "" Then Range("B1") = 1 'Grabamos el fichero ThisWorkbook.Save Else If Range("B1") < maximo_de_ordenadores Then 'Sumamos 1 al valor que haya Range("B1") = Range("B1") + 1 'Grabamos el fichero ThisWorkbook.Save Else 'Cerramos el libro, porque habrá 'llegado al máximo permitido ThisWorkbook.Close End If End If 'Volvemos a mostrar los mensajes de aviso Application.DisplayAlerts = True 'Ocultamos la Hoja3 al máximo Hoja3.Visible = xlSheetVeryHidden 'Seleccionamos la Hoja1 Hoja1.Select 'Mostramos el procedimiento Application.ScreenUpdating = True End Sub

Os dejo el fichero para que os lo descarguéis con todo el código fuente de este ejemplo, y donde hay dos macros más, uno para ocultar la Hoja3, y otro para mostrarla (esto es para hacernos más fáciles las cosas, y saber todo lo que hace el macro, pues al estar la Hoja3 oculta no veremos nada de lo que sucede). Desde aquí podéis descargar el fichero de excel, con todo el código que os presento en este artículo,

Si queréis comprobar que realmente solo se puede trabajar con esta aplicación en 5 ordenadores diferentes, tan solo debéis de cambiar el número de serie del disco duro que se habrá grabado en la Hoja3 (podéis poner un código inventado). Cambiad el número que aparece en la celda B2, ponded un 5, y grabad el fichero. Cuando abráis el fichero nuevamente se os cerrará de forma automática, y os impedirá trabajar con él.