HKEY_LOCAL_MACHINE = &H80000002
Dim AMTSetupStatus
Dim AMTVersion
Dim AssetTag
Dim BIOSVersion
Dim ChassisType
Dim FQDN
Dim HECIversion
Dim LMSversion
Dim Make
Dim Model
Dim ProvisionServerPing
Dim SerialNumber
Dim SystemName
Dim UNSversion
Dim UUID
strComputer = "."
DIM VA(15)
'Create instance of Altiris NSE component and set the header data of the NSE
dim nse
set nse = WScript.CreateObject ("Altiris.AeXNSEvent")
' Please don't modify this GUID. This is the 'Inventory Capture Item'. 
nse.To = "{1592B913-72F3-4C36-91D2-D4EDA21D2F96}"
nse.Priority = 1
'Create Inventory data block. 
'Change the following guid. This is the guid of associated custom inventory dataclass.
dim objDCInstance
set objDCInstance = nse.AddDataClass ("AMTSCAN")
dim ObjDataClass
Set ObjDataClass = nse.AddDataBlock (objDCInstance)

'Get data from registry
KeyPath = "SYSTEM\INTEL\iAMT SCAN DATA"
'Set oReg = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
Set  oReg = GetObject("winmgmts:{impersonationLevel = impersonate}!\\"& strComputer & "\root\default:StdRegProv")
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"AMTSetupStatus",VA(1)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"AMTVersion",VA(2)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"AssetTag",VA(3)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"BIOSVersion",VA(4)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"ChassisType", VA(5)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"FQDN", VA(6)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"HECIVersion", VA(7)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"LMSVersion", VA(8)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"Make", VA(9)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"Model", VA(10)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"ProvisionServerPing", VA(11)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"SerialNumber", VA(12)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"SystemName", VA(13)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"UNSVersion", VA(14)
oReg.GetStringValue HKEY_LOCAL_MACHINE,KeyPath,"UUID", VA(15)

dim objDataRow
set objDataRow = objDataClass.AddRow
for i = 1 to 15
'   Wscript.echo "Loaded: " & VA(i)
   objDataRow.SetField i-1, VA(i)
next
' the wscript.echo commands were used for troubleshooting only
'Wscript.echo "Attempting to send to NS..."
nse.SendQueued
'Wscript.echo "Complete."