Script para averiguar el serial de las maquinas en forma remota

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 & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_BIOS",,48)
For Each objItem In colItems
      MsgBox "Server Serial: " & objItem.SerialNumber
Next
 
MsgBox "que vuelva!"

*************************************************************************************************************************************

Enjoy!!