Serie Fabrica HDD

objWMI = Getobject("winmgmts:\\")
cCadWMI = "Select * from Win32_PhysicalMedia"
oSistema = objWMI.ExecQuery(cCadWMI)

For Each Disco In oSistema
? "Serie Fabrica :" + Disco.SerialNumber
NEXT
javascript:void(0)