Test 2 scripts on Dell / Lenovo laptops or desktops

[mac_shinobi]

Script One :

Dim objWMIService
Dim colItems
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct",,48)
For Each objItem in colItems
msgbox "IdentifyingNumber: " & objItem.IdentifyingNumber & vbcrlf & _
    "Name: " & objItem.Name & vbcrlf & _
    "Vendor: " & objItem.Vendor & vbcrlf & _
    "Version: " & objItem.Version
Next

Script Two :

Dim objWMIService
Dim colItems1, manu, model
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)

For Each Item In colItems1
manu = Item.Manufacturer
model = Item.Model    
Next

msgbox manu & vbcrlf & model

If someone can post back with results of each one ( one from a Lenovo machine and one from a dell machine )

The thing I am interested in finding out is between the two which one uses the numerical model number ie 7514A87 ( for an M58 ) vs which one comes back with the string model ie actual model name ie M58 or D630 etc ??

Basically just trying to refine my script and need to know which way is the better way of getting the information I am after.

[mac_shinobi]

bump - anyone ?

[broc]

ran them on a Dell Latitude E6500 notebook

Script 1 reports

IdentifyingNumber : zzzzzzz <== which is my DELL Service tag ID
Name: Latitude E6500
Vendor: Dell Inc
Version:

Script 2 reports

Dell Inc
Latitude E6500

[Arthur]

According to this, Lenovo puts the model name under 'Version'.

[AngryTechnician]

Arthur is correct.

Output from Dell OptiPlex 960:



Output from Lenovo ThinkPad X131e: