' For License token access
Dim TrialInfoValue
Dim TrialDaysLeft
Const IBMHWMP_LICENSE_KEY = "SOFTWARE\IBM\Systems Management Integrations\LicenseEndpoint"
Const LenovoHWMP_LICENSE_KEY = "SOFTWARE\Lenovo\Systems Management Integrations\LicenseEndpoint"
Const IBMHWMP_TRIAL_LICENSE_TOKEN_NAME = "TrialActivation"
'Setup logging
debug = -1
'Set oReg = GetObject("winmgmts://localhost/root/default:StdRegProv")
set oReg = GetObject( "winmgmts:{impersonationLevel=impersonate}!" & _
"//./root/default:StdRegProv")
If (not(oReg is nothing)) Then
RC_Code = oReg.GetStringValue(HKEY_LOCAL_MACHINE, DEBUG_INFO_KEY, DEBUG_LEVEL_NAME, debug)
If ( RC_Code<>0) Then
debug = -1
End If
End If
Set oAPI = CreateObject("MOM.ScriptAPI")
If (WScript.Arguments.Count < 2) Then
Call LogDebugString("Short of arguments count : " & WScript.Arguments.Count, INFO_LEVEL)
WScript.Quit -1
End If
' Writing License Token
progressCode = ""
If (not(oReg is nothing)) Then
RC_Code = -1
If IsNull(TrialDaysLeft) Or IsEmpty(TrialDaysLeft) Or TrialDaysLeft = "None" Or TrialInfoValue = "None" Then
'Delete registry value
RC_Code = oReg.DeleteValue( HKEY_LOCAL_MACHINE, IBMHWMP_LICENSE_KEY, _
IBMHWMP_TRIAL_LICENSE_TOKEN_NAME )
RC_Code = oReg.DeleteValue( HKEY_LOCAL_MACHINE, LenovoHWMP_LICENSE_KEY, _
IBMHWMP_TRIAL_LICENSE_TOKEN_NAME )
Else
'Create Registry key path
RC_Code = oReg.CreateKey( HKEY_LOCAL_MACHINE, IBMHWMP_LICENSE_KEY )
progressCode = "key"
If ( 0 = RC_Code ) Then
'Create License Feature Level
RC_Code = oReg.SetStringValue( HKEY_LOCAL_MACHINE, LenovoHWMP_LICENSE_KEY, _
IBMHWMP_TRIAL_LICENSE_TOKEN_NAME, TrialDaysLeft)
progressCode = progressCode + ".TrialDaysLeft"
'RC_Code = oReg.SetStringValue( HKEY_LOCAL_MACHINE, LenovoHWMP_LICENSE_KEY, _
' IBMHWMP_LICENSE_LEVEL, TrialInfoValue)
'progressCode = progressCode + ".TrialInfoValue"
'writeRegValue = RC_Code ''' twoffer: Not defined or used anywhere
End If
End If
End If
Call LogDebugString("Write : " & progressCode, INFO_LEVEL)
' Debug event logging
Sub LogDebugString(debugString, debugLevel)
If (Int(debug) >= Int(debugLevel)) Then
Call oAPI.LogScriptEvent("CreateTrialLicenseToken.vbs", 401, DebugLevelToLogLevel(debugLevel), debugString)
End If
End Sub
Function DebugLevelToLogLevel(debugLevel)
DebugLevelToLogLevel = 4
If debugLevel <= 1 then
DebugLevelToLogLevel = 1
ElseIF debugLevel <= 3 then
DebugLevelToLogLevel = 2
Else
DebugLevelToLogLevel = 4
End If
End Function