'https://blogs.msdn.microsoft.com/alejacma/2008/04/11/how-to-read-a-registry-key-and-its-values-'vbscript/ Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 'Const REG_SZ = 1 'Const REG_EXPAND_SZ = 2 'Const REG_BINARY = 3 'Const REG_DWORD = 4 'Const REG_MULTI_SZ = 7 ' Chose computer name, registry tree and key path ' strComputer = "." ' Use . for current machine hDefKey = HKEY_Current_User strKeyPath = "Network" ' Connect to registry provider on target machine with current user ' Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") ' Enum the subkeys of the key path we've chosen ' oReg.EnumKey hDefKey, strKeyPath, arrSubKeys For Each strSubkey In arrSubKeys ' Show the subkey ' wscript.echo strSubkey & ":" ' Result is Drive Letter: ' Show its value names and types ' strSubKeyPath = strKeyPath & "\" & strSubkey ' oReg.EnumValues hDefKey, strSubKeyPath, strValueName, strvalue strValueName = "RemotePath" oReg.GetStringValue hDefKey, strSubKeyPath, strValueName , strValue wscript.echo strValue next '=================================================================================================================== '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 ("{e30cf469-1720-4452-b3bc-7248d42a861a}") dim objDataClass set objDataClass = nse.AddDataBlock (objDCInstance) 'Add a new row dim objDataRow set objDataRow = objDataClass.AddRow 'Set columns objDataRow.SetField 0, strSubkey objDataRow.SetField 1, strValue nse.SendQueued