TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

[tejano]

Empezado por ermendalenda

A ver este tema me interesa. Lo que yo haría es intentar hablar con un emisor de certificados de dispositivos por ejemplo IZENPE para que te aconseje por que lo que yo pienso puedo estar equivicado:
El certificado de dispositivo se solicita sobre un número de serie y el certificado no va a comprobar que corresponde, pero si será necesario para posibles inspecciones que garantice un número de serie único y sigo pensando que te puede servir la MAC, y si te da 2 o as seguramente puedas identificarlas por software en un orden y puedes coger siempre la primera.

Yo utilizo el comando "wmic bios get serialnumber" para saber la serie del dispositivo.

De echo, he creado un certificado de dispositivo de Izenpe con esta serie.

[ermendalenda]

Empezado por tejano

Yo utilizo el comando "wmic bios get serialnumber" para saber la serie del dispositivo.

De echo, he creado un certificado de dispositivo de Izenpe con esta serie.

Gracias. Pues ya le has respondido y muy interesante.

[HerensugeBeltz]

Empezado por tejano

Yo utilizo el comando "wmic bios get serialnumber" para saber la serie del dispositivo.

De echo, he creado un certificado de dispositivo de Izenpe con esta serie.

En mi PC no puedo leer el serialnumber de la BIOS, por lo que uso el de la placa base.
A la hora de pedir el certificado, a Izenpe por ejemplo, comunicará el nº de serie que desees, BIOS o placa.

En nuestro caso, si el certificado de la firma es de dispositivo comprobamos que coincida con alguno de los dos, BIOS o placa. En caso contrario lanzamos un error.

[ermendalenda]

Esta es la función en VB que uso para leer Identicador y serie procesador, es algo mas completo para evitar la duplicidad.

Public Function GetOsBitness() As String
    Dim ProcessorSet As Object
    Dim WMI As Object
    Dim CPU As Object
    Dim obj As Object
    Dim objs As Object
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("WIN32_BaseBoard")
    For Each obj In objs
        procid = procid & obj.SerialNumber
        If procid < objs.Count Then procid = procid & "."
    Next
    
    MBSerialNumber = procid
    procid = LTrim$(procid)
    procid = RTrim$(procid)
    Set ProcessorSet = GetObject("WinMgmts:"). _
    ExecQuery("SELECT * FROM Win32_Processor")
    For Each CPU In ProcessorSet
        GetOsBitness = CStr(CPU.AddressWidth)
        
    Next
    GetOsBitness = procid & " " & GetOsBitness
End Function

[ermendalenda]

Si lo necesitas te hago un exe que te genere un fichero