'On Error Resume Next
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strComputer, objRegistry, strKeyPath, strCurrVer
Dim strPatchLvl, strEdition, strSqlPath, strSQLinst
Dim strSQLDataRoot, strTCPPort, strClusterName

strComputer = "."
strKeyPath = "SOFTWARE\Microsoft\Microsoft SQL Server\"
 
Set objRegistry=GetObject("winmgmts:\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\Instance Names\SQL", "MSSQLSERVER", strSQLinst
If IsNull(strSQLinst) Then Wscript.Quit ' MSSQL engine not found.  Die.

objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSQLinst & "\Setup", "PatchLevel", strPatchLvl
If IsNull(strPatchLvl) Then strPatchLvl = 0

objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSQLinst & "\Setup", "Edition", strEdition
If IsNull(strEdition) Then strEdition = 0

objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSQLinst & "\Setup", "SqlPath", strSqlPath
If IsNull(strSqlPath) Then strSqlPath = 0

objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSQLinst & "\Setup", "SQLDataRoot", strSQLDataRoot
If IsNull(strSQLDataRoot) Then strSQLDataRoot = 0

objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSQLinst & "\MSSQLServer\SuperSocketNetLib\Tcp", "TcpPort", strTCPPort
If IsNull(strTCPPort) Then strTCPPort = 0

objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSQLinst & "\MSSQLServer\CurrentVersion", "CurrentVersion", strCurrVer
If IsNull(strCurrVer) Then strCurrVer = 0  

objRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & strSQLinst & "\Cluster", "ClusterName", strClusterName
If IsNull(strClusterName) Then strClusterName = 0

'========================================================================================
' Altiris inventory code
'========================================================================================
'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 ("{4452fdff-3511-4998-b4c8-9c581b9256d9}")
Dim objDataClass
Set objDataClass = nse.AddDataBlock (objDCInstance)

'Add a new row
Dim objDataRow
Set objDataRow = objDataClass.AddRow

'Set columns
objDataRow.SetField 0, strSQLinst
objDataRow.SetField 1, strEdition  
objDataRow.SetField 2, strPatchLvl
objDataRow.SetField 3, strSqlPath
objDataRow.SetField 4, strSQLDataRoot
objDataRow.SetField 5, strTCPPort
objDataRow.SetField 6, strClusterName
objDataRow.SetField 7, strCurrVer  
objDataRow.SetField 8, strClusterName

nse.SendQueued
'========================================================================================
' Altiris inventory code
'========================================================================================

Set objRegistry = Nothing
Set nse = Nothing
Wscript.Quit