VBS to get product ID from HP Proliants

[spacemancw]

I can get the serial number from my Dell and HP servers with this

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root
\cimv2")
Set colSMBIOS = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
Wscript.Echo "Serial-Number:" & objSMBIOS.SerialNumber
Next

I want to get the Product ID or Product number on my HP systems
There's a product number that looks like
416561-00
(Not the model number such as ProLiant DL380 G5, I can get the model
number no problem).

For HP warranty web site you have to enter the seial number and
product ID.

Thanx

Roger

[TonyO]

I have found this:

Set objMSInfo = CreateObject("MsPIDinfo.MsPID")
colMSApps = objMSInfo.GetPIDInfo()

For Each strApp in colMSApps
Wscript.Echo strApp
Next

It works, but needs tweaking. I could use some help in that regard. I have
a seperate script to poll the software. I'd like to run both scripts
together, but being new at this, I don't know how and so I have two seperate
VB scripts. It's unfortunate Win32_Product does not allow for the ProductID.

Post by spacemancw
I can get the serial number from my Dell and HP servers with this
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root
\cimv2")
Set colSMBIOS = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
Wscript.Echo "Serial-Number:" & objSMBIOS.SerialNumber
Next
I want to get the Product ID or Product number on my HP systems
There's a product number that looks like
416561-00
(Not the model number such as ProLiant DL380 G5, I can get the model
number no problem).
For HP warranty web site you have to enter the seial number and
product ID.
Thanx
Roger

[Albert Kikkert]

ILO also gives you the info you need.
maybe you can use the HP scripts for ilo to fetch the info.
Help is available from the Smartstart scripting toolkit.

Good luck!

Albert.

Post by spacemancw
I can get the serial number from my Dell and HP servers with this
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root
\cimv2")
Set colSMBIOS = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
Wscript.Echo "Serial-Number:" & objSMBIOS.SerialNumber
Next
I want to get the Product ID or Product number on my HP systems
There's a product number that looks like
416561-00
(Not the model number such as ProLiant DL380 G5, I can get the model
number no problem).
For HP warranty web site you have to enter the seial number and
product ID.
Thanx
Roger

[v***@gmail.com]

Post by spacemancw
I can get the serial number from my Dell and HP servers with this
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root
\cimv2")
Set colSMBIOS = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
Wscript.Echo "Serial-Number:" & objSMBIOS.SerialNumber
Next
I want to get the Product ID or Product number on my HP systems
There's a product number that looks like
416561-00
(Not the model number such as ProLiant DL380 G5, I can get the model
number no problem).
For HP warranty web site you have to enter the seial number and
product ID.
Thanx
Roger

Hi Team

Can you please help below points.

1 How to take Keyboard serial number by VB script.
2.How to take serial number of USB connected device.
3. In company we using Printer which is connected from serial port to onboard serial motherboard. how do get serial number by vb script.