serial del disco duro

Tengo el siguiente código pero es de Visual Basic:

Private Declare Function GetVolumeSerialNumber Lib "kernel32" Alias
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal
lpVolumeNameBuffer As Long, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, ByVal lpMaximumComponentLength As Long,
ByVal lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As Long,
ByVal nFileSystemNameSize As Long) As Long

Private Function VolumeSerial(DriveLetter) As Long
Dim Serial As Long
Call GetVolumeSerialNumber(UCase(DriveLetter) & ":\", 0&, 0&,
Serial, 0&, 0&, 0&, 0&)
VolumeSerial = Serial
End Function

Saludos
David Austria

Necesitarías de algun DLL externo.



Matías Iacono
Microsoft MVP ASP/ASP.net
Microsoft Student Ambassador
Coordinador de evento Comunidad MSDN Bolivia
DCE2 v.2005
"Rafael gomez" escribió en el
mensaje news:

estimado foro

por casualidad se puede mediante un script en ASP obtener el serial del
disco duro???

de antemano muchas gracias

Este codigo uso en proyectos con VB6

Private Function ObtenerSerialEquipo()
Dim fs As Object
Dim disco As Object

Set fs = CreateObject("Scripting.FileSystemObject")
Set disco fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(strDrvPath)))


ObtenerSerialEquipo = Abs(disco.SerialNumber)

Set fs = Nothing
Set disco = Nothing

End Function


Tambien lo puedes hacer desde VSCRIPT o sea desde el ASP
Mira este enlace
http://msdn.microsoft.com/library/d...d795be.asp

muchas gracias

"Jose A. Fernandez" escribió:

Este codigo uso en proyectos con VB6

Private Function ObtenerSerialEquipo()
Dim fs As Object
Dim disco As Object

Set fs = CreateObject("Scripting.FileSystemObject")
Set disco > fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(strDrvPath)))


ObtenerSerialEquipo = Abs(disco.SerialNumber)

Set fs = Nothing
Set disco = Nothing

End Function


Tambien lo puedes hacer desde VSCRIPT o sea desde el ASP
Mira este enlace
http://msdn.microsoft.com/library/d...d795be.asp