Code: Select all
HardwareInfo := GetHWInfo()
MsgBox(HardwareInfo["Motherboard"]["Manufacturer"] "`n" HardwareInfo["Motherboard"]["Model"])
MsgBox(HardwareInfo["BIOS"]["Manufacturer"] "`n" HardwareInfo["BIOS"]["Version"])
GetHWInfo()
{
HWInfo := Map()
try
{
Win32_BaseBoard := Map()
for objItem in ComObjGet("winmgmts:").ExecQuery("SELECT * FROM Win32_BaseBoard")
{
Win32_BaseBoard["Manufacturer"] := objItem.Manufacturer
Win32_BaseBoard["Model"] := objItem.Product
}
HWInfo["Motherboard"] := Win32_BaseBoard
}
try
{
Win32_BIOS := Map()
for objItem in ComObjGet("winmgmts:").ExecQuery("SELECT * FROM Win32_BIOS")
{
Win32_BIOS["Manufacturer"] := objItem.Manufacturer
Win32_BIOS["Version"] := objItem.SMBIOSBIOSVersion
}
HWInfo["BIOS"] := Win32_BIOS
}
return HWInfo
}
my v1 code:
Code: Select all
HardwareInfo := GetHWInfo()
MsgBox % HardwareInfo["Motherboard"]["Manufacturer"] "`n" HardwareInfo["Motherboard"]["Model"]
MsgBox % HardwareInfo["BIOS"]["Manufacturer"] "`n" HardwareInfo["BIOS"]["Version"]
GetHWInfo()
{
HWInfo := []
try
{
for objItem in ComObjGet("winmgmts:").ExecQuery("SELECT * FROM Win32_BaseBoard")
{
HWInfo["Motherboard", "Manufacturer"] := objItem.Manufacturer
HWInfo["Motherboard", "Model"] := objItem.Product
}
}
try
{
for objItem in ComObjGet("winmgmts:").ExecQuery("SELECT * FROM Win32_BIOS")
{
HWInfo["BIOS", "Manufacturer"] := objItem.Manufacturer
HWInfo["BIOS", "Version"] := objItem.SMBIOSBIOSVersion
}
}
return HWInfo
}