Programación General > Visual Basic 6.0 e inferiores

 Obtener Serial Del Disco Duro

(1/1)

sergio30:
Hola a todos, estoy intentando protger una aplicacion (simplemente a manera de curiosidad uno nunca sabe cuando va a necesitarlo), y lo quiero hacer obteniendo el serial del disco duro al momento de ejecurtase el instalador de la aplicacion (INNO SETUP), mas no tengo ni remota idea de que line deba colocar en el script del instalador he buscado por todos lados y no encuentro nada. espero puedan ayudarme esto es solo con fines educativos. Gracias de antemano. Saludos

_vgt_:
Hola!!!, yo lo k hago en controlar el numero de serie del disco duro cuando ejecuto la aplicacion, es decir, en el form principal... lógicamente antes he tenido k extraer el numero de serie... mmmmm te dejo aki el codigo... solo tienes k copiar y pegar...

Private Sub Form_Activate()

Dim a&

'Llamada a la función para cambiar la resolución
a = CambiaResolucion(16 - 65#, 800, 600)

Dim fso, d, s, unidadRuta, CalcularRegistro

   'asigno el objeto a un script de VB de tipo FileSystem
  Set fso = CreateObject("Scripting.FileSystemObject")
  'indico el volumen del que deseo obtener la información
  Set d = fso.GetDrive(fso.GetDriveName("c:\"))
  s = "Unidad " & UCase(unidadRuta) & " - "
  s = s & d.VolumeName & " "
  s = d.SerialNumber
  CalcularRegistro = s

If s = 640227056 Then 'xp

  Else

    MsgBox "Los parámetros de registro son erróneos o están corruptos"

    Command1.Enabled = False
    Command3.Enabled = False
 End If

End Sub

Espero haberte ayudado, saludos

Navegación

[0] Índice de Mensajes