{"id":93488,"date":"2015-12-07T18:17:40","date_gmt":"2015-12-07T14:17:40","guid":{"rendered":"http:\/\/blagovest.org.ru\/?p=93488"},"modified":"2015-12-07T18:17:40","modified_gmt":"2015-12-07T14:17:40","slug":"kak-sdelat-chtob-byli-zvjozdochki","status":"publish","type":"post","link":"https:\/\/blagovest.org.ru\/?p=93488","title":{"rendered":"\u043a\u0430\u043a \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0447\u0442\u043e\u0431 \u0431\u044b\u043b\u0438 \u0437\u0432\u0451\u0437\u0434\u043e\u0447\u043a\u0438?"},"content":{"rendered":"

\u0432\u043e\u0442 \u043a\u0443\u0441\u043e\u043a \u043a\u043e\u0434\u0430 \u043d\u0430 VBScript:<\/p>\n

Select Case user_type
    Case "\u0413\u043e\u0441\u0442\u044c"
setPass = MsgBox("\u0412\u044b \u0445\u043e\u0442\u0438\u0442\u0435 \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043f\u0430\u0440\u043e\u043b\u044c \u0434\u043b\u044f \u043d\u043e\u0432\u043e\u0439 \u0443\u0447\u0451\u0442\u043d\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438?", vbYesNo + vbQuestion, "\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043f\u0430\u0440\u043e\u043b\u044f")
If setPass = vbYes Then
create_userpassword = InputBox("\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0412\u0430\u0448 \u043d\u043e\u0432\u044b\u0439 \u043f\u0430\u0440\u043e\u043b\u044c:","\u041d\u043e\u0432\u044b\u0439 \u043f\u0430\u0440\u043e\u043b\u044c")
MsgBox "\u0421\u0435\u0439\u0447\u0430\u0441 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0437\u0434\u0430\u043d \u043d\u043e\u0432\u044b\u0439 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c:" & vbcrlf & vbcrlf & "———-" & vbcrlf & "\u0418\u043c\u044f \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0435\u043c\u043e\u0439 \u0443\u0447\u0451\u0442\u043d\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438:   " & create_username & vbcrlf & vbcrlf & "\u041f\u0430\u0440\u043e\u043b\u044c \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0435\u043c\u043e\u0439 \u0443\u0447\u0451\u0442\u043d\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438:   " & create_userpassword & vbcrlf & vbcrlf & "\u041f\u0440\u0430\u0432\u0430:   " & rightshome & vbcrlf & vbcrlf & "\u0421\u043e\u0441\u0442\u0430\u0432 \u0432 \u0433\u0440\u0443\u043f\u043f\u0430\u0445:   " & group3 & vbcrlf & vbcrlf & "\u0413\u0434\u0435 \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f:   " & computer
question = MsgBox("\u041f\u0440\u043e\u0434\u043e\u043b\u0436\u0438\u0442\u044c?", vbYesNo + vbQuestion, "\u041f\u043e\u0434\u0442\u0432\u0435\u0440\u0434\u0438\u0442\u0435")<\/p>\n

\u0442\u0443\u0442 \u043a\u043e\u0433\u0434\u0430 \u0432\u0432\u043e\u0434\u0438\u0448\u044c \u043f\u0430\u0440\u043e\u043b\u044c \u0442\u043e \u043e\u043d \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u0442\u0441\u044f
\u0430 \u043a\u0430\u043a \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0447\u0442\u043e\u0431 \u043a\u043e\u0433\u0434\u0430 \u0432\u0432\u043e\u0434\u0438\u0448\u044c \u043f\u0430\u0440\u043e\u043b\u044c \u0432 InputBox \u0442\u043e \u0431\u044b\u043b\u0438 \u0432\u0438\u0434\u043d\u044b "******" \u0432\u043c\u0435\u0441\u0442\u043e "\u043f\u0440\u0438\u0432\u0435\u0442"?  <\/p>\n","protected":false},"excerpt":{"rendered":"

\u0432\u043e\u0442 \u043a\u0443\u0441\u043e\u043a \u043a\u043e\u0434\u0430 \u043d\u0430 VBScript: Select Case user_type     Case "\u0413\u043e\u0441\u0442\u044c" setPass = MsgBox("\u0412\u044b \u0445\u043e\u0442\u0438\u0442\u0435 \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043f\u0430\u0440\u043e\u043b\u044c \u0434\u043b\u044f \u043d\u043e\u0432\u043e\u0439 \u0443\u0447\u0451\u0442\u043d\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438?", vbYesNo + vbQuestion, "\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043f\u0430\u0440\u043e\u043b\u044f") If setPass = vbYes Then create_userpassword = InputBox("\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0412\u0430\u0448 \u043d\u043e\u0432\u044b\u0439 \u043f\u0430\u0440\u043e\u043b\u044c:","\u041d\u043e\u0432\u044b\u0439 \u043f\u0430\u0440\u043e\u043b\u044c") MsgBox "\u0421\u0435\u0439\u0447\u0430\u0441 \u0431\u0443\u0434\u0435\u0442 \u0441\u043e\u0437\u0434\u0430\u043d \u043d\u043e\u0432\u044b\u0439 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c:" & vbcrlf & vbcrlf & "———-" & vbcrlf & "\u0418\u043c\u044f […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1435],"tags":[1508,85,1460],"class_list":["post-93488","post","type-post","status-publish","format-standard","hentry","category-windows","tag-vbs","tag-bezopasnost","tag-programmirovanie"],"_links":{"self":[{"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=\/wp\/v2\/posts\/93488","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=93488"}],"version-history":[{"count":0,"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=\/wp\/v2\/posts\/93488\/revisions"}],"wp:attachment":[{"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=93488"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=93488"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blagovest.org.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=93488"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}