Hola a todos,
dentro de todas las tareas de documentacion, esta muchas veces la de mostrar el serial de los servidores implementados en un proyecto. en mi caso cuando han sido muchisimos y en varios sitios geograficamente dispersos pues es algo que consume tiempo en una tarea muy facil de hacer a traves de scripting.
Buscandoo y buscando me encontre este scriptcito en la red (buscare a quien darle las gracias, por ahora no lo recuerdo y ya llevo con el algun tiempo) y aqui lo posteo para el deleite de los administradores.
me sirvio con maquinas HP y Dell. copie y pegue (sin asteriscos) y nombre la extension del archivo vbs.
*************************************************************************************************
Dim strComputer, objWMIService, colItems, objItem
strComputer = InputBox(«Please enter the computer name or IP Address:»,»Computer Name or IP Address»)
Set objWMIService = GetObject(«winmgmts:\» & strComputer & «rootcimv2»)
Set colItems = objWMIService.ExecQuery(«SELECT * FROM Win32_BIOS»,,48)
For Each objItem In colItems
MsgBox «Server Serial: » & objItem.SerialNumber
Next
MsgBox «que vuelva!»
*************************************************************************************************************************************
Enjoy!!