Leer Número de Serie del Disco Duro

[speedy]

Hola a todos, es la primera vez que pregunto en este foro, que la verdad esta muy padre felicidades al q lo hizo , bueno he estado buscando como poder leer el numero de serie del disco duro del servidor en donde corren los ASP pero sin resultados, recuerdo que en algun lugar del WEB lo vi pero perdi esa valios información, alguno de ustede podra decirme que comando coloco para lograr esto, GRACIAS y saludos.

[orharo2003]

Te doy de regalo hasta como leer el modelo del disco:

Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive("C:") Response.write "Serie: " & d.SerialNumber
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48) For Each objItem in colItems response.write "Modelo: " & objItem.Model
Next

Saludos.

[dobled]

vaa no me funciono!!

solo leo la serie lo demas naa!

[lexus]

muy interesante pero no me funciono, me dice error
Tipo de error:
(0x80041003)

por otro lado sera posible leer el numero MAC? o del disco duro o del modem o de la tarjeta de red? bueno por ahora miremos porque no funciona este interesannte codigo .

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive("C:")
Response.write "Serie: " & d.SerialNumber
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
For Each objItem in colItems
response.write "Modelo: " & objItem.Model
Next

%>

[dobled]

deje en comentario unas lineas y solo me da la serial

[speedy]

Gracias orharo2003 por tu codigo, la verdad a mi tampoco me funciono lo otra parte solo lo del numero de serie pero muchas gracias si me sirvio. Investigue un poco y encontre esto espero les sirva, lexus me parece que algo asi querias, a mi aun no me funciona jeje, es que no le he agarrado bien la onda a eso de llamar la Function, pero si a alguien si le funciona le agradeceria que me ponga su codigo completo para ver como se manda a llamar, gracias y SUERTE A TODOS.

<%
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
' GenerateDriveInformation
' Objetivo:
' Genera una cadena que describe el estado actual de las unidades
' disponibles.
' Demuestra lo siguiente
' - FileSystemObject.Drives
' - Iterating the Drives collection
' - Drives.Count
' - Drive.AvailableSpace
' - Drive.DriveLetter
' - Drive.DriveType
' - Drive.FileSystem
' - Drive.FreeSpace
' - Drive.IsReady
' - Drive.Path
' - Drive.SerialNumber
' - Drive.ShareName
' - Drive.TotalSize
' - Drive.VolumeName
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''

Function GenerateDriveInformation(FSO)

Dim Drives
Dim Drive
Dim S

Set Drives = FSO.Drives
S = "Número de unidades:" & TabStop & Drives.Count & NewLine & NewLine

' Construir la primera línea del informe.
S = S & String(2, TabStop) & "Nombre"
S = S & String(3, TabStop) & "Sistema"
S = S & TabStop & "Espacio"
S = S & TabStop & "Espacio"
S = S & TabStop & "Espacio"
S = S & TabStop & "Número" & NewLine

' Construir la segunda línea del informe.
S = S & "Letra"
S = S & TabStop & "Ruta"
S = S & TabStop & "Tipo"
S = S & TabStop & "¿Listo?"
S = S & TabStop & "de unidad"
S = S & TabStop & "de archivos"
S = S & TabStop & "total"
S = S & TabStop & "libre"
S = S & TabStop & "disponible"
S = S & TabStop & "de serie" & NewLine

' Línea separadora.
S = S & String(105, "-") & NewLine

For Each Drive in Drives
S = S & Drive.DriveLetter
S = S & TabStop & Drive.Path
S = S & TabStop & ShowDriveType(Drive)
S = S & TabStop & Drive.IsReady

If Drive.IsReady Then
If DriveTypeNetwork = Drive.DriveType Then
S = S & TabStop & Drive.ShareName
Else
S = S & TabStop & Drive.VolumeName
End If
S = S & TabStop & Drive.FileSystem
S = S & TabStop & Drive.TotalSize
S = S & TabStop & Drive.FreeSpace
S = S & TabStop & Drive.AvailableSpace
S = S & TabStop & Hex(Drive.SerialNumber)
End If

S = S & NewLine

Next

GenerateDriveInformation = S

End Function

%>

[orharo2003]

Hola a todos :

El código que puse funcuina bien en mi pc, al parecer WMI no es muy conocido por aqui. He aqui el problema porque ha nadie le funciona :

http://www.dbforums.com/t971823.html

[Saruman]

hola a todos...
los scripts que pusieron aqui estan super cool... podrian explicarme como hago para instalar lo del WMI... no me sale y vi el link que puso orharo2003 y no logro ver o entender la solución... y sobre el codigo de speedy quiero probar para ver....

saludos

[Saruman]

para ilustrar mas aqui les dejo un link que encontre
http://www.w3schools.com/asp/asp_ref_drive.asp

[Muzztein]

mm que interesante el link.

estopodria ser usado para generar una llave privada para hacer una encriptacion.


mnmnmnmnmnmnmnmnmnmnmnmnm de pelos.-

<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set d=fs.GetDrive("c:")
Response.Write("The serialnumber is " & d.SerialNumber)
set d=nothing
set fs=nothing
%>

[dobled]

el programa se inicia y pregunta por la serial del disco si es la misma pasa si no kgaron ------ nos vakunaron, cambiaron el disco o lo instalaron en otra maquina....

ta weno weno weno....