'Event and Log Messages Constants
'================================
'Start Localization
Const WMI_NO_NAMESPACE_SOURCE = "Unable to open WMI Namespace {Namespace}"
Const WMI_NO_NAMESPACE_DESCRIPTION = "Check to see if the WMI service is enabled and running, and ensure this WMI namespace exists. Error:{ErrorNumber}, {ErrorDescription}."
Const WMI_NO_INSTANCES_SOURCE = "The class name '{ClassName}' returned no instances."
Const WMI_NO_INSTANCES_DESCRIPTION = "Please check to see if this is a valid WMI class name. Error:{ErrorNumber}, {ErrorDescription}."
Const WMI_NO_VALID_INSTANCES_SOURCE = "The class name '{ClassName}' did not return any valid instances."
Const WMI_NO_VALID_INSTANCES_DESCRIPTION = "Please check to see if this is a valid WMI class name. Error:{ErrorNumber}, {ErrorDescription}."
Const WMI_QUERY_NO_RESULTS_SOURCE = "The Query '{Query}' returned an invalid result set."
Const WMI_QUERY_NO_RESULTS_DESCRIPTION = "Please check to see if this is a valid WMI Query. Error:{ErrorNumber}, {ErrorDescription}."
Const WMI_QUERY_NO_VALID_INSTANCES_SOURCE = "The Query '{Query}' did not return any valid instances."
Const WMI_QUERY_NO_VALID_INSTANCES_DESCRIPTION = "Please check to see if this is a valid WMI Query. Error:{ErrorNumber}, {ErrorDescription}."
'End Localization
'Discovery Constants
'===================
Const DISCOVERY_SCOPE_ID = "{9D7099DA-6F9C-44C1-9EF5-BBF19C423BF5}" 'Rule GUID or the PR that runs this script
Const SCRIPT_NAME = "SMS 2003 Service Discovery - Server"
' Global variables
'=================
Dim g_oUtil ' Utility class for MOM events, logging and registry access.
'******************************************************************************
' Replacement string functions for event and log messages
'
'
Function GET_WMI_NO_NAMESPACE_SOURCE(ByVal sNamespace)
GET_WMI_NO_NAMESPACE_SOURCE = Replace(WMI_NO_NAMESPACE_SOURCE, "{Namespace}", sNamespace)
End Function
Function GET_WMI_NO_NAMESPACE_DESCRIPTION(ByVal lErrorNumber, ByVal sErrorDescription)
Dim sResult
sResult = Replace(WMI_NO_NAMESPACE_DESCRIPTION, "{ErrorNumber}", lErrorNumber)
GET_WMI_NO_NAMESPACE_DESCRIPTION = Replace(sResult, "{ErrorDescription}", sErrorDescription)
End Function
Function GET_WMI_NO_INSTANCES_SOURCE(ByVal sClassName)
GET_WMI_NO_INSTANCES_SOURCE = Replace(WMI_NO_INSTANCES_SOURCE, "{ClassName}", sClassName)
End Function
Function GET_WMI_NO_INSTANCES_DESCRIPTION(ByVal lErrorNumber, ByVal sErrorDescription)
Dim sResult
sResult = Replace(WMI_NO_INSTANCES_DESCRIPTION, "{ErrorNumber}", lErrorNumber)
GET_WMI_NO_INSTANCES_DESCRIPTION = Replace(sResult, "{ErrorDescription}", sErrorDescription)
End Function
Function GET_WMI_NO_VALID_INSTANCES_SOURCE(ByVal sClassName)
GET_WMI_NO_VALID_INSTANCES_SOURCE = Replace(WMI_NO_VALID_INSTANCES_SOURCE, "{ClassName}", sClassName)
End Function
Function GET_WMI_NO_VALID_INSTANCES_DESCRIPTION(ByVal lErrorNumber, ByVal sErrorDescription)
Dim sResult
sResult = Replace(WMI_NO_VALID_INSTANCES_DESCRIPTION, "{ErrorNumber}", lErrorNumber)
GET_WMI_NO_VALID_INSTANCES_DESCRIPTION = Replace(sResult, "{ErrorDescription}", sErrorDescription)
End Function
Function GET_WMI_QUERY_NO_RESULTS_SOURCE(ByVal sQuery)
GET_WMI_QUERY_NO_RESULTS_SOURCE = Replace(WMI_QUERY_NO_RESULTS_SOURCE, "{Query}", sQuery)
End Function
Function GET_WMI_QUERY_NO_RESULTS_DESCRIPTION(ByVal lErrorNumber, ByVal sErrorDescription)
Dim sResult
sResult = Replace(WMI_QUERY_NO_RESULTS_DESCRIPTION, "{ErrorNumber}", lErrorNumber)
GET_WMI_QUERY_NO_RESULTS_DESCRIPTION = Replace(sResult, "{ErrorDescription}", sErrorDescription)
End Function
Function GET_WMI_QUERY_NO_VALID_INSTANCES_DESCRIPTION(ByVal lErrorNumber, ByVal sErrorDescription)
Dim sResult
sResult = Replace(WMI_QUERY_NO_VALID_INSTANCES_DESCRIPTION, "{ErrorNumber}", lErrorNumber)
GET_WMI_QUERY_NO_VALID_INSTANCES_DESCRIPTION = Replace(sResult, "{ErrorDescription}", sErrorDescription)
End Function
Function GET_WMI_QUERY_NO_VALID_INSTANCES_SOURCE(ByVal sQuery)
GET_WMI_QUERY_NO_VALID_INSTANCES_SOURCE = Replace(WMI_QUERY_NO_VALID_INSTANCES_SOURCE, "{Query}", sQuery)
End Function
'******************************************************************************
' Name: Main
'
' Purpose: Entry point for program execution.
'
' Parameters: None
'
' Returns: Nothing
'
' Remarks: This routine will manage its error return.
'
Sub Main()
On Error Resume Next
'Initialize utility object and begin tracing.
'============================================
Set g_oUtil = new Util
Call g_oUtil.SetDebugLevel(g_oUtil.DBG_TRACE)
Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, " " + SCRIPT_NAME + " script starting at local time: " + CStr(Time))
'WMI is used by discovery functions in this script so check that it is
'accessible.
'=====================================================================
If True <> IsWMIAccessible() Then
Set g_oUtil = Nothing
Exit Sub
End if
'Perform service discovery.
'==========================
DoServiceDiscovery
Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, " " + SCRIPT_NAME + " script completed at local time: " + CStr(Time))
Set g_oUtil = Nothing
End Sub
'******************************************************************************
' Name: IsWMIAccessible
'
' Purpose: To determine whether the WMI service is running and accessible
'
' Parameters: None
'
' Returns: Boolean, returns True if the WMI service and root\default namespace
' is accessible.
'
' Remarks: If an error is encountered this function will throw an exception
' the caller MUST handle this.
'
Function IsWMIAccessible()
Dim objService
On Error Resume Next
Err.Clear
Set objService = GetObject("winmgmts:\\" + ScriptContext.TargetComputer + "\root\default")
If Err Then
IsWMIAccessible = False
Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "WMI Access Failure, Error #: " + CStr(Err.Number) + ", Description: " + Err.Description)
Else
IsWMIAccessible = True
End If
End Function
'******************************************************************************
' Name: DoServiceDiscovery
'
' Purpose: Performs all discovery service functions.
'
' Parameters: None
'
' Returns: Nothing
'
' Remarks: This routine will manage its error return.
'
Sub DoServiceDiscovery
Dim oDiscData
'Create Discovery Data object.
'=============================
Set oDiscData = ScriptContext.CreateDiscoveryData()
oDiscData.ScopeID = DISCOVERY_SCOPE_ID
'Initialize Discovery Data object for the SMS class.
'===================================================
Initialize oDiscData
'Submit the Discovery Data object.
'=================================
Call g_oUtil.LogMessage(g_oUtil.DBG_TRACE, "Submitting Discovery data packet.")
ScriptContext.Submit oDiscData
End Sub
'******************************************************************************
' Name: Initialize
'
' Purpose: Initializes Discovery Data object for appropriate SMS class(es).
'
' Parameters: ByVal oDiscData Discovery Data oject returned by
' ScriptContext.CreateDiscoveryData().
'
' Returns: Nothing
'
' Remarks: This routine will manage its error return.
'
Sub Initialize(ByVal oDiscData)
Dim oSMSServer
Dim oCollection
Dim oInstance
Dim strSMSComponents
'Initialize SMSServer object for accessing SMS Server data.
'==========================================================
Set oSMSServer = new SMSServer
'Specify the discovery scope for class components (subgroups or functions)
'and properties of the class.
'=========================================================================
'Create and initialize instances of the class based on components and
'and properties present.
'====================================================================
Set oInstance = oCollection.CreateInstance()
If oSMSServer.InComputerGroup_MicrosoftSMS2003ClientAccessPointServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_CLIENT_ACCESS_POINT_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_CLIENT_ACCESS_POINT_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003SiteDatabaseServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_SITE_DATABASE_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_SITE_DATABASE_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003DistributionPointServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_DISTRIBUTION_POINT_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_DISTRIBUTION_POINT_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003ManagementPointServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_MANAGEMENT_POINT_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_MANAGEMENT_POINT_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003Providers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_PROVIDER_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_PROVIDER_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003ReportingPointServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_REPORTING_POINT_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_REPORTING_POINT_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003SenderServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_SENDER_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_SENDER_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_SERVER_LOCATOR_POINT_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_SERVER_LOCATOR_POINT_COMPONENT_ID
End If
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003SiteServers() Then
If IsEmpty(strSMSComponents) Then
strSMSComponents = SMS_SERVER_SITE_SERVER_COMPONENT_ID
Else
strSMSComponents = strSMSComponents & ", " & SMS_SERVER_SITE_SERVER_COMPONENT_ID
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003CentralSiteServers() Then
oInstance.AddProperty SMS_SERVER_SHAPE_ANNOTATION_1_ATTRIBUTE_ID, SMS_SERVER_SHAPE_ANNOTATION_1_CENTRAL_SITE
ElseIf oSMSServer.InComputerGroup_MicrosoftSMS2003PrimarySiteServers() Then
oInstance.AddProperty SMS_SERVER_SHAPE_ANNOTATION_1_ATTRIBUTE_ID, SMS_SERVER_SHAPE_ANNOTATION_1_PRIMARY_SITE
ElseIf oSMSServer.InComputerGroup_MicrosoftSMS2003SecondarySiteServers() Then
oInstance.AddProperty SMS_SERVER_SHAPE_ANNOTATION_1_ATTRIBUTE_ID, SMS_SERVER_SHAPE_ANNOTATION_1_SECONDARY_SITE
ElseIf oSMSServer.InComputerGroup_MicrosoftSMS2003ClientAccessPointServers() Or _
oSMSServer.InComputerGroup_MicrosoftSMS2003DistributionPointServers() Or _
oSMSServer.InComputerGroup_MicrosoftSMS2003ReportingPointServers() Or _
oSMSServer.InComputerGroup_MicrosoftSMS2003SenderServers() Or _
oSMSServer.InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers() Then
oInstance.AddProperty SMS_SERVER_SHAPE_ANNOTATION_1_ATTRIBUTE_ID, SMS_SERVER_SHAPE_ANNOTATION_1_SITE_SYSTEM
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003ManagementPointServers() Then
oInstance.AddProperty SMS_SERVER_SHAPE_ANNOTATION_2_ATTRIBUTE_ID, SMS_SERVER_SHAPE_ANNOTATION_2_MANAGEMENT_POINT
End If
If oSMSServer.InComputerGroup_MicrosoftSMS2003SiteDatabaseServers() Then
oInstance.AddProperty SMS_SERVER_SHAPE_ANNOTATION_3_ATTRIBUTE_ID, SMS_SERVER_SHAPE_ANNOTATION_3_SITE_DATABASE
End If
'==========================================================================
' Class: SMSServer
' Description: Provides key property information about an SMS Server.
'==========================================================================
Class SMSServer
'---------------
' Properties and Constants (Initialized on constructor due to VBS behavior)
'---------------
Public SMS2003_MIN_VERSION
'---------------
' Methods
'---------------
'=============
' Method: Class_Initialize
' Description: This is the constructor
' Parameters:
'=============
Private Sub Class_Initialize()
SMS2003_MIN_VERSION = "2.5.0000.0000"
End Sub
'=============
' Method: Class_Terminate
' Description: This is the destructor
' Parameters:
'=============
Private Sub Class_Terminate()
End Sub
'=============
' Method: GetSMSVersion
'
' Description: Get the SMS Version from the registry.
'
' Parameters: None
'
' Returns: A string if successful otherwise empty.
'=============
Public Function GetSMSVersion()
If IsEmpty(strVersion) Then
strVersion = AttributeValue_MicrosoftSMS2003SiteServerVersionNumber()
End If
GetSMSVersion = strVersion
End Function
'=============
' Method: GetSMSSiteCode
'
' Description: Get the SMS Site Code from the registry.
'
' Parameters: None
'
' Returns: A string if successful otherwise empty.
'=============
Public Function GetSMSSiteCode()
If IsEmpty(strSiteCode) Then
strSiteCode = AttributeValue_MicrosoftSMS2003SiteCode()
End If
GetSMSSiteCode = strSiteCode
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003CentralSiteServers
'
' Description: "Microsoft SMS 2003 Central Site Servers" computer
' group. SMS 2003 site servers that are central site
' servers.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003CentralSiteServers()
If AttributeValue_MicrosoftSMS2003CentralSiteServer() = 1 And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003CentralSiteServers = True
Else
InComputerGroup_MicrosoftSMS2003CentralSiteServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003ClientAccessPointServers
'
' Description: "Microsoft SMS 2003 Client Access Point Servers"
' computer group. SMS 2003 site servers or site systems
' that are Client Access Points.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003ClientAccessPointServers()
If AttributeValue_MicrosoftSMS2003ExecutiveService() And _
AttributeValue_MicrosoftSMS2003InboxManagerAssistant() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003ClientAccessPointServers = True
Else
InComputerGroup_MicrosoftSMS2003ClientAccessPointServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003ComponentServersbasedonSMSExecutive
'
' Description: "Microsoft SMS 2003 Component Servers based on
' SMS Executive" computer group. SMS 2003 site servers
' or site systems running the SMS Executive service.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003ComponentServersbasedonSMSExecutive()
If AttributeValue_MicrosoftSMS2003ExecutiveService() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003ComponentServersbasedonSMSExecutive = True
Else
InComputerGroup_MicrosoftSMS2003ComponentServersbasedonSMSExecutive = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003DistributionPointServers
'
' Description: "Microsoft SMS 2003 Distribution Point Servers"
' computer group. SMS 2003 site server or site systems
' that are Distribution Point servers.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003DistributionPointServers()
If AttributeValue_MicrosoftSMS2003DistributionPoint() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003DistributionPointServers = True
Else
InComputerGroup_MicrosoftSMS2003DistributionPointServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003ManagementPointServers
'
' Description: "Microsoft SMS 2003 Management Point Servers" computer
' group. SMS 2003 site servers or site systems that are
' Management Points.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003ManagementPointServers()
If AttributeValue_MicrosoftSMS2003AgentHostService() And _
AttributeValue_MicrosoftSMS2003ExecutiveService() And _
AttributeValue_MicrosoftSMS2003ManagementPointControlManager() And _
AttributeValue_MicrosoftSMS2003ManagementPointFileDispatchManager() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003ManagementPointServers = True
Else
InComputerGroup_MicrosoftSMS2003ManagementPointServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003PrimarySiteServers
'
' Description: "Microsoft SMS 2003 Primary Site Servers" computer
' group. SMS 2003 site servers that are primary site
' servers.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003PrimarySiteServers()
If AttributeValue_MicrosoftSMS2003SiteServerType() = 1 And _
AttributeValue_MicrosoftSMS2003ExecutiveService() And _
AttributeValue_MicrosoftSMS2003SiteServerVersionNumber() > SMS2003_MIN_VERSION And _
Len(AttributeValue_MicrosoftSMS2003SiteCode()) = 3 Then
InComputerGroup_MicrosoftSMS2003PrimarySiteServers = True
Else
InComputerGroup_MicrosoftSMS2003PrimarySiteServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003Providers
'
' Description: "Microsoft SMS 2003 Providers" computer group.
' SMS 2003 site servers or site database servers that
' are SMS Providers.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003Providers()
If AttributeValue_MicrosoftSMS2003Provider() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003Providers = True
Else
InComputerGroup_MicrosoftSMS2003Providers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003ReportingPointServers
'
' Description: "Microsoft SMS 2003 Reporting Point Servers" computer
' group. SMS 2003 site server or site systems that are
' Reporting Points.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003ReportingPointServers()
If AttributeValue_MicrosoftSMS2003ReportingPointService() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003ReportingPointServers = True
Else
InComputerGroup_MicrosoftSMS2003ReportingPointServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003SecondarySiteServers
'
' Description: "Microsoft SMS 2003 Secondary Site Servers" computer
' group. SMS 2003 site servers that are secondary site
' servers.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003SecondarySiteServers()
If AttributeValue_MicrosoftSMS2003SiteServerType() = 2 And _
AttributeValue_MicrosoftSMS2003ExecutiveService() And _
AttributeValue_MicrosoftSMS2003SiteServerVersionNumber() > SMS2003_MIN_VERSION And _
Len(AttributeValue_MicrosoftSMS2003SiteCode()) = 3 Then
InComputerGroup_MicrosoftSMS2003SecondarySiteServers = True
Else
InComputerGroup_MicrosoftSMS2003SecondarySiteServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003SenderServers
'
' Description: "Microsoft SMS 2003 Sender Servers" computer group.
' SMS 2003 site servers or site systems that are Client
' Access Points.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003SenderServers()
If AttributeValue_MicrosoftSMS2003ExecutiveService() And _
AttributeValue_MicrosoftSMS2003LANSender() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003SenderServers = True
Else
InComputerGroup_MicrosoftSMS2003SenderServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers
'
' Description: "Microsoft SMS 2003 Server Locator Point Servers" computer
' group. SMS 2003 site server or site systems that are
' Reporting Points.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers()
If AttributeValue_MicrosoftSMS2003ServerLocatorPointService() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers = True
Else
InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003SiteDatabaseServers
'
' Description: "Microsoft SMS 2003 Site Database Servers" computer
' group. SMS 2003 site server or site systems that are
' Site Database Servers.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003SiteDatabaseServers()
If AttributeValue_MicrosoftSMS2003SQLServer() And _
AttributeValue_MicrosoftSMS2003HighestVersionNumber() > SMS2003_MIN_VERSION Then
InComputerGroup_MicrosoftSMS2003SiteDatabaseServers = True
Else
InComputerGroup_MicrosoftSMS2003SiteDatabaseServers = False
End If
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003ComponentServersbasedonIIS
'
' Description: "Microsoft SMS 2003 Component Servers based on IIS"
' computer group. SMS 2003 site servers or site systems
' running IIS services.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003ComponentServersbasedonIIS()
InComputerGroup_MicrosoftSMS2003ComponentServersbasedonIIS = _
InComputerGroup_MicrosoftSMS2003ManagementPointServers() Or _
InComputerGroup_MicrosoftSMS2003ReportingPointServers() Or _
InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers()
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003Servers
'
' Description: "Microsoft SMS 2003 Servers" computer group.
' All qualifying (see group name) servers in the
' hierarchy (not just the site).
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003Servers()
InComputerGroup_MicrosoftSMS2003Servers = _
InComputerGroup_MicrosoftSMS2003ComponentServersbasedonSMSExecutive() Or _
InComputerGroup_MicrosoftSMS2003SiteDatabaseServers() Or _
InComputerGroup_MicrosoftSMS2003Providers() Or _
InComputerGroup_MicrosoftSMS2003DistributionPointServers() Or _
InComputerGroup_MicrosoftSMS2003ReportingPointServers() Or _
InComputerGroup_MicrosoftSMS2003ServerLocatorPointServers()
End Function
'=============
' Method: InComputerGroup_MicrosoftSMS2003SiteServers
'
' Description: "Microsoft SMS 2003 Site Servers" computer group.
' SMS 2003 site servers that are primary or secondary
' site servers.
'
' Parameters: None
'
' Returns: True if this server is in the computer group else false.
'=============
Public Function InComputerGroup_MicrosoftSMS2003SiteServers()
InComputerGroup_MicrosoftSMS2003SiteServers = _
InComputerGroup_MicrosoftSMS2003PrimarySiteServers() Or _
InComputerGroup_MicrosoftSMS2003SecondarySiteServers()
End Function
'=============
' Method: AttributeValue_MicrosoftSMS2003AgentHostService
'
' Description: "Microsoft SMS 2003 Agent Host Service" computer
' attribute. Checks for installation of SMS Agent Host
' service.
'
' Parameters: None
'
' Returns: True if registry key string value
' SYSTEM\CurrentControlSet\Services\CcmExec\DisplayName
' exists.
'=============
Public Function AttributeValue_MicrosoftSMS2003AgentHostService()
'=============
' Method: AttributeValue_MicrosoftSMS2003DistributionPoint
'
' Description: "Microsoft SMS 2003 Distribution Point" computer
' attribute. Checks for installation of SMS Distribution
' Point.
'
' Parameters: None
'
' Returns: True if registry key SOFTWARE\Microsoft\SMS\Operations
' Management\SMS Server Role\SMS Distribution Point exists.
'=============
Public Function AttributeValue_MicrosoftSMS2003DistributionPoint()
'=============
' Method: AttributeValue_MicrosoftSMS2003ManagementPointControlManager
'
' Description: "Microsoft SMS 2003 Management Point Control Manager"
' computer attribute. Checks for the installation of
' SMS Management Point Control Manager.
'
' Parameters: None
'
' Returns: True if registry key SOFTWARE\Microsoft\SMS\COMPONENTS\
' SMS_EXECUTIVE\Threads\SMS_MP_CONTROL_MANAGER exists.
'=============
Public Function AttributeValue_MicrosoftSMS2003ManagementPointControlManager()
'=============
' Method: AttributeValue_MicrosoftSMS2003HighestVersionNumber
'
' Description: "Microsoft SMS 2003 Highest Version Number" computer
' attribute. A string containing the Operations Management
' version number for an SMS Server, the highest SMS Server
' component version.
'
' Parameters: None
'
' Returns: Registry key string value SOFTWARE\Microsoft\SMS\
' Operations Management\Version
'=============
Public Function AttributeValue_MicrosoftSMS2003HighestVersionNumber()
'=============
' Method: AttributeValue_MicrosoftSMS2003CentralSiteServer
'
' Description: "Microsoft SMS 2003 Central Site Server" computer
' attribute. A DWORD value indicating if an SMS Site
' Server is a Central Site Server.
'
' Parameters: None
'
' Returns: Registry key DWORD value SOFTWARE\Microsoft\SMS\
' Operations Management\SMS Server Role\SMS Site Server\
' Central Site
'=============
Public Function AttributeValue_MicrosoftSMS2003CentralSiteServer()
'=============
' Method: AttributeValue_MicrosoftSMS2003ParentSiteCode
'
' Description: "Microsoft SMS 2003 Parent Site Code" computer
' attribute. A string containing the parent site code
' for an SMS Site Server. This value is empty on a
' Central Site Server.
'
' Parameters: None
'
' Returns: Registry key string value SOFTWARE\Microsoft\SMS\
' Identification\Parent Site Code
'=============
Public Function AttributeValue_MicrosoftSMS2003ParentSiteCode()
'=============
' Method: AttributeValue_MicrosoftSMS2003SiteCode
'
' Description: "Microsoft SMS 2003 Site Code" computer attribute.
' A string containing the site code for an SMS Site
' Server.
'
' Parameters: None
'
' Returns: Registry key string value SOFTWARE\Microsoft\SMS\
' Identification\Site Code
'=============
Public Function AttributeValue_MicrosoftSMS2003SiteCode()
'=============
' Method: AttributeValue_MicrosoftSMS2003ServerLocatorPointService
'
' Description: "Microsoft SMS 2003 Server Locator Point Service"
' computer attribute. Checks for installation of
' SMS Server Locator Point service.
'
' Parameters: None
'
' Returns: True if registry key string value
' SYSTEM\CurrentControlSet\Services\SMS_SERVER_LOCATOR_POINT\
' DisplayName exists.
'=============
Public Function AttributeValue_MicrosoftSMS2003ServerLocatorPointService()
'=============
' Method: AttributeValue_MicrosoftSMS2003SiteServerType
'
' Description: "Microsoft SMS 2003 Site Server Type" computer
' attribute. A DWORD value indicating the type of
' SMS Site Server.
'
' Parameters: None
'
' Returns: Registry key DWORD value SOFTWARE\Microsoft\SMS\
' Setup\Type
'=============
Public Function AttributeValue_MicrosoftSMS2003SiteServerType()
'=============
' Method: AttributeValue_MicrosoftSMS2003SiteServerVersionNumber
'
' Description: "Microsoft SMS 2003 Site Server Version Number" computer
' attribute. A string containing the full version number
' for an SMS Server.
'
' Parameters: None
'
' Returns: Registry key string value SOFTWARE\Microsoft\SMS\Setup\
' Full Version
'=============
Public Function AttributeValue_MicrosoftSMS2003SiteServerVersionNumber()
'==========================================================================
' Class: Util
' Description: Wrapper around WMI.
'==========================================================================
Class Util
'---------------
' Constants (Initialized on constructor due to VBS behavior)
'---------------
'Used to indicate to LogMessage when/how to print the message.
Public DBG_NONE
Public DBG_ERROR
Public DBG_WARNING
Public DBG_TRACE
'Internal Debug Level
Private m_nDebugLevel
'Registry hive constants
Public HKEY_CLASSES_ROOT
Public HKEY_CURRENT_USER
Public HKEY_LOCAL_MACHINE
Public HKEY_USERS
Public HKEY_CURRENT_CONFIG
Public HKEY_DYN_CONFIG
'Registry access permissions
Public KEY_QUERY_VALUE
Public KEY_SET_VALUE
Public KEY_CREATE_SUB_KEY
Public KEY_ENUMERATE_SUB_KEYS
Public KEY_NOTIFY
Public KEY_CREATE_LINK
Public DELETE
Public READ_CONTROL
Public WRITE_DAC
Public WRITE_OWNER
'Registry path and key name constants
Public REG_PATH_SERVICES
Public REG_PATH_SERVICES_BASE
Public REG_PATH_SMS
Public REG_PATH_SMS_BASE
Public REG_PATH_SMS_CLIENT
Public REG_PATH_SMS_SERVER
Public REG_PATH_SMS_SERVER_OPMGMT_SMS_SERVER_ROLE
Public REG_PATH_SMS_SERVER_OPMGMT_SMS_SERVER_ROLE_BASE
Public REG_PATH_SMS_SERVER_COMPONENTS
Public REG_PATH_SMS_SERVER_COMPONENTS_BASE
Public REG_PATH_SMS_SERVER_SMSEXEC_COMP_BASE
Public REG_PATH_SMS_SERVER_PROVIDERS
Public REG_PATH_SMS_SERVER_PROVIDERS_BASE
Public REG_KEY_SERVICES_CCMEXEC
Public REG_KEY_SERVICES_SMS_EXECUTIVE
Public REG_KEY_SERVICES_SMS_REPORTING_POINT
Public REG_KEY_SERVICES_SMS_SERVER_LOCATOR_POINT
Public REG_KEY_SMS_SERVER_IDENTIFICATION
Public REG_KEY_SMS_SERVER_OPERATIONS_MANAGEMENT
Public REG_KEY_SMS_SERVER_SETUP
Public REG_KEY_SMS_SERVER_OPMGMT_DISTRIBUTION_POINT
Public REG_KEY_SMS_SERVER_OPMGMT_SITE_SERVER
Public REG_KEY_SMS_SERVER_OPMGMT_SQL_SERVER
Public REG_KEY_SMS_SERVER_SMSEXEC_INBOX_MANAGER_ASSISTANT
Public REG_KEY_SMS_SERVER_SMSEXEC_SMS_LAN_SENDER
Public REG_KEY_SMS_SERVER_SMSEXEC_SMS_MP_CONTROL_MANAGER
Public REG_KEY_SMS_SERVER_SMSEXEC_SMS_MP_FILE_DISPATCH_MANAGER
Public REG_KEY_SMS_SERVER_PROVIDERS
'Registry key value name constants
Public REG_VALUE_SERVICES_DISPLAY_NAME
Public REG_VALUE_SMS_CLIENT_VERSION
Public REG_VALUE_SMS_CLIENT_SITE_CODE
Public REG_VALUE_SMS_SERVER_VERSION
Public REG_VALUE_SMS_SERVER_FULL_VERSION
Public REG_VALUE_SMS_SERVER_SITE_CODE
Public REG_VALUE_SMS_SERVER_PARENT_SITE_CODE
Public REG_VALUE_SMS_SERVER_CENTRAL_SITE
Public REG_VALUE_SMS_SERVER_BINARY_DIRECTORY
Public REG_VALUE_SMS_SERVER_TYPE
'---------------
' Methods
'---------------
'=============
' Method: Class_Initialize
' Description: This is the constructor
' Parameters:
'=============
Private Sub Class_Initialize()
'=============
' Method: Class_Terminate
' Description: This is the destructor
' Parameters:
'=============
Private Sub Class_Terminate()
End Sub
'=============
' Method: SetDebugLevel
' Description: To change the debugging output level of information
' generated by this utility.
' Parameters:
' nLevel - Level, either DBG_NONE, DBG_TRACE,
' DBG_WARNING or DBG_ERROR
'=============
Public Sub SetDebugLevel(ByVal nLevel)
m_nDebugLevel = nLevel
End Sub
'=============
' Method: LogMessage
' Description: Log a debug message to ScriptContext
' Parameters:
' nLevel - Debug level for the message that we're logging.
' strMessage - The message to write to the trace.
'=============
Public Sub LogMessage(ByVal nLevel, ByVal strMessage)
If (nLevel <= m_nDebugLevel) Then
If (nLevel = DBG_ERROR) Then
ScriptContext.Echo "[Error]: " + strMessage
ElseIf (nLevel = DBG_WARNING) Then
ScriptContext.Echo "[Warning]: " + strMessage
ElseIf (nLevel = DBG_TRACE) Then
ScriptContext.Echo "[Trace]:" + strMessage
End If
End If
End Sub
'=============
' Method: ReadRegistryStringValue
' Description: Used to read strings from the registry
' Parameters:
' lHive - Registry hive or root i.e. HKEY_LOCAL_MACHINE
' strKeyPath - Key path for the Registry key to read
' (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
' strValueName - Name of the registry value to read (like "SoftwareType")
'
' Returns:
' The value of the registry key specified. "Nothing" if it fails.
' Callee needs to handle null value return.
'=============
Public Function ReadRegistryStringValue(ByVal lHive, ByVal strKeyPath, ByVal strValueName)
'Read from value from registry
if oReg.GetStringValue(lHive, strKeyPath, strValueName, strValueData) = 0 Then
Call LogMessage(DBG_TRACE, "Value of Registry Key: " + strKeyPath + "\" + strValueName + " = " + strValueData)
ReadRegistryStringValue = strValueData
Else
Call LogMessage(DBG_ERROR, "Reading Registry Key: " + strKeyPath + "\" + strValueName + " Failed!" )
ReadRegistryStringValue = Empty
End If
Set oReg = Nothing
End Function
'=============
' Method: ReadRegistryDWORDValue
' Description: Used to read DWORDs from the registry
' Parameters:
' lHive - Registry hive or root i.e. HKEY_LOCAL_MACHINE
' strKeyPath - Key path for the Registry key to read
' (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
' strValueName - Name of the registry value to read (like "SoftwareType")
'
' Returns:
' The value of the registry key specified. "Nothing" if it fails.
' Callee needs to handle null value return.
'=============
Public Function ReadRegistryDWORDValue(ByVal lHive, ByVal strKeyPath, ByVal strValueName)
'Read value from registry
if oReg.GetDWORDValue(lHive, strKeyPath, strValueName, lValueData) = 0 Then
Call LogMessage(DBG_TRACE, "Value of Registry Key: " + strKeyPath + "\" + strValueName + " = " & lValueData)
ReadRegistryDWORDValue = lValueData
Else
Call LogMessage(DBG_ERROR, "Reading Registry Key: " + strKeyPath + "\" + strValueName + " Failed!" )
ReadRegistryDWORDValue = Empty
End If
Set oReg = Nothing
End Function
'=============
' Method: EnumRegistryKeys
' Description: Used to enumerate registry keys under a given path
' Parameters:
' lHive - Registry hive or root i.e. HKEY_LOCAL_MACHINE
' strKeyPath - Key path for the Registry key to read
' (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
' Returns:
' The list of registry keys found under the path. "null" if the list is empty
'=============
Public Function EnumRegistryKeys(ByVal lHive, ByVal strKeyPath)
'Enumerate keys in registry
if oReg.EnumKey(lHive, strKeyPath, arrKeys) = 0 Then
Call LogMessage(DBG_TRACE, "Found [" + arrKeys(0) + "] key in path : " + strKeyPath )
EnumRegistryKeys = arrKeys
Else
Call LogMessage(DBG_ERROR, "Error enumerating Registry Keys under path : " + strKeyPath )
End If
Set oReg = Nothing
End Function
'=============
' Method: CheckRegistryKeyAccess
' Description: Used to check permissions access to a registry key
' Parameters:
' lHive - Registry hive or root i.e. HKEY_LOCAL_MACHINE
' strKeyPath - Key path for the Registry key to check access
' (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
' lAccess - required permissions i.e. KEY_QUERY_VALUE + KEY_SET_VALUE
' Returns:
' True if the specified permissions are present on the registry key else false.
'=============
Public Function CheckRegistryKeyAccess(ByVal lHive, ByVal strKeyPath, ByVal lAccess)
'Check access to the specified registry key
if oReg.CheckAccess(lHive, strKeyPath, lAccess, bGranted) = 0 Then
Call LogMessage(DBG_TRACE, "Required access present on registry key : " + strKeyPath )
CheckRegistryKeyAccess = bGranted
Else
Call LogMessage(DBG_ERROR, "Error checking access on registry keys : " + strKeyPath )
CheckRegistryKeyAccess = False
End If
Set oReg = Nothing
End Function
'=============
' Method: CheckRegistryKeyExists
' Description: Used to check existence of a registry key
' Parameters:
' lHive - Registry hive or root i.e. HKEY_LOCAL_MACHINE
' strKeyPath - Key path for the Registry key to check access
' (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
' Returns:
' True if the registry key exists else false.
'=============
Public Function CheckRegistryKeyExists(ByVal lHive, ByVal strKeyPath)
'=============
' Method: CheckRegistryKeyStringValueExists
' Description: Used to check existence of a registry key string value
' Parameters:
' lHive - Registry hive or root i.e. HKEY_LOCAL_MACHINE
' strKeyPath - Key path for the Registry key to check access
' (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
' Returns:
' True if the string value exists else false.
'=============
Public Function CheckRegistryKeyStringValueExists(ByVal lHive, ByVal strKeyPath, ByVal strValueName)
If IsEmpty(strValue) Then
CheckRegistryKeyStringValueExists = False
Else
CheckRegistryKeyStringValueExists = True
End If
End Function
'=============
' Method: CheckRegistryKeyDWORDValueExists
' Description: Used to check existence of a registry key DWORD value
' Parameters:
' lHive - Registry hive or root i.e. HKEY_LOCAL_MACHINE
' strKeyPath - Key path for the Registry key to check access
' (like "SOFTWARE\Microsoft\WindowsNT\CurrentVersion")
' Returns:
' True if the DWORD value exists else false.
'=============
Public Function CheckRegistryKeyDWORDValueExists(ByVal lHive, ByVal strKeyPath, ByVal strValueName)
If IsEmpty(lValue) Then
CheckRegistryKeyDWORDValueExists = False
Else
CheckRegistryKeyDWORDValueExists = True
End If
End Function
End Class
'=============
' Method: WMIGetObject
' Description: Returns an object of type SWbemObjectSet
' Parameters:
' sNamespace - A WMI Namespace (ex. winmgmts:\\COMPUTERNAME\ROOT\cimv2).
'=============
Function WMIGetObject(sNamespace)
Dim oWMI
Dim nErrNumber, sErrDescription
On Error Resume Next
Set oWMI = GetObject(sNamespace)
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If IsEmpty(oWMI) Or nErrNumber <> 0 Then
ScriptContext.Echo "Unable to open WMI Namespace " & sNamespace
Err.Raise 9100, GET_WMI_NO_NAMESPACE_SOURCE(sNamespace), GET_WMI_NO_NAMESPACE_DESCRIPTION(nErrNumber, sErrDescription)
End If
Set WMIGetObject = oWMI
Set oWMI = Nothing
End Function
'=============
' Method: WMIGetInstance
' Description: Returns an object of type SWbemObjectSet
' Parameters:
' sNamespace - A WMI Namespace (ex. winmgmts:\\COMPUTERNAME\ROOT\cimv2).
' sInstance - A WMI Namespace Instance (ex. Win32_OperatingSystem)
'=============
Function WMIGetInstance(sNamespace, sInstance)
Dim oWMI, oInstance
Dim nErrNumber, sErrDescription
On Error Resume Next
Set oWMI = GetObject(sNamespace)
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If IsEmpty(oWMI) Or nErrNumber <> 0 Then
ScriptContext.Echo "Unable to open WMI Namespace " & sNamespace
Err.Raise 9100, GET_WMI_NO_NAMESPACE_SOURCE(sNamespace), GET_WMI_NO_NAMESPACE_DESCRIPTION(nErrNumber, sErrDescription)
End If
On Error Resume Next
Set oInstance = oWMI.InstancesOf(sInstance)
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If IsEmpty(oInstance) Or nErrNumber <> 0 Then
ScriptContext.Echo "The class name '" & sInstance & "' returned no instances. Error:" & nErrNumber & ", " & sErrDescription & "."
Err.Raise 9100, GET_WMI_NO_INSTANCES_SOURCE(sInstance), GET_WMI_NO_INSTANCES_DESCRIPTION(nErrNumber, sErrDescription)
End If
'Determine if we queried a valid WMI class - Count will return 0 or empty
On Error Resume Next
Dim nInstanceCount
nInstanceCount = oInstance.Count
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If nErrNumber <> 0 Then
ScriptContext.Echo "The class name '" & sInstance & "' did not return any valid instances. Error:" & nErrNumber & ", " & sErrDescription & "."
Err.Raise 9100, GET_WMI_NO_VALID_INSTANCES_SOURCE(sInstance), GET_WMI_NO_VALID_INSTANCES_DESCRIPTION(nErrNumber, sErrDescription)
End If
Set WMIGetInstance = oInstance
Set oInstance = Nothing
Set oWMI = Nothing
End Function
'=============
' Method: WMIExecQuery
' Description: Returns an object of type SWbemObjectSet
' Parameters:
' sNamespace - A WMI Namespace (ex. winmgmts:\\COMPUTERNAME\ROOT\cimv2).
' sQuery - A SQL Query (ex. SELECT * FROM Win32_OperatingSystem)
'=============
Function WMIExecQuery(sNamespace, sQuery)
Dim oWMI, oQuery
Dim nErrNumber, sErrDescription
On Error Resume Next
Set oWMI = GetObject(sNamespace)
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If IsEmpty(oWMI) Or nErrNumber <> 0 Then
ScriptContext.Echo "Unable to open WMI Namespace " & sNamespace
Err.Raise 9100, GET_WMI_NO_NAMESPACE_SOURCE(sNamespace), GET_WMI_NO_NAMESPACE_DESCRIPTION(nErrNumber, sErrDescription)
End If
On Error Resume Next
Set oQuery = oWMI.ExecQuery(sQuery)
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If IsEmpty(oQuery) Or nErrNumber <> 0 Then
ScriptContext.Echo "The Query '" & sQuery & "' returned an invalid result set. Error:" & nErrNumber & ", " & sErrDescription & "."
Err.Raise 9100, GET_WMI_QUERY_NO_RESULTS_SOURCE(sQuery), GET_WMI_QUERY_NO_RESULTS_DESCRIPTION(nErrNumber, sErrDescription)
End If
'Determine if we queried a valid WMI class - Count will return 0 or empty
On Error Resume Next
Dim nInstanceCount
nInstanceCount = oQuery.Count
nErrNumber = Err.Number
sErrDescription = Err.Description
On Error Goto 0
If nErrNumber <> 0 Then
ScriptContext.Echo "The Query '" & sQuery & "' did not return any valid instances. Error:" & nErrNumber & ", " & sErrDescription & "."
Err.Raise 9100, GET_WMI_QUERY_NO_VALID_INSTANCES_SOURCE(sQuery), GET_WMI_QUERY_NO_VALID_INSTANCES_DESCRIPTION(nErrNumber, sErrDescription)
End If
Home
ENU 
Show References: