#56 HP

[Anonymous]

If you wan't to file a support request from HP, they wan't to have the product ID! This little script takes out that information if it is correctly entered into the BIOS!

dim ProductID ' as string

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select OEMStringarray from Win32_ComputerSystem")
For Each objItem in colItems
for each line in objItem.OEMStringarray
if left(line, 11) = "Product ID:" then ProductID=trim(mid(line, 13, 10))
next
Next