Obtener número de la bios

Puedes utilizar WMI; por ejemplo:

Dim objWMI, objPlaca
Set objWMI = GetObject("WINMGMTS:")
Set objPlaca = objWMI.InstancesOf("Win32_BaseBoard").Item("Win32_BaseBoard.Tag=""Base Board""")
MsgBox "Fabricante: " & objPlaca.Manufacturer & vbCrLf & "Modelo: " & objPlaca.Product & vbCrLf & "Nº de serie: " & objPlaca.SerialNumber
Set objPlaca = Nothing
Set objWMI = Nothing

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

El número de serie no aparece. Además yo lo necesito sacar
con código ASP no con visual basic, ya que en visual basic
ya lo he conseguido obtener hice una dll pero accediendo a
la dll desde ASP el número de serie no me lo muestra en
cambio si accedo a la dll a través de una aplicación en
visual basic funciona a la perfección.

Un saludo.

Puedes utilizar WMI; por ejemplo:

Dim objWMI, objPlaca
Set objWMI = GetObject("WINMGMTS:")
Set objPlaca = objWMI.InstancesOf

("Win32_BaseBoard").Item("Win32_BaseBoard.Tag=""Base
Board""")

MsgBox "Fabricante: " & objPlaca.Manufacturer &

vbCrLf & "Modelo: " & objPlaca.Product & vbCrLf & "Nº de
serie: " & objPlaca.SerialNumber

Set objPlaca = Nothing
Set objWMI = Nothing

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

.

Hola Roberto,

Son los permisos del usuario, te recomiendo crear un usuario exclusivo como
administrador, subas el componente a COM+ y asignes este usuario a esta
aplicación.

Por lo tanto el usuario que tomará la dll será el administrador (el que
acabas de crear) y podrás hacer lo que necesitas.


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl


"Roberto" escribió en el mensaje
news:06ac01c3de7d$d98eab70$
El número de serie no aparece. Además yo lo necesito sacar
con código ASP no con visual basic, ya que en visual basic
ya lo he conseguido obtener hice una dll pero accediendo a
la dll desde ASP el número de serie no me lo muestra en
cambio si accedo a la dll a través de una aplicación en
visual basic funciona a la perfección.

Un saludo.

Puedes utilizar WMI; por ejemplo:

Dim objWMI, objPlaca
Set objWMI = GetObject("WINMGMTS:")
Set objPlaca = objWMI.InstancesOf

("Win32_BaseBoard").Item("Win32_BaseBoard.Tag=""Base
Board""")

MsgBox "Fabricante: " & objPlaca.Manufacturer &

vbCrLf & "Modelo: " & objPlaca.Product & vbCrLf & "Nº de
serie: " & objPlaca.SerialNumber

Set objPlaca = Nothing
Set objWMI = Nothing

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

.

Hola,

He probado lo que me has dicho y me sigue sin funcionar.
No se realmente lo que pasa pero no funciona cuando accedo
a la dll desde ASP, en cambio accediendo al a dll desde
visual basic funciona correctamente.

¿Sabeís si se puede obtener el número de serie de la bios
desde ASP sin tener que utilizar una dll hecha con el
visual basic?

Muchas gracias por vuestra ayuda.

Saludos.

Hola Roberto,

Son los permisos del usuario, te recomiendo crear un

usuario exclusivo como

administrador, subas el componente a COM+ y asignes este

usuario a esta

aplicación.

Por lo tanto el usuario que tomará la dll será el

administrador (el que

acabas de crear) y podrás hacer lo que necesitas.


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl


"Roberto" escribió en el

mensaje

news:06ac01c3de7d$d98eab70$
El número de serie no aparece. Además yo lo necesito sacar
con código ASP no con visual basic, ya que en visual basic
ya lo he conseguido obtener hice una dll pero accediendo a
la dll desde ASP el número de serie no me lo muestra en
cambio si accedo a la dll a través de una aplicación en
visual basic funciona a la perfección.

Un saludo.

Puedes utilizar WMI; por ejemplo:

Dim objWMI, objPlaca
Set objWMI = GetObject("WINMGMTS:")
Set objPlaca = objWMI.InstancesOf

("Win32_BaseBoard").Item("Win32_BaseBoard.Tag=""Base
Board""")

MsgBox "Fabricante: " & objPlaca.Manufacturer &

vbCrLf & "Modelo: " & objPlaca.Product & vbCrLf & "Nº de
serie: " & objPlaca.SerialNumber

Set objPlaca = Nothing
Set objWMI = Nothing

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

.

.

Hola Roberto,

Y puedes hacer funcionar la DLL desde asp? (sin ejecutar el código, sino un
pequeño ejemplo que devuelva un "Hola Mundo" para chequear el Componente).

Rubén te envió un ejemplo, y funciona perfectamente con VBScript... en ASP
te deben faltar permisos, por eso mismo la idea es cargarlo a un componente
y que realice esto con un usuario administrador.

Te mando un link donde aparece más información de como leer la BIOS.
http://www.microsoft.com/technet/tr...crcm39.asp



Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl


"Roberto" escribió en el mensaje
news:049101c3dea0$adf84b10$
Hola,

He probado lo que me has dicho y me sigue sin funcionar.
No se realmente lo que pasa pero no funciona cuando accedo
a la dll desde ASP, en cambio accediendo al a dll desde
visual basic funciona correctamente.

¿Sabeís si se puede obtener el número de serie de la bios
desde ASP sin tener que utilizar una dll hecha con el
visual basic?

Muchas gracias por vuestra ayuda.

Saludos.

Hola Roberto,

Son los permisos del usuario, te recomiendo crear un

usuario exclusivo como

administrador, subas el componente a COM+ y asignes este

usuario a esta

aplicación.

Por lo tanto el usuario que tomará la dll será el

administrador (el que

acabas de crear) y podrás hacer lo que necesitas.


Saludos,
Jhonny Vargas P. [MS-MVP]
Santiago de Chile
http://www.mvp.cl


"Roberto" escribió en el

mensaje

news:06ac01c3de7d$d98eab70$
El número de serie no aparece. Además yo lo necesito sacar
con código ASP no con visual basic, ya que en visual basic
ya lo he conseguido obtener hice una dll pero accediendo a
la dll desde ASP el número de serie no me lo muestra en
cambio si accedo a la dll a través de una aplicación en
visual basic funciona a la perfección.

Un saludo.

Puedes utilizar WMI; por ejemplo:

Dim objWMI, objPlaca
Set objWMI = GetObject("WINMGMTS:")
Set objPlaca = objWMI.InstancesOf

("Win32_BaseBoard").Item("Win32_BaseBoard.Tag=""Base
Board""")

MsgBox "Fabricante: " & objPlaca.Manufacturer &

vbCrLf & "Modelo: " & objPlaca.Product & vbCrLf & "Nº de
serie: " & objPlaca.SerialNumber

Set objPlaca = Nothing
Set objWMI = Nothing

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

.

.