Home-Brewed Hardware Inventory

<P>Great article but since the most important part in an inventory is the serial number, is there a way to get the serial number of the PC?<B>--Don</B></P>
<P>If you want the serial number look at the IdentifyingNumber property of Win32_ComputerSystemProduct. Works on most computers built since 2001. Older computers may or may not report their serial number.<B>--Bill Schalck, April 19, 2004</B></P>

Don August 07, 2003

<P>Great code and just when I needed it!</P>

Martin August 14, 2003

<P>When I run the inventory script against my PC, I get this error, which occurs after OSInformation, ComputerSystem, PageFileSetting, and PhysicalMemoryArray have been recorded in the .txt file:</P>
<BR>
---------------------------<BR>
Windows Script Host<BR>
---------------------------<BR>
Script: C:\Documents and <BR> Settings\JeffV\Desktop\Hardware<BR> Inventory\HrdWrInv.vbs<BR>
Line: 154<BR>
Char: 3<BR>
Error: 0x80041001<BR>
Code: 80041001<BR>
Source: (null)<BR>
<BR>
---------------------------<BR>
OK<BR>
---------------------------<BR>
<BR>
<P>The line that errors out is this one in the QueryInstances subroutine:<BR>
<BR>
<DD>For Each objComponent in objClassName</P>

Jeff August 17, 2003

Hi!
Just wanted to make a small remark concerning the code:

<P>First HrdWrInv.vbs, line 93 reads:<BR>
<BR>
If Mid(intVersion,1,3) >= 5.1 Then<BR>
<BR>
This should read:<BR>
<BR>
If Mid(intVersion,1,3) >= "5.1" Then<BR>
<BR>
or the script would not run on my WinXPPro.</P>

<P>Second, in BuildReport.vbs, line 295 reads:<BR>
<BR>
RenameSheets "Sheet" & i,WBName<BR>
<BR>
My Norwegian Office calls these sheets "Ark", and this script didn't run either, until I corrected this.</P>

Thomas Hansen September 11, 2003

<P>This was very helpful in a bind. Code works well. Easy to read and modify!</P>

Scott October 22, 2003

<P>I really enjoyed this article about the hardware inventory. It will probably get lots of use here. I have been looking for this exact code. We've been using a third-party software package for this, but since we've upgraded our security, that package no longer works.</P>
<P>I do have a few questions, though: What code should I put in if I want to collect the username on the Computer Systems tab in the Excel report? What needs to go in the hardware script AND what should I put in the report generator?</P>

<P><B>A note from Ethan: </B>The Computer Systems tab is populated with information from the Win32_ComputerSystem class. In this class, there are two additional properties that will probably provide you with what you're looking for: UserName and PrimaryOwnerName.</P>

<P>In hrdwrInv.vbs, you need to add these two properties to the strProperties variable for Win32_ComputerSystem. You'll see the properties listed on lines 64 - 66. In buildReport.vbs, you need to add column heads for the two new properties. The column heads are specified for Win32_ComputerSystem on lines 49 and 50.</P>


Carl Klima January 22, 2004

This is going to work well for us. I modified a bit to get the UserName and SerialNumber. Now just to make it automatically run on all computers on the domain......

Craig March 25, 2004

<P>I was trying to get the SerialNumber property from the bios and entered the property in Line 133 in HrdWrInv.vbs and added the property on line 97 of the buildReport.vbs. The info is collected in the text file but doesn't show up in the Excel report. Did i omit something?</P>

Jean-Claude May 06, 2004

<P>This is great. I have been reading up on the WMI classes and was trying to pull the network settings (ipaddress/DNS/GW, etc) but it always gives me errors. Any thoughts? I would also like to grab some software info. Is there an easy class that has the SW listed in ADD/remove only? What about hotfix/updates? Thanks for the great script!</P>

Bill Prochazka May 18, 2004

On Windows 2000 Pro i have got thi error:
---------------------------
Windows Script Host
---------------------------
Script: C:\Documents and
Settings\Tommaso\Desktop\HrdWrInv.vbs
Line: 154
Char: 3
Error: 0x80041001
Code: 80041001
Source: (null)

---------------------------
OK
---------------------------

I have already try to update to version 5.6 of scipt engine but i have got it again. What i can do to solve the problem

Tommaso July 05, 2004