07/10/2004, 14:26
|
| | | Fecha de Ingreso: abril-2004 Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 21 años, 6 meses Puntos: 4 | |
| 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. |