CPU Custom Inventory

Products

• Inventory Solution

Issue/Introduction

This example uses a vbscript to pull CPU data from the Win32_Processor class using a WMI query.

Note there are many attributes available to collect - see the Microsoft article, Win32_Processor class 

Resolution

1. 1. Create a new custom data class that will store the file information for each computer.
      1. Go to Settings>All Settings then Settings>Discovery and Inventory>Inventory Solution>Manage Custom Data Classes.
      2. Click New data class.
      3. Name the data class something appropriate and click OK. Use this exact data class name later in the custom inventory script.
      4. Click Add attribute.
      5. Name the attribute "ComputerName", set Key to "No", and click OK.
      6. Add these attributes the same way: 
         1. Manufacturer
         2. MaxClockSpeed
         3. Name
         4. NumberOfCores
         5. NumberOfLogicalProcessors
         6. Version
         7. InventoryDate
      7. Click Save Changes.
      8. Go to Settings>All Settings>Discovery and Inventory>Manage Custom Data Classes. In the middle panel highlight the custom data class created in step A above and click on the hand icon above (next to the red X). You will see the Data Class Details dialog box pop up. Copy the Table Name and the GUID to a text file.
   2. Create a Custom Inventory Script Task.
      1. Go to Manage>Jobs and Tasks.
      2. Browse the folder drop-down menu to where you would like to add a custom inventory script task.
      3. Right-click on the folder, then select New>Task.
      4. Select the Run Script task.
      5. Name the task appropriately.
      6. Select Script type: VBScript.
      7. Copy and paste the entire VBScript below into the large text box of the script task. Then edit the script to use the custom data class created in step 1-3, and the full path and name of the desired file.

   '=========================================================================================
   '      On Error Resume Next

   'Create instance of Wbem service object and connect to namespace
   strComputer = "."
   Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

   'Get the computer name
   Set wshShell = WScript.CreateObject( "WScript.Shell" )
   strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )

   'Fire WMI Query
   Set objCIMObj = objWMIService.ExecQuery("Select * from Win32_Processor")

   '=========================================================================================

   'Create instance of Altiris NSE component
   dim nse
   set nse = WScript.CreateObject ("Altiris.AeXNSEvent")

   ' Set the header data of the NSE
   ' Please don't modify this GUID
   nse.To = "{1592B913-72F3-4C36-91D2-D4EDA21D2F96}"
   nse.Priority = 1

   'Create Inventory data block. Here assumption is that the data class with below guid is already configured on server
   dim objDCInstance
   set objDCInstance = nse.AddDataClass ("{GUID}") '****Your Custom Data Class GUID, leave brackets

   dim objDataClass
   set objDataClass = nse.AddDataBlock (objDCInstance)

   For each objInfo in objCIMObj

   'Add a new row
   dim objDataRow
   set objDataRow = objDataClass.AddRow
   'Set columns

   objDataRow.SetField 0, CStr(strComputerName)
   objDataRow.SetField 1, objInfo.Manufacturer
   objDataRow.SetField 2, objInfo.MaxClockSpeed
   objDataRow.SetField 3, objInfo.Name
   objDataRow.SetField 4, objInfo.NumberOfCores
   objDataRow.SetField 5, objInfo.NumberOfLogicalProcessors
   objDataRow.SetField 6, objInfo.Version
   objDataRow.SetField 7, cstr(now)
   Next

   nse.Send
   'MsgBox nse.Xml    'Uncomment for testing on local machine