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

[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