VMM SelfService Discovery DataSource

Microsoft.SystemCenter.VirtualMachineManager.2012.VMMSelfServiceDiscovery (DataSourceModuleType)

VMM self-service discovery data source module

Element properties:

Member Modules:

Overrideable Parameters:

Source Code:

<DataSourceModuleType ID="Microsoft.SystemCenter.VirtualMachineManager.2012.VMMSelfServiceDiscovery" Accessibility="Internal">

  <Configuration>

    <xsd:element name="IntervalSeconds" type="xsd:integer"/>

    <xsd:element name="ComputerID" type="xsd:string"/>

    <xsd:element name="SiteID" type="xsd:string"/>

    <xsd:element name="DisplayName" type="xsd:string"/>

  </Configuration>

  <OverrideableParameters>

    <OverrideableParameter ID="IntervalSeconds" ParameterType="int" Selector="$Config/IntervalSeconds$"/>

  </OverrideableParameters>

  <ModuleImplementation>

    <Composite>

      <MemberModules>

        <DataSource ID="DS" TypeID="System!System.CommandExecuterDiscoveryDataSource">

          <IntervalSeconds>$Config/IntervalSeconds$</IntervalSeconds>

          <ApplicationName>%windir%\System32\cscript.exe</ApplicationName>

          <WorkingDirectory/>

          <CommandLine>/nologo $file/DiscoverVMMSelfService.vbs$ $MPElement$ $Target/Id$ $Config/ComputerID$ $Config/SiteID$ "$Config/DisplayName$"</CommandLine>

          <TimeoutSeconds>300</TimeoutSeconds>

          <RequireOutput>true</RequireOutput>

          <Files>

            <File>

              <Name>DiscoverVMMSelfService.vbs</Name>

              <Contents><Script>

' Copyright (c) Microsoft Corporation. All rights reserved.

' VBScript source code

' DiscoverVMMSelfService.vbs

' Arg 0 : SourceID

' Arg 1 : MP Element ID

' Arg 2 : Computer ID



Option Explicit

SetLocale("en-us")



' Reg string const

Const StrVMMSelfServiceServerInstallationRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager Self-Service Portal\Setup\InstallPath"

Const StrVMMSSsiteEngineMachineRegKey = "HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager Self-Service Portal\Settings\VmmServerName"

Const StrWebsitDisplayName = "Microsoft System Center Virtual Machine Manager Self-Service Portal"

Const StrWebsitDisplayNameX64 = "Microsoft System Center Virtual Machine Manager Self-Service Portal (x64)"



'=============

' Method:       HasRegistry

' Description:  This function returns true if the registry exists; otherwise returns false

'=============

Function HasRegistry(ByVal regString)

    Dim bHasRegistry

    Dim oReg

    Set oReg = CreateObject("WScript.Shell")  



    On Error Resume Next

    Dim sValue

    sValue = oReg.RegRead(regString)

    If Err.number &lt;&gt; 0 Then

        bHasRegistry = False

    Else

        bHasRegistry = True

    End If

    On Error Goto 0



    HasRegistry = bHasRegistry

End Function



'=============

' Method:       ReadRegistry

' Description:  This function reads the registry, returns true if the registry exists; otherwise returns false

'=============

Function ReadRegistry(ByVal regString, ByRef regValue)

    Dim bHasRegistry

    Dim oReg

    Set oReg = CreateObject("WScript.Shell")  



    On Error Resume Next    

    regValue = oReg.RegRead(regString)

    If Err.number &lt;&gt; 0 Then

        bHasRegistry = False

    Else

        bHasRegistry = True

    End If

    On Error Goto 0



    ReadRegistry = bHasRegistry

End Function



'=============

' Method:       IsVMMSelfService

' Description:  This function checks whether the local machine hosts VMMSelfService by checking a specific registry

'=============

Function IsVMMSelfService()

    IsVMMSelfService = HasRegistry(StrVMMSelfServiceServerInstallationRegKey)

End Function



Call Main()



'=============

' Method:       Main

' Description:  This sub discovers VMMSelfService instance

'=============

Sub Main()

    Dim oArgs

    Set oArgs = WScript.Arguments

    if oArgs.Count &lt;&gt; 5 Then

      WScript.Quit()

    End If



    Dim SourceID, ManagedEntityId, TargetComputer, SiteId, DisplayName

    SourceId = oArgs(0)

    ManagedEntityId = oArgs(1)

    TargetComputer = oArgs(2)

    SiteID = oArgs(3)

    DisplayName = oArgs(4)



    Dim oAPI, oDiscoveryData

    Set oAPI = CreateObject("MOM.ScriptAPI")

    set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)



    If IsVMMSelfService() And ((DisplayName = StrWebsitDisplayName) Or (DisplayName = StrWebsitDisplayNameX64)) Then

        ' Discover VMMSelfService instance

        

        DiscoverVMMSelfService oDiscoveryData, TargetComputer, SiteID, DisplayName

        

    End If

    

    Call oAPI.Return(oDiscoveryData)

End Sub



'=============

' Method:       DiscoverVMMSelfService

' Description:  This sub discovers and creates SelfService instance, adds it to discovery data

'=============

Sub DiscoverVMMSelfService(ByRef oDiscoveredData, ByVal hostComputer, ByVal siteId, ByVal displayName)

    Dim oVMMSelfServiceInst, vmmEngineComputer

    set oVMMSelfServiceInst = oDiscoveredData.CreateClassInstance("$MPElement[Name='Microsoft.SystemCenter.VirtualMachineManager.2012.SelfServiceSite']$")

    With oVMMSelfServiceInst

        .AddProperty "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", hostComputer

        .AddProperty "$MPElement[Name='IISCommon!Microsoft.Windows.InternetInformationServices.WebSite']/SiteID$", siteId

        .AddProperty "$MPElement[Name='System!System.Entity']/DisplayName$", displayName

    End With

    oDiscoveredData.AddInstance(oVMMSelfServiceInst)

End Sub

              </Script></Contents>

            </File>

          </Files>

        </DataSource>

      </MemberModules>

      <Composition>

        <Node ID="DS"/>

      </Composition>

    </Composite>

  </ModuleImplementation>

  <OutputType>System!System.Discovery.Data</OutputType>

</DataSourceModuleType>