| Pregunta: | 45990 - LEER NUMERO DE SERIE DE MOTHERBOARD |
| Autor: | J. Aron Vizcarra Mesta |
| Deseo que me ayuden a leer el numero de serie de la targeta madre, ya que yo se que si es posible porque en una trageta madre intel cuando arranca pone el numero de serie de la targeta madre, la finalidad es de poder proteger mis programas, amarrandolos directamente con la targeta madre, si es posible que me envien el codigo fuente o bien solo la interrupcion o api que se necesite para hacerlo, de antemano gracias | |
| Respuesta: | veronica posadas |
| Prueba con este funcion
Public Function MBSerialNumber() As String 'si hay mas d 1 mother separa los nros con comas 'incorporar referencia a Microsoft WMI Scripting Library (wbemdisp.dll) Dim objs As Object Dim obj As Object Dim WMI As Object Dim sAns As String 'WMI - > referencia a wbemdisp.dll .lib Set WMI = GetObject("WinMgmts:") Set objs = WMI.InstancesOf("Win32_BaseBoard") For Each obj In objs sAns = sAns & obj.SerialNumber If sAns < objs.Count Then sAns = sAns & "," Next MBSerialNumber = sAns Debug.Print sAns End Function | |