'*************************************************************************
' $ScriptName: "GetSqlNativeClientComman" $
'
' Purpose: This script is used to get SQL native client Driver name.
'
' $File: GetSqlNativeClientComman.vbs $
'*************************************************************************
Option Explicit
Function GetSqlDriverName
Dim oAPI1, oReg
Const HKEY_LOCAL_MACHINE = &H80000002
Dim strComputer, strDriverPath, strKeyPath, intValue, strValueName,arrSubKeys,oSubkey,strNewKeyPath,intDotIndex
strComputer = "."
strDriverPath="SQLOLEDB"
Set oReg=GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\ODBC\ODBCINST.INI"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each oSubkey In arrSubKeys
intValue = InStr(oSubkey, "SQL Server Native Client")
if intValue <> 0 Then
strValueName = "Driver"
strNewKeyPath = strKeyPath&"\"&oSubkey
oReg.GetStringValue HKEY_LOCAL_MACHINE, strNewKeyPath, strValueName , strDriverPath
strDriverPath = Mid (strDriverPath, InStrRev(strDriverPath, "\")+1)
intDotIndex = InStr(strDriverPath, ".")
strDriverPath = Left(strDriverPath , intDotIndex-1)
end if
Next
GetSqlDriverName = strDriverPath
End Function
'Copyright (c) Microsoft Corporation. All rights reserved.
'Copyright (c) Microsoft Corporation. All rights reserved.
' Parameters that should be passed to this script
' 0 Source Guid
' 1 Target Guid
' 2 DatabaseServerName
' 3 DatabaseName
' 4 ComputerName
Dim oArgs, idSource, idManagedEntity, databaseServerName, databaseName, ComputerName, oDebugFlag
Dim oAPI, objDiscoveryData, strDriverName
Set oAPI = CreateObject("MOM.ScriptAPI")
Set oArgs = WScript.Arguments
If oArgs.Count < 5 Then
ThrowErrorAndExit "Usage: " & SCRIPTNAME & " <discovery object GUID> <ManagedEntityID GUID> <Database Server Name> <Database Name> <Computer Name> [debug <true | false>]"
End If
If (oArgs.Count = 6) Then
oDebugFlag = CBool(oArgs(5))
Else
oDebugFlag = CBool(false)
End If
Trace "SourceID: " & idSource & " ManagedEntityID: " & idManagedEntity & " Database Server Name: " & databaseServerName & " Database Name: " & databaseName & " Computer Name: " & ComputerName
Set objDiscoveryData = oAPI.CreateDiscoveryData(0, idSource, idManagedEntity)
'Set the connection string
strDriverName = GetSqlDriverName
Dim connectionString
connectionString = "Provider=" & strDriverName & ";Server=" & _
databaseServerName & ";" & _
"Integrated Security=SSPI;Initial Catalog=" & databaseName
GetDBProperties connectionString, objDiscoveryData
Call oAPI.Return(objDiscoveryData)
If Err.Number <> 0 Then ThrowErrorAndExit "Error returning discovery data. code = " & Err.Number
Trace "Exiting normally"
WScript.Quit()
' Creates an object
Function MOMCreateObject(ByVal name)
'create the object
On Error Resume Next
Set MOMCreateObject = CreateObject(name)
If Err.Number <> 0 Then
ThrowErrorAndExit "Unable to create COM object '" & name & "'"
End If
End Function
Function GetDBProperties(ByVal connectionString, ByVal objDiscoveryData)
Dim cnADOConnection
Trace "Creating ADODB Connection"
Set cnADOConnection = CreateObject("ADODB.Connection")
If Err.Number <> 0 Then ThrowErrorAndExit "Unable to create ADODB Connection"
Set oResults = cnADOConnection.Execute("select ManagedTypeViewName from (select ManagedTypeTableName from ManagedType where TypeName = 'Microsoft.SystemCenter.DataWarehouse' ) as MTDW, (select ManagedTypeId from ManagedType where TypeName = 'Microsoft.SystemCenter.DataWarehouse' ) as MTDW_IJ inner join ManagedType as MT on MT.ManagedTypeId = MTDW_IJ.ManagedTypeId",2)
strViewName = oResults(0).Value
Set oResults = cnADOConnection.Execute("select * from " & strViewName,2)
For Each Field in oResults.Fields
strFieldName =Field.Name
If InStr(strFieldName, "MainDatabaseServerName") Then
strServerNameFieldName = strFieldName
End If
If InStr(strFieldName, "MainDatabaseName") Then
strServerDBFieldName = strFieldName
End If
Next
Trace "Query Executed"
Trace "Checking for returned columns"
If IsNull(oResults(strServerNameFieldName).Value) Or IsNull(oResults(strServerDBFieldName).Value) Then
Set oResults = nothing
cnADOConnection.Close
GetDBProperties = SQL_DISCOVERY_ERROR
Trace "Query is not returning data"
ReturnNothing
else
DWDBName = Cstr(Trim(oResults(strServerDBFieldName).Value))
DWDBServerName = Cstr(Trim(oResults(strServerNameFieldName).Value))
DWWatcherName = "$Target/Property[Type='System!System.Entity']/DisplayName$" & " DW Watcher"
Trace "DW Database Name: " & DWDBName & " DW Database Server Name: " & DWDBServerName
If Err.Number <> 0 Then ThrowErrorAndExit "Error adding instance properties. code = " & Err.Number
Call objDiscoveryData.AddInstance(objInstance)
If Err.Number <> 0 Then ThrowErrorAndExit "Error adding discovery data. code = " & Err.Number
Set oResults = nothing
cnADOConnection.Close
GetDBProperties = SQL_DISCOVERY_SUCCESS
End If
End Function
Sub ThrowErrorAndExit(Message)
Err.Clear
Call oAPI.LogScriptEvent(SCRIPTNAME, SCOM_EVENTNUMBER, SCOM_ERROR, Message)
WScript.Quit()
End Sub
Sub Trace(Message)
If (oDebugFlag = true) Then
Call oAPI.LogScriptEvent(SCRIPTNAME, TRACEEVENTNUMBER, SCOM_INFORMATIONAL, Message)
End If
End Sub
Sub ReturnNothing
objDiscoveryData.IsSnapshot = False
Call oAPI.Return(objDiscoveryData)
WScript.Quit()
End Sub
'---------------------------------------------------------------------------
' Retrieves a WMI object from the specified namespace.
'---------------------------------------------------------------------------
Function GetWMIObject(ByVal sNamespace)
dim oWMI
'get the object
on error resume next
set oWMI = GetObject(sNamespace)
ObjError.Save
on error goto 0
'did it work?
if IsEmpty(oWMI) then
'no
strMessageToUse = "Error Number: " & ObjError.number & " Unable to open WMI Namespace '" & sNamespace & "'. Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists."
ThrowErrorAndExit strMessageToUse
end if
set GetWMIObject = oWMI
End Function
'---------------------------------------------------------------------------
' Execute a WMI Query.
'---------------------------------------------------------------------------
Function ExecuteWMIQuery(TargetComputer, strBaseClass, strQuery, strPropertyName)
Dim WbemSrv, WbemObjectSet, objItem
Set WbemSrv = GetWMIObject("winmgmts:{impersonationLevel=impersonate}!\\" & TargetComputer & "\root\" & strBaseClass)
Set WbemObjectSet = WbemSrv.ExecQuery(strQuery)
For Each objItem in WbemObjectSet
ExecuteWMIQuery = objItem.Properties_(strPropertyName).value
Next
End Function
'---------------------------------------------------------------------------
' Error Handling Class
'---------------------------------------------------------------------------
Class Error
Private m_lNumber
Private m_sSource
Private m_sDescription
Private m_sHelpContext
Private m_sHelpFile
Public Sub Save()
m_lNumber = Err.number
m_sSource = Err.Source
m_sDescription = Err.Description
m_sHelpContext = Err.HelpContext
m_sHelpFile = Err.helpfile
End Sub
Public Sub Raise()
Err.Raise m_lNumber, m_sSource, m_sDescription, m_sHelpFile, m_sHelpContext
End Sub
Public Sub Clear()
m_lNumber = 0
m_sSource = ""
m_sDescription = ""
m_sHelpContext = ""
m_sHelpFile = ""
End Sub
Public Default Property Get Number()
Number = m_lNumber
End Property
Public Property Get Source()
Source = m_sSource
End Property
Public Property Get Description()
Description = m_sDescription
End Property
Public Property Get HelpContext()
HelpContext = m_sHelpContext
End Property
Public Property Get HelpFile()
HelpFile = m_sHelpFile
End Property
End Class
Home
DAN 
Show References: