Autor Tema: Obtener Serial Del Disco Duro (Leído 1828 veces)

sergio30 · « **en:** Domingo 12 de Diciembre de 2004, 19:33 »

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

SoloCodigo

Autor Tema: Obtener Serial Del Disco Duro (Leído 1828 veces)

sergio30

Obtener Serial Del Disco Duro

_vgt_

Re: Obtener Serial Del Disco Duro