Visual Basic - COMO SABER EL NUMERO SERIE DE LA BIOS O LA CPU?

Life is soft - evento anual de software empresarial
 
Vista:

COMO SABER EL NUMERO SERIE DE LA BIOS O LA CPU?

Publicado por rakno (1 intervención) el 17/10/2001 12:30:38
Estoy haciendo un programa en VB6 y quiero obtener el numero de serie de la bios o el de la cpu ( o cualquier otro numero que identifique el ordenador). Alguien sabe como hacerlo?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:COMO SABER EL NUMERO SERIE DE LA BIOS O LA CPU?

Publicado por Lito Fauz (18 intervenciones) el 18/10/2001 05:37:57
Sólo programo por MS2, pero en el sitio para Vbasic de 'el guille' hay còdigo fuente que puedes copiar. Está en tres lenguajes: Vbasic, delphi y ensamblador:
http://guille.costasol.net
En la sección: 'Colabora'. Supongo que lo quieres para que no copien tus prog. En otro lugar [que no recuerdo] mencionaban que tbn sirve el número de serie del 'Adaptador telefónico de red' [ignoro sobre eso].
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

NUMERO SERIE DE LA CPU

Publicado por BENJO (82 intervenciones) el 19/10/2001 03:41:49
' copiá esto en un proyecto nuevo y apretá F5
Voilá.
este es el último d ela noche, me voy a casa. bye
*****************************************************************
Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Public Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type

Private Sub Form_Load()

Dim InfoResult As SYSTEM_INFO
GetSystemInfo InfoResult
MsgBox "Tu CPU es del tipo " & InfoResult.dwProcessorType
MsgBox "el Número del procesador es " & InfoResult.dwNumberOrfProcessors & " Ok"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar