Option Explicit
Const prjSystemParameterInfoExeData = "TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAuAAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAAB1n/nbMf6XiDH+l4gx/peIsuKZiDD+l4h+3J6IMP6XiAfYmogw/peIUmljaDH+l4gAAAAAAAAAAFBFAABMAQUAH5TTTgAAAAAAAAAA4AAPAQsBBgAAEAAAACAAAAAAAAABQAAAABAAAAAgAAAAAEAAABAAAAACAAAEAAAAAQAAAAQAAAAAAAAAAHAAAAAEAAD2iQAAAgAAAAAAEAAAEAAAAAAQAAAQAAAAAAAAEAAAAAAAAAAAAAAACFAAAFwAAAAAMAAA+AgAAAAAAAAAAAAAAAAAAAAAAACwTwAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAALnRleHQAAAAAEAAAABAAAAAGAAAABAAAAAAAAAAAAAAAAAAAYAAA4C5kYXRhAAAAABAAAAAgAAAAAgAAAAoAAAAAAAAAAAAAAAAAAEAAAMAucnNyYwAAAAAQAAAAMAAAAAIAAAAMAAAAAAAAAAAAAAAAAABAAADALmFzcGFjawAAIAAAAEAAAAAaAAAADgAAAAAAAAAAAAAAAAAAYAAA4C5hZGF0YQAAABAAAABgAAAAAAAAACgAAAAAAAAAAAAAAAAAAEAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABhLszKREAAAQs/c4GEGbQKQizbDaWVnOBUMyPRw/lgMcrmiOTSyPA58XDhw5zj9z7jDYW44KxyEkZGnSpuClqba2No2mM7LYH+LT0M46DN/L0WsM8jPQ5y7Lj33e2eHG1scrSzrKWuo5dXDPSDJYNkwOdmAlkJ1gEYMjbWLVGOlMmRMN1LVnUurY2nmup7L/////6bz975+/e+feefe/e733fdnn7z/efvP953+SzJGuYJdJHYkhoOAvNyzBDwQsowrOLZvDAxqYg/NTi5ymXcpcvLmZAuga46IIuIZKGlfZeJXYJoYgr6s4aylOSycp63Y0N9LGASrwIxVcEdPPcaCUuvZUB16nAritUIfmLNbCcYlphqSvtCc94Uoznge1JSrf4coxeosk75LhtsyDMPvuNzLDNKnRMIPeKfBeZ1lnk7s30KzBhBHBM4utE/CZRQIr+JIJ/EbEYFiBXQS6KFEMJMIkRYXaiywsoJxFEiYxXgTMLACQiwQjwseLDCXxW4ToJhFDCvYoIJyBt8vkSnolLIVnsXJueU+QQweuNloy2d7pcrkW7rhrKZs0JB11xaIkd9MGiDT6OsyETkfekG9bYrRLIW3EYBwsgepLcnjbbmkJ1X2aXFVT/WnpZp4NDEq2GGMtrTdWq73rgkY2fMtozAu+2xstJHG4VC6pn4z6/XY81Ctf6fPckWID9OkKp8gOaBt7DZH6PRZ/BfqylmAWGtih5kT06/7YgexzaMxS1/UX/m1Cs3Xhm5hi4y7+jrKq7Bky5YvH+I5+TjsjIabMZ8xbRinyP5WbQsLIW55C5dAjUy32/iLIUDvz+8BfnRc92saUSdBELoDaM8PztHO5/VGinJfr7a4Pw8Gb2xVe+KGA40ro2j6wG3iI+a+mzxJWT05y1Gc2hYq2bpJyKmBS+U4nxz3FIptys4Pz2SYIQPI6JENBUoyn2zIKH06gRKh6kV/6TyiGZWMtrY1XxvdHTZO7ving1gyBx3UkifIZNEOj2iJn2VLejQ7q/Nfvl1HJ5IjgRQQimYOR82O/OiA0b+qOV9VTd2g71NbYRi54dnhAjpBTNS6DFD10In2K2vAds6ZDsz/4Hdl+yT/Mz56QuPORzfGjlsajau0GngE7GctV8NxFG0wbS3bZY5PBcv+M9slHT6Fw1UUqv2sSo9X8fWgjwRwM4DNgiwRQEwIUCQ6UkSnoFBoRwTGFn5uxzoIPSQhfNzJnwLJMDywU98FI2k6sUnLiQjsk3uxADJ2T+vknT/rGFqCeOUokhQRwPKqjOH2ODkwSbPWX5UHfZ5/wKVHBHSuFS9ykgE7DCI0kHr/G2tCKP/4nkoICOukx5ACVwzlVTUrlLyrN2HM1N7XoH9pDV8FYqu0wa41/vlOlXtesV6Pr61cxOrnbtfnVqpdRwxex6jOzNRLHmJjivl5yic8rw0HqljAcj8WHmTPuVXxgDhr/W81NwtAanw6VoJ3fD9t0bWzKm20LtxfpdxII2DL+ubS9P+tOw+F8+Nh9rlrn/wCjj1Vqn420oZ3jiFY+HGh8EKYMWGODpQyIdaFfugGUN6DggmAvATwe8DDlRkmPU+KGJDoZ0jA6IOmDJKdeG29WBjVXcOAC5h/jIkwip6ChCkU+AGGDDg+Iu6mW0yXamdaxg3OTygRfMGjZ13ekJJo/Nf99HRbNO1Um3vFO761X/7wNC99aFtU2mRtbcW1avRItMg0NT3PmkT3LZPVbDsshUT3ZgI3HHxES+KW88ewaM+8kvaA+3GpmsAQ1yF/7JiSCa4VeR0JLjQcbPD/lLx/K5Sckv5T0xwpWH7t6NytzpPug8g7oazhWwz3d9PxaZYR0kROJvHcWxva/8+oz2/NG7dA78h6XhUlr+ov6j9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEiAAAAAAAAAY+/uMGe/v7+D8GWFWe/79+/fv379+/fv379+cAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB+U004CAgAAAAADAAMAAABYAACADgAAAEAAAIAQAAAAKAAAgAAAAAAflNNOAgIAAAAAAQABAAAAgAAAgAAAAAAflNNOAgIAAAAAAQABAAAAmAAAgAAAAAAflNNOAgIAAAAAAwAxdQAA4AAAgDJ1AADIAACAM3UAALAAAIAAAAAAH5TTTgICAAAAAAEACQQAAPgAAAAAAAAAH5TTTgICAAAAAAEAAAAAAAgBAAAAAAAAH5TTTgICAAAAAAEAAAAAABgBAAAAAAAAH5TTTgICAAAAAAEAAAAAACgBAAAAAAAAH5TTTgICAAAAAAEAAAAAADgBAABkUAAAOAIAALAEAAAAAAAAnFIAADAAAACwBAAAAAAAAMxSAAAoAQAAsAQAAAAAAAD0UwAA6AIAALAEAAAAAAAA3FYAADABAACwBAAAAAAAAAAAAAAAAAAAASIAAAAAAAABj7+4wZ7+/v4PwPa1Z7/v379+/fv379+/fvzAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACQYOgDAAAA6esEXUVVw+gBAAAA61277f///wPdgesAQAAAg72IBAAAAImdiAQAAA+FywMAAI2FlAQAAFD/lakPAACJhYwEAACL8I19UVdW/5WlDwAAq7AArnX9OAd17o1Fev/gVmlydHVhbEFsbG9jAFZpcnR1YWxGcmVlAFZpcnR1YWxQcm90ZWN0AACLnZUFAAAL23QKiwOHhZkFAACJA421xQUAAIM+AA+ECgEAAGoEaAAQAABoABgAAGoA/1VRiYVIAQAAi0YEBQ4BAAAPhLcAAABqBGgAEAAAUGoA/1VRiYVEAQAAVoseA52IBAAA/7VIAQAA/3YEUFPoxwUAALMAgPsAdU3+he8AAABQUVZTi8iD6QWLtUQBAAAz2wvJdC54LKw86HQK6wA86XQEQ0nr64sG6wCAPgF18yQAwcAYK8OJBoPDBYPGBIPpBevOW15ZWOsIAAAAAAAAAACLyIs+A72IBAAAi7VEAQAAwfkC86WLyIPhA/OkXmgAgAAAagD/tUQBAAD/VV6DxgyDPgAPhS////9oAIAAAGoA/7VIAQAA/1Vei52VBQAAC9t0CIsDh4WZBQAAi5WIBAAAi4WRBQAAK9B0eYvCwegQM9uLtZ0FAAADtYgEAACDPgB0YYtOBIPpCNHpiz4DvYgEAACDxghmix7B6wyD+wF0DIP7AnQWg/sDdCDrLGaLHoHj/w8AAGYBBB/rHWaLHoHj/w8AAGYBFB/rDmaLHoHj/w8AAAEUH+sAZoMO/4PGAuK065qLlYgEAACLtaUFAAAL9nQRA/KtC8B0CgPCi/hmrWar6/G+dBoAAIuViAQAAAPyi0YMhcAPhA0BAAADwovYUP+VqQ8AAIXAdQdT/5WtDwAAiYWpBQAAx4WtBQAAAAAAAIuViAQAAIsGhcB1A4tGEAPCA4WtBQAAixiLfhAD+gO9rQUAAIXbD4SlAAAA98MAAACAdQQD2kNDU4Hj////f1P/takFAAD/laUPAACFwFt1cvfDAAAAgHUZV4tGDAOFiAQAAFBTjYXbBAAAUFfpEgEAAIHj////f4uFjAQAADmFqQUAAHUkV4vTSsHiAoudqQUAAIt7PIt8O3gDXDsciwQTA4WpBQAAX+sZV4tGDAOFiAQAAFBTjYUsBQAAUFfpwQAAAIkHg4WtBQAABOkv////iQaJRgyJRhCDxhSLlYgEAADp6P7//4u1iAQAAIt+PAP+UVRRVGoE/3dUVv9Vav93VFYPt08GD7dHFI18B/CNtcUFAACthcB0QIPHKDtHDOD4dTZBUVZqAfZGB+B0A9EkJPZGB4B0A9EkJPZGByB0BMEkJAT/dwgDhYgEAABQ/1VqWa2tiUck4rv/VWpZuNwRAABQA4WIBAAAWQvJiYUOBAAAYXUIuAEAAADCDABoAAAAAMOLhYwEAACNjaEEAABRUP+VpQ8AAImFsQUAAI2FrQQAAFD/la0PAACJhZAEAACNjbgEAABRUP+VpQ8AAImFtQUAAIuFkAQAAI2NxAQAAFFQ/5WlDwAA/9CDxBBfajCNnc4EAABTV2oA/5W1BQAAav//lbEFAAAAAAAAAAAAAAAAAABrZXJuZWwzMi5kbGwARXhpdFByb2Nlc3MAdXNlcjMyLmRsbABNZXNzYWdlQm94QQB3c3ByaW50ZkEATE9BREVSIEVSUk9SAFRoZSBwcm9jZWR1cmUgZW50cnkgcG9pbnQgJXMgY291bGQgbm90IGJlIGxvY2F0ZWQgaW4gdGhlIGR5bmFtaWMgbGluayBsaWJyYXJ5ICVzAFRoZSBvcmRpbmFsICV1IGNvdWxkIG5vdCBiZSBsb2NhdGVkIGluIHRoZSBkeW5hbWljIGxpbmsgbGlicmFyeSAlcwBSuo4kO5ysCsB0FDLQsAjR6nMGgfKa86fB/sh18uvnklrDAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAEAAAIAAAYAAgAAAAEAAAQAAAwFAxAACwDgAAQAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAItEJBCB7FQDAACNTCQEUOioAwAAi4wkXAMAAIuUJFgDAABRUo1MJAzoDQQAAITAdQqDyP+BxFQDAADDi4wkYAMAAI0EJFBRjUwkDOjoBQAAhMB1CoPI/4HEVAMAAMOLBCSBxFQDAADCEAAAAQIDBAUGBwgKDA4QFBgcICgwOEBQYHCAoMDgAAAAAAAAAAABAQEBAgICAgMDAwMEBAQEBQUFBQAAAAABAQICAwMEBAUFBgYHBwgICQkKCgsLDAwNDQ4ODw8QEBEREREREREREREREREREhISEhISEhJRi9FWuQgAAABXOUoEcjVTvvj///+LAooYQIhcJAyJAotCCIt8JAzB4AiB5/8AAAALx4t6BAP+iUIIi8eJegQ7wXPSW4tyBItCCIt8JBArztPouRgAAAArzyX///8A0+gD91+JcgReWcIEAItEJASLVCQIiYGEAAAAiZGIAAAAjQSCiYGMAAAABQABAADCCACB7JgAAABTVVaL0Ve5DwAAAIuqhAAAADPAjXwkLDP286uLvCSsAAAAO+6JVCQgdhUzyYoMOItcjCiNTIwoQ0A7xYkZcuu5FwAAAIl0JCiJcgSJckSJdCRoM/+JdCQcx0QkEAEAAACJTCQYjWoIiXQkFItENCzT4AP4gf8AAAABiXwkJA+HjgAAAItENCiJfQCLXTwDw4P5EIlFQIlENGx8TYt1AItEJBCLXCQci7qMAAAAwe4Qi84l/wAAACvLA/uK2IvRivuJdCQci8OLdCQUweAQZovDwekC86uLyotUJCCD4QPzqot8JCSLTCQYi0QkEIPGBEBJg8UEg/kJiUQkEIlMJBiJdCQUD41i////gf8AAAABdA9fXl0ywFuBxJgAAADCBACLgoQAAAAzyYXAdjuLtCSsAAAAigQxhMB0Iou6iAAAACX/AAAAi0SEaIkMhzPAigQxi3yEaI1EhGhHiTiLgoQAAABBO8hyzF9eXbABW4HEmAAAAMIEAFFTVovxV4sGg3gECHIwiwiKEUGIVCQMiQiLSAiLVCQMweEIgeL/AAAAC8qLUASDwviJSAiLyolQBIP5CHPQi1AEi0AIuQgAAAArytPoi04kJQD+/wA7wXMUi5aMAAAAi8jB6RAz24ocEYvT6zs7RixzCjtGKBvSg8IK6yw7RjBzB7oLAAAA6yA7RjRzB7oMAAAA6xQ7RjhzB7oNAAAA6wg7Rjwb0oPCD4sOi3kEA/qJeQSLHJa5GAAAACvDK8pf0+iLTJZEA8GLjogAAABeW4sEgVnDU1ZXi/kz0jPAjbdoAgAAiRZW6FcCAACKjDDStEYAXrsBAAAAg8YE0+MD00CD+Dpy3otEJBCNTxBQaNECAADoSP3//1BqHI2PoAAAAOg6/f//UGoIjY8wAQAA6Cz9//9QahONj8ABAADoHv3//4mHYAIAAF9eBfUCAABbwgQAi0QkCIvRi0wkBFeJAo1CBIkIx0AEIAAAAIlCEImCoAAAAImCMAEAAImCwAEAADPAub0AAACJglACAACJglQCAACJglgCAACLumACAACJglwCAADzq4vKqugEAAAAX8IIAIHsDAMAAFOL2VVWjWsEV2oBi83oKfz//4XAdQ6Lu2ACAAC5vQAAAPOrqjP2agSLzegM/P//iEQ0EEaD/hNy7Y27wAEAAI1EJBBQi8/ogPz//4TAdQtfXl1bgcQMAwAAwzP2i8/o5P3//4P4EHMVi4tgAgAAihQxAtCA4g+IVDQkRutgdShqAovN6LP7//+DwAOFwH5Ogf71AgAAfVKKTDQjSIhMNCRGhcB/6us2g/gRdQ5qA4vN6Ib7//+DwAPrDGoHi83oePv//4PAC4XAfhOB/vUCAAB9F8ZENCQARkiFwH/tgf71AgAAD4xz////jVQkJI1LEFLo1fv//4TAdQtfXl1bgcQMAwAAw42EJPUCAACNi6AAAABQ6LP7//+EwHULX15dW4HEDAMAAMONjCQRAwAAUY2LMAEAAOiR+///hMB1C19eXVuBxAwDAADDxoNkAgAAADPAgLwEEQMAAAN1CECD+Ahy8OsHxoNkAgAAAYu7YAIAAI10JCS59QIAAPOkX15dsAFbgcQMAwAAw+gBAAAAkF6B7l+6RgDDg+wUi0QkHFNVVscAAAAAAItEJCRXM/+FwIvxiXwkEA+GWwIAAI1OEOiD/P//PQABAABzE4sOiAGLDkFHiQ6JfCQQ6SkCAAA90AIAAA+DEwIAAAUA////i+iD4AfB7QONUAKD+AeJVCQUD4WUAAAAjY6gAAAA6Db8//+LTggz21bobf///4qcMLa0RgBeg/kIcjKLTgSKEUGIVCQYiU4Ei04Mi1QkGMHhCIHi/wAAAAvKi1YIg8L4iU4Mi8qJVgiD+Qhzzot+CItWDLkIAAAAK88D+9PquRgAAACJfggry4Hi////ANPqM8lW6AP///+KjDCatEYAXotEJBQDygPBiUQkFIqGZAIAAIucrmgCAAAz0lbo2v7//4qUNdK0RgBehMCL+nR2g/8DcnGLRgiNb/2D+AhyMYtGBItWDMHiCIoIQIhMJByLTgiJRgSLRCQcJf8AAACDwfgL0IvBg/gIiVYMiU4Ic8+LRgiLfgy5CAAAACvIA8XT77kYAAAAiUYIK82B5////wDT742OMAEAAOgb+///A8ONHPjrW4N+CAhyMYtGBItWDMHiCIoIQIhMJCCLTgiJRgSLRCQgJf8AAACDwfgL0IvBg/gIiVYMiU4Ic8+LVgiLRgy5CAAAACvKA9fT6LkYAAAAiVYIK88l////ANPoA9iD+wNzGouMnlACAACF23Qwi5ZQAgAAiZSeUAIAAOsbi4ZUAgAAi5ZQAgAAjUv9iYZYAgAAiZZUAgAAiY5QAgAAiwaLfCQUQY0UODvCiRZzEIvQK9FAihKIUP+LFjvCcvCLRCQQA8eJRCQQi/jrC4vO6Pf7//+EwHQcO3wkKA+Cq/3//4tEJCyJOF9eXbABW4PEFMIIAF9eXTLAW4PEFMIIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAA1U8AAOZPAAD5TwAAAAAAAGtlcm5lbDMyLmRsbAAAAEdldFByb2NBZGRyZXNzAAAAR2V0TW9kdWxlSGFuZGxlQQAAAExvYWRMaWJyYXJ5QQAAAAAAAAAAAAAAAADITwAAuE8AAAAAAAAAAAAAAAAAAERQAABRUAAAAAAAAAAAAAAAAAAAAAAAAAAAAABtc3Zidm02MC5kbGwAWVAAAAAAAAAAAF9DSWNvcwAAADgCNAAAAFYAUwBfAFYARQBSAFMASQBPAE4AXwBJAE4ARgBPAAAAAAC9BO/+AAABAAAAAQAAAAAAAAABAAAAAAAAAAAAAAAAAAQAAAABAAAAAAAAAAAAAAAAAAAARAAAAAAAVgBhAHIARgBpAGwAZQBJAG4AZgBvAAAAAAAkAAQAAABUAHIAYQBuAHMAbABhAHQAaQBvAG4AAAAAAAkEsASYAQAAAQBTAHQAcgBpAG4AZwBGAGkAbABlAEkAbgBmAG8AAAB0AQAAAQAwADQAMAA5ADAANABCADAAAABQADAAAQBQAHIAbwBkAHUAYwB0AE4AYQBtAGUAAAAAAHAAcgBqAFMAeQBzAHQAZQBtAFAAYQByAGEAbQBlAHQAZQByAHMASQBuAGYAbwAAACwACgABAEYAaQBsAGUAVgBlAHIAcwBpAG8AbgAAAAAAMQAuADAAMAAAAAAAMAAKAAEAUAByAG8AZAB1AGMAdABWAGUAcgBzAGkAbwBuAAAAMQAuADAAMAAAAAAAUAAwAAEASQBuAHQAZQByAG4AYQBsAE4AYQBtAGUAAABwAHIAagBTAHkAcwB0AGUAbQBQAGEAcgBhAG0AZQB0AGUAcgBzAEkAbgBmAG8AAABgADgAAQBPAHIAaQBnAGkAbgBhAGwARgBpAGwAZQBuAGEAbQBlAAAAcAByAGoAUwB5AHMAdABlAG0AUABhAHIAYQBtAGUAdABlAHIAcwBJAG4AZgBvAC4AZQB4AGUAAAAAAAEAAwAgIAIAAQABADABAAAxdSAgEAABAAQA6AIAADJ1EBAQAAEABAAoAQAAM3UoAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI8HcAAAAI///wd3AAD/////BwAAAP////8AAAAA/////wAAAAD///gAAAAAAPgAAO4AAAAAAO7uAAAAAADuAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//8AAP//AAD/jwAA+AMAAMABAADABwAAwA8AAMAPAADADwAAwA8AAMAPAADAfwAAx/8AAP//AAD//wAA//8AACgAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAj/8HcAAAAAAAAAAAAACP////B3dwAAAAAAAACP///////wd3d3AAAAAA//////////8Hd3AAAAAAAP//////////B3AAAAAAAAD//////////wAAAAAAAAAA//////////8AAAAAAAAAAP//////////AAAAAAAAAAD//////////wAAAAAAAAAA//////////8AAAAAAAAAAP//////////AAAAAAAAAAD//////////wAAAAAAAAAA////////iIgAAAAAAAAAAP////+IiAAAAAAAAAAAAAD//4iIAADu7gAAAAAAAAAAiIgAAO7uAAAAAAAAAAAAAAAA7u4AAAAAAAAAAAAAAADu7gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/////////////////////////////wf///AB//4AAH/gAAAf4AAAf+AAAf/gAAf/4AAH/+AAB//gAAf/4AAH/+AAB//gAAf/4AAH/+AAB//gAAf/4AAH/+AA///gD///4P///+////////////////////////////////////ygAAAAgAAAAQAAAAAEAAQAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AP/////////////////////////////B///8PH//w/wf+D/8B/v//B/7//x/+//9//v//f/7//3/+//9//v//f/7//3/+//9//v//f/7/8H/+/w9//vDwf/4PD//+8P///g////7/////////////////////////////////////////////////////////////////8H///wAf//AAB/4AAAH+AAAH/gAAH/4AAH/+AAB//gAAf/4AAH/+AAB//gAAf/4AAH/+AAB//gAAf/4AAH/+AAB//gAP//4A///+D////v///////////////////////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA=="
Dim WshShell, FileSystemObject, ExePath
Set WshShell = CreateObject("WScript.Shell")
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
ExePath = WshShell.ExpandEnvironmentStrings("%TMP%\prjSystemParameterInfo.exe")
WriteBinaryFile binBase64Decode(prjSystemParameterInfoExeData), ExePath

if Not MsgBox("Включить шлейф ?",vbQuestion or vbYesNo) = vbYes Then WScript.Quit
WshShell.Run ExePath & " 93 7", 0, True

if Not MsgBox("Отключить шлейф ?",vbQuestion or vbYesNo) = vbYes Then WScript.Quit
WshShell.Run ExePath & " 93 0", 0, True

FileSystemObject.DeleteFile ExePath, True

Function binBase64Decode(ByVal text)
    With CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
        .dataType = "bin.base64"
        .text = text
        binBase64Decode = .nodeTypedValue
    End With
End Function

Function WriteBinaryFile(binData,path)
    With CreateObject("ADODB.Stre" & "am")
        .Type = 1
        .Open
        .Write binData
        .saveToFile path, 2
    End With
End Function

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" _
      Alias "SystemParametersInfoA" (ByVal iAction As Long, _
      ByVal iParam As Long, pvParam As Any, _
      ByVal fWinIni As Long) As Long
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Sub Main()
    On Error GoTo ErrHandler:
    Dim uAction As Integer, uparam As Integer, lpvParam, fuWinIni As Integer, cmdStr As String, params, uExitCode As Long
    cmdStr = Command
    params = Split(cmdStr, " ")
    If UBound(params) >= 0 Then uAction = params(0)
    If UBound(params) >= 1 Then uparam = params(1)
    If UBound(params) >= 2 Then lpvParam = params(2)
    If UBound(params) >= 3 Then fuWinIni = params(3)
    uExitCode = SystemParametersInfo(uAction, uparam, lpvParam, fuWinIni)
    ExitProcess uExitCode
ErrHandler:
End Sub