Foros del Web » Creando para Internet » Diseño web »

Obtener nùmero de serie del disco

Estas en el tema de Obtener nùmero de serie del disco en el foro de Diseño web en Foros del Web. Hola a todos, quisiera saber como puedo obtener el numero de serie del disco duro o alguna otra informacion del hardware, usando vbscript. Espero que ...
  #1 (permalink)  
Antiguo 11/02/2006, 17:43
 
Fecha de Ingreso: febrero-2006
Mensajes: 1
Antigüedad: 10 años, 7 meses
Puntos: 0
Obtener nùmero de serie del disco

Hola a todos, quisiera saber como puedo obtener el numero de serie del disco duro o alguna otra informacion del hardware, usando vbscript. Espero que me puedan ayudar, gracias.
  #2 (permalink)  
Antiguo 13/02/2006, 04:34
 
Fecha de Ingreso: septiembre-2004
Mensajes: 179
Antigüedad: 12 años
Puntos: 0
Buenas,

me parece que con simple vbscript et va a resultar imposible. Vas a necesitar un ActiveX, que lo acepten y que el navagador sea compatible.
__________________
Estoy en www.aibarra.net

Camino para preguntar: manual -> Google -> FAQs y buscador del foro -> Nuevo Tema.
Tan difícil es escribir correctamente? Es más fácil leerlo. Pónselo fácil al que quiera ayudarte.
  #3 (permalink)  
Antiguo 04/03/2006, 11:54
Avatar de dogduck  
Fecha de Ingreso: enero-2006
Ubicación: ¿Atlantida, Hesperides, Islas afortunadas?
Mensajes: 2.231
Antigüedad: 10 años, 8 meses
Puntos: 19
Efectivamente se puede hacer con activeX , mira a ver si te vale esto
Código HTML:
<html>

<head>

<title>Nº serie volumen C </title>
<script language="vbscript">
sub main()
Set fso = CreateObject("Scripting.FileSystemObject")

Set objDrive = fso.GetDrive(fso.GetDriveName("C:"))

strVolumedata = "El nº de serie del volumen c: es = " & Hex(objDrive.SerialNumber)

msgbox strvolumedata


end sub
</script>
</head>

<body onload="main()">

</body>

</html> 
  #4 (permalink)  
Antiguo 17/03/2006, 08:20
Avatar de FiNo  
Fecha de Ingreso: octubre-2004
Ubicación: Costa Rica
Mensajes: 265
Antigüedad: 11 años, 11 meses
Puntos: 1
Buenas, este es con ASP

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set driveObject = fso.GetDrive("C")

Response.Write (driveObject.SerialNumber)

Set driveObject = Nothing
Set fso = Nothing
%>
__________________
3S-CRM
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas (incluyéndote)




La zona horaria es GMT -6. Ahora son las 09:53.