WMI get product key (HP laptop)

[Juvigy]

Hi Guys,

I have converted a WMI vbs script to get the laptop serial number of a laptop.

How can i extend it to get the product number of the laptop as well ?

What i have so far is:

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $host & "\root\cimv2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_SystemEnclosure")

$arrResults = Execute("$objitem.SerialNumber")

On the HP site there is a CMD command that works:

wmic /namespace:\\root\wmi path MS_SystemInformation

It looks like a WMI but i cant get it to work in AutiIt.

[BrewManNH]

This is part of a VBScript that I use to get the computer information from a computer using WMI, if you're looking for the model number this will help.

Set objWMIService = GetObject("winmgmts:" & strIPAddr & "rootCIMV2")
 Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
  For Each objItem In colItems
  strManuf = trim(objItem.Manufacturer)
   If strManuf = "Dell Computer Corporation" then
    strManuf = "Dell Inc."
   end if
      strModel = trim(objItem.Model)
   If strModel = "HP EliteBook 6930p" then
    strModel = "EliteBook 6930p"
   Elseif strModel = "HP Compaq dc7900 Small Form Factor" then
    strModel = "dc7900 SFFactor"
   End If
     Next

[Juvigy]

I am not looking for the model number - i am looking for the "product number" - it is similar to the service tag / serial number.

objItem.SerialNumber

works , but

objItem.ProductNumber

doesnt work. Changing Win32_ComputerSystem to Win32_BIOS or Win32_SystemEnclosure doesnt help.

[BrewManNH]

What is the product number? I'm not familiar with that term in this regard.

[Juvigy]

See this : http://h10025.www1.hp.com/ewfrf-JAVA/Doc/images/c02730919.gif

S/N = Serial Number

P/N = Product number

[UEZ]

Try this:

$system = @ComputerName

$objWMIService = ObjGet("winmgmts:" & $system & "rootWMI")
$colItems = $objWMIService.ExecQuery("SELECT * FROM MS_SystemInformation", "WQL", 0x30)

If IsObj($colItems) Then
    For $objItem in $colItems
        With $objItem
            $SystemProductName = .SystemProductName
            $SystemSKU = .SystemSKU
        EndWith
    Next
    MsgBox(0, "System Info", "System Product Name: " & $SystemProductName & @CRLF & _
                                                 "System SKU: " & $SystemSKU)
EndIf

Or another WMI method:

$system = @ComputerName

$objWMI= ObjGet("winmgmts:{impersonationLevel=impersonate}!" & $system & "rootWMI")
$oItems = $objWMI.InstancesOf("MS_SystemInformation")

For $oTokens In $oItems
    $SystemProductName = $oTokens.SystemProductName
    $SystemSKU = $oTokens.SystemSKU
Next

MsgBox(0, "System Info", "System Product Name: " & $SystemProductName & @CRLF & _
                                             "System SKU: " & $SystemSKU)

Br,

UEZ

Edited May 16, 2012 by UEZ

[Juvigy]

10x UEZ it works. Where can i get more info on

"rootWMI" , "rootcimv2" and the list of properties like .SystemSKU ?

[UEZ]

Sciptomatic is your friend or try the built-in tool wbemtest

Br,

UEZ

Edited May 16, 2012 by UEZ

[Juvigy]

10x again UEZ