I used this snippet to get the CPU serial number:
Code: Select all
Procedure.s GetCPUSerialNumber2()
;GetCPUSerialNumber()
Define highbits.l
Define lowbits.l
Define serial.q
!MOV eax, $80000003
!CPUID
!MOV dword [p.v_lowbits], ecx
!MOV dword [p.v_highbits], edx
serial = lowbits | highbits << 32
ProcedureReturn Hex(serial,#PB_Quad)
EndProcedure
Debug GetCPUSerialNumber2()
Code: Select all
Procedure.s GetCPUSerialNumber2()
;GetCPUSerialNumber()
Define highbits.l
Define lowbits.l
Define serial.q
! asm("MOV eax, $80000003");
! asm("CPUID");
! asm("MOV dword [p.v_lowbits], ecx");
! asm("MOV dword [p.v_highbits], edx");
serial = lowbits | highbits << 32
ProcedureReturn Hex(serial,#PB_Quad)
EndProcedure
Debug GetCPUSerialNumber2()
Thanks