Querying Model Name on Lenovo Computers
(The following content was provided by Richard Braitsch)
If you try to determine the Lenovo computer model in SCCM2007 you will see that Lenovo publishes its 7 digit model number in the "model" attribute instead of the clear text model name you would expect. Eg. instead of "ThinkCentre M58p" you will see "6234A1G". This is not incorrect, but quite cryptic for common daily needs and would require a translation table to associate this number with the corresponding model name.
But there is a simple way of querying the clear text model name in WMI.
Lenovo has tucked it away in the "version" property. Here you see the instance of Win32_ComputerSystemProduct as shown in WBEMTEST:
The following vb-script will deliver the information you are looking for:
' Query Lenovo computer model string
Option Explicit
Dim strComputer, strVendor, strModel ' As String Dim objWMIService, colItems, objItem ' As Object Dim Counter ' As Integer
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_ComputerSystemProduct")
Counter = 0
For Each objItem in colItems
If Counter = 0 Then
strVendor = objItem.Vendor
strModel = objItem.Version
End If
Counter = Counter + 1
Next
Wscript.Echo(strVendor & " " & strModel)
Set objWMIService = NOTHING
Set colItems = NOTHING