' 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 <> 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 <> 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 <> 5 Then
WScript.Quit()
End If
'=============
' 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>