07/10/2004, 15:50
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses Puntos: 4 | |
| 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
%> |