Hay veces en las que necesitamos el  número de serie de nuestro equipo informático para saber si hay algún componente hardware que debe ser reemplazado, comprobar si hay defectos reconocidos por los fabricantes… etc.

La mayoría de los fabricantes incluyen una pegatina o similar con el número de serie del equipo, por ejemplo, en los portátiles es típico que esta aparezca en la base identificando el número como S/N. Si nuestro equipo no dispone de esa etiqueta o no somos capaces de localizarla, podemos usar el siguiente Script (WSH) para entornos Windows.

On Error Resume NextDim System

If Wscript.Arguments.Count>0 then

    sSystem=Wscript.Arguments(0)

End if

pc="localhost"

winmgmt = "winmgmts:{impersonationLevel=impersonate}!//"& pc &""

Set grupoSN = GetObject( winmgmt ).InstancesOf ("Win32_BIOS")

For each SN in grupoSN

    MsgBox "El número de serie es: " & SN.SerialNumber

Next

Crear un nuevo fichero de texto, copiar el código anterior y salvar el fichero cómo “ObtenerSN.vbs”, es importante que la extensión sea “.vbs” y no “.txt” para que podáis ejecutarlo.

Be Sociable, Share!