If (WScript.Arguments.Count < 1) Then
WScript.Quit -1
End If
UUID = WScript.Arguments.Item(0)
SetLocale("en-us")
Dim SCOMServer
Set SCOMServer = WScript.CreateObject("IBM.SystemsManagement.SCOMHelper.SCOMServer")
Dim licenseLevel, licenseToken
call SCOMServer.GetLicenseLevel(licenseToken, licenseLevel)
If SCOMServer.VersionCompare(licenseLevel,"4.0") < 0 Then
WScript.Echo "This premium feature is only supported on servers with IBM Hardware management license 4.0 or higher. It is not supported on current server"
WScript.Echo "Refer to the IBM Hardware Management Pack User's Guide for more information on managed system requirements. "
WScript.Quit 1
End If
Call SCOMServer.InitSCOMServerConnection()