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
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.
Good luck!
Albert.
"spacemancw" <space...@yahoo.com> wrote in message
news:a773b382-8398-4c5b...@m44g2000hsc.googlegroups.com...