Client Management Suite

Very useful information. Thanks for sharing.

Toca,

Back in the day when you created a new data class the fields started with 0 but I believe they now may start with 1.

Try changing the SetField number from 0 to 1.

Original:  objDataRow.SetField 0, stringfont

New:  objDataRow.SetField 1, stringfont

Did that work?

Without looking to much into it (as I'm new to custom inventory scripts), I can see one thing:

When you use the oReg.GetStringValue method, you reference HKEY_LOCAL_MACHINE but up above you only have HKEY_CURRENT_USER (which has HKLM's value already) declared.

Change HKEY_CURRENT_USER to HKEY_LOCAL_MACHINE on line 5 and see if that helps..

Hope it helps...

P.S. See http://blogs.msdn.com/b/alejacma/archive/2008/04/11/how-to-read-a-registry-key-and-its-values.aspx for more info on using these methods...

Thanks AJ,

This is helpful and definitley put me on the correct path.

I changed the os build vbs for my needs but it's not working.

what i'm trying to do is query the "font" information in the registry and let that populate that into the altiris database.

I think i'm going wrong with the creation of my data class ( screenshot attached)

and with my script ( it fails on line 45)

Can anyone have a look and see if i'm on the right path....

script:

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

'Gather registry key value from machine and posting data to NS using Altiris NSE Component
'===================================================================================================================
'      On Error Resume Next

const HKEY_CURRENT_USER = &H80000002

strComputer = "."
Set oReg=GetObject( _
   "winmgmts:{impersonationLevel=impersonate}!\\" &_
    strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Office\9.0\Excel\Options"
strValueName1 = "Font"
oReg.GetStringValue _
   HKEY_LOCAL_MACHINE,strKeyPath,strValueName1,stringfont

'WScript.Echo "Font: " & stringfont

if isnull(stringfont) then
  stringrequestid = "missing"
end if

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

'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 ("{e401a979-4799-4053-9fbc-e2726d7335b6}")

dim objDataClass
set objDataClass = nse.AddDataBlock (objDCInstance)

'Add a new row
dim objDataRow
set objDataRow = objDataClass.AddRow
'Set columns
objDataRow.SetField 0, stringfont

nse.SendQueued

Thanks for this! Just a quick question, would I have to create a custom table in the SQL DB for this info to be stored in as well?

Have you had a need to collect custom inventory on systems that don't have the Symantec Management Agent installed?  I find it kind of frustrating that you can't use the same custom inventory scripts on agent and agent-less systems.  I was expecting a method for integrating the custom inventory scripts with the agent-less inventory package.  I have not been able to find a viable workaround for this limitation yet.

One of the ncie things in V7 was the move from the "dark art" XML format for Custom Inventory to the more standard VBS.  I've even manged to get the custom inventory DLLs to work inside a fully featured C# application for gathering information from users (then storing it as part of a Custom Inventory class).

Thanks for sharing.