WIN32_BIOS
Publicado por Juan (16 intervenciones) el 30/04/2002 13:40:13
HOLA A TODOS, ANDO CON UN PROBLEMITA, NECESITO SACAR EL NUMERO DE SERIE DE LA BIOS Y EN TODOS LADOS DONDE CONSULTO TENGO EL SIGUIENTE VBS, PERO ME DA ERROR AL EJECUTARLO, ALGUIEN PODRIA PROBARLO Y DECIRME CUAL ES EL PROBLEMA. DESDE YA AGRADECIDO Y QUE TENGAN LINDO DIA...
(EL LOS SITIOS QUE ENTRE ME DICE QUE TENGO QUE TENER CORRIENDO WMI)
(EL LOS SITIOS QUE ENTRE ME DICE QUE TENGO QUE TENER CORRIENDO WMI)
1
2
3
4
5
6
7
ComputerName = InputBox("Enter the name of the computer you wish toquery")
winmgmt1 = "winmgmts:{impersonationLevel=impersonate}!//"& ComputerName&""
(La siguiente linea es la que no funciona)
Set SNSet = GetObject( winmgmt1 ).InstancesOf ("Win32_BIOS")
for each SN in SNSet
MsgBox "The serial number for the specified computer is: " & SN.SerialNumber
Next
Valora esta pregunta
0