-41

Программистские изыски на коленке - эсклюзив

Самый нужный и очень трудный скрипт (хоть и небольшой) - это автоматическое подключение расшаренных папок на ДРУГОМ компьютере к вашему ( с отображением в МОЙ КОМПЬЮТЕР всместе со всеми дисками какие есть в системе).

И так делаем два файла - один скрипт , другой список подсоединяемых дисков, буквы для дисков нам не нужны так как скрипт автоматически отыскивает свободные буквы и подключает эти расшаренные папки как положено с буквой , названием и возможностью посмотреть сколько осталось на этом диске свободного пространства - т.е. точно также как физического диска.

Имейте ввиду - скрипт это моя интеллектуальная собственность и перепечатывать можно только с указанием откуда ( с Пикабу) взяли.

Скрипт (в блокноте с расширением .vbs) должен лежать в одной папке с списком, запускаться от имени администратора :


On Error Resume Next


Dim WshNetwork

Set WshNetwork = WScript.CreateObject("WScript.Network")

Set oDrives = WshNetwork.EnumNetworkDrives

For Each Drive In oDrives

On Error Resume Next

WSHNetwork.RemoveNetworkDrive Drive, TRUE, TRUE

next

WScript.Sleep 2000


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

Set fso = CreateObject("Scripting.FileSystemObject")

Set foo = fso.OpenTextFile("disk.txt", 1)

Dim str0 : str0 = foo.ReadLine

Do While Not foo.AtEndOfStream

Dim str : str = foo.ReadLine

Dim str1 : str1 = foo.ReadLine

Dim str2 : str2 = foo.ReadLine

WScript.Sleep 500

Set oShell = CreateObject("Shell.Application")

WshNetwork.MapNetworkDrive AvailableDriveLetter,str, ,str1,str2

Set oShell = CreateObject("Shell.Application")

WScript.Sleep 500

str = foo.ReadLine

oShell.NameSpace(AvailableDriveLetter2).Self.Name = str

WScript.Sleep 500

loop


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

Function AvailableDriveLetter

With CreateObject("Scripting.FileSystemObject")

For i = Asc("D") To Asc("Z")

If Not .DriveExists(Chr(i)) Then

AvailableDriveLetter = Chr(i) & ":"

AvailableDriveLetter2 = AvailableDriveLetter

Exit For

End If

Next

End With

End Function


А теперь пример как пишется список (в том же блокноте - обычный текст с именем disk.txt), внимательнее - первая строка является комментарием (убирать её не следует , а так пишите что хотите туда.) , далее идет адрес,имя пользователя (если вы используете папку с разрешением ВСЕ - то пишите что хотите в графу) , пароль (точно такие же требования как к имени пользователя) , ИМЯ диска - как называться ваш подключенный диск будет.


Вот пример:


:путь - логин - пароль - имя ресурса в Мой компьютер

\\192.168.0.10\f

2-ПК

777777

NEWtorrent

\\nasmini\P1_A_4

2-ПК

777777

NASMINI30


Далее как на стороне другого ПК расшарить папку - выбираем папку (или диск - но лучше всеже папку) , правая клавиша мыши - свойства - Доступ -

расширенная настройка -галка на Открыть общий доступ к этой папке  (далее если хотите обзывайте имя общего ресурса - но он не нужен - мы сами скриптом переименуем) - жмем ок. Лезем тамже в вкладку Безопасность - Кнопка Изменить - Кнопка Добавить - Кнопка Дополнительно - Кнопка Поиск , и в открывшемся списке ищем пользователя под именем ВСЕ - тыкаем в него - Кнопка ОК-Опять Кнопка ОК - В списке Группы или Пользователи находи нашего Все и тыкнув внизу ставим галочки на всех пунктах столбца Разрешить ( мы ему все разрешаем ). - тыкаем кнопку Ок - И закрываем окно кнопкой Закрыть.


После этого коп надо перезагрузить и на данном компе появляется расшаренная папка с полными правами заходить кому хошь и что хошь в ней делать - что как раз и отлично в домашней сети в которой вы создали сетевое хранилище таким образом на старом компе, и с рабочего компа на максимальной скорости можете пользоваться этими подключениями как дополнительными дисками.

Чтоб после этого воспользоваться скриптом - вам надо знать СТАТИЧЕСКИЙ адрес вашего сетевого хранилища (таго самого компа который расшарили ) и поставить ярлык с скрипта на рабочий столь или а автозагрузку. И радоваться подключению к своему новому своими ручками собранному сетевому хранилищу .

Далее жду вопросов.

Тема номер два - удаленное управление рабочем столом средствами винды.

1) Включаем на компе который будет ПРОСМАТРИВАТЬСЯ УДАЛЕННО возможность удаленного управления без запроса:

Кнопка пуск - Панель управления-Система и безопасность (или просто система зависимости от винды) - Слева тыкаем Настройка удаленного доступа - галку на Разрешить подключение удаленного помошника к этому компьютеру, ( а также через кнопку Дополнительно - ставим галку на Разрешить удаленное управление этим компьютером-кнопка ОК), галку на Разрешить подключения от компьютеров с любой версией удаленного рабочего стола, внизу кнопку Выбрать пользователей- Добавить-Дополнительно -Поиск- выкрать пользователя ВСЕ - кнопка Ок - Кнопка Ок -Опять кнопка ок

После перезагрузить - И получаем комп к которому можно подключаться.

2) И так работы на компе С КОТОРОГО ВЫ УПРАВЛЯЕТЕ ЧУЖИМ РАБОЧИМ СТОЛОМ.

Нас интересует программа mstsc.exe ( находящаяся по пути C:\Windows\System32\mstsc.exe  если хотите сами там её запустите или создайте ярлык с строкой пути до неё - не важно как её запустите - она нам нужна только один раз)

Запускаем , получаем окно Подключение к удаленному рабочему столу,

в графу Компьютер вводи имя компа , но лучше его аупишник - так надежнеё ,кликаем вниза на стрелочку Показать параметры и офигев от изобилия настроек , в дополнительную строку вводим пользователя (именно вашего компа а не этого - не забываем - мы разрешили пользователю ВСЕ подключаться ) , если спросят пароль пишем пароль любой рандомный (но желательно от вашего компа).НЕ ТЫКАЕМ В КНОПКУ ПОДКЛЮЧИТЬ ПОКА НЕ ПРОСМОТРИМ ВСЕ НАСТРОЙКИ! -после тыкаем кнопку сохранить и сохраняем на ваш рабочий стол конвигурационный файл (одзовите его как хотите) - именно его вы будите запускать для МГНОВЕННОГО доступа к рабочему столу удаленного компа.

(в закладке Дополнительно - есть пункт Проверка подлинности сервера - ставим Подключать без предупреждения (тогда на удаленном столе не спросят разрешения на подключение , а сразу подключат.)

3)Пользуемся в целях управления сетевыми хранилищами без мониторов или чужими компами соседей через вайфай играя на их игровых компах с ихнего разрешения - пока их дома нет :)))

Если интересует как подключиться к компу соседа по вай фаю - тут распишу.

Прилагаю программки бесплатные сделанные мной в программе Multimedia Builder.

Желтый листок https://cloud.mail.ru/public/26wS%2FX5K43SeMj


Часы для превращения планшета или ноута на винде в часы с будильником и отличным онлайн радиоприемником:

Версия первая 1.0 так сказать https://cloud.mail.ru/public/92s2%2FkZoQodPtQ

Версия вторая для планшетов - чтоб тыкать а не клавишами - https://cloud.mail.ru/public/KzJK%2Fi2bbc6ZhG

Если интерсно есть ещё 3 версии часов для слеповатых :)))

Лучшие посты за сегодня
9558

Схема сборки

Схема сборки Сборка мебели, Инструкция
9088

Времена нынче тяжелые

Времена нынче тяжелые Юмор, Мобилизация, Военком, Письмо из Хогвартса, Комиксы
8476

Знакомство с родителями

7174

Ох уж эти инвесторы

Ох уж эти инвесторы Юмор, Инвестиции, Жизненно, Недвижимость, Длиннопост, Скриншот
Ох уж эти инвесторы Юмор, Инвестиции, Жизненно, Недвижимость, Длиннопост, Скриншот
Ох уж эти инвесторы Юмор, Инвестиции, Жизненно, Недвижимость, Длиннопост, Скриншот
Ох уж эти инвесторы Юмор, Инвестиции, Жизненно, Недвижимость, Длиннопост, Скриншот
Показать полностью 3
6932

Ножи

6910

Почему бы и нет

Почему бы и нет
6721

Рамзан Кадыров раскритиковал генерал-полковника Лапина, который руководил обороной Лимана

Рамзан Кадыров раскритиковал генерал-полковника Лапина, который руководил обороной Лимана Политика, Мнение, СВО, Украина, Рамзан Кадыров, Оценка
Показать полностью
6701

Авито... против собственников... для риэлторов...

Авито... против собственников... для риэлторов... Авито, Риэлтор, Объявление, Длиннопост
Авито... против собственников... для риэлторов... Авито, Риэлтор, Объявление, Длиннопост
Авито... против собственников... для риэлторов... Авито, Риэлтор, Объявление, Длиннопост
Авито... против собственников... для риэлторов... Авито, Риэлтор, Объявление, Длиннопост
Авито... против собственников... для риэлторов... Авито, Риэлтор, Объявление, Длиннопост
Авито... против собственников... для риэлторов... Авито, Риэлтор, Объявление, Длиннопост
Авито... против собственников... для риэлторов... Авито, Риэлтор, Объявление, Длиннопост
Показать полностью 7
6583

Отжала бабулю

Отжала бабулю
5821

О текущем

5499

После потери Лимана руководство минобороны РФ раскритиковал и бывший командующий 58-й армией и депутат Думы Андрей Гурулев 

После потери Лимана руководство минобороны РФ раскритиковал и бывший командующий 58-й армией и депутат Думы Андрей Гурулев  Политика, Украина, СВО, Лиман, Рамзан Кадыров, Красный лиман
Показать полностью
5253

А мы тут урожай собрали)

А мы тут урожай собрали) Туапсе, Мечта, Истории из жизни, Длиннопост, Собака
А мы тут урожай собрали) Туапсе, Мечта, Истории из жизни, Длиннопост, Собака
А мы тут урожай собрали) Туапсе, Мечта, Истории из жизни, Длиннопост, Собака
А мы тут урожай собрали) Туапсе, Мечта, Истории из жизни, Длиннопост, Собака
А мы тут урожай собрали) Туапсе, Мечта, Истории из жизни, Длиннопост, Собака
А мы тут урожай собрали) Туапсе, Мечта, Истории из жизни, Длиннопост, Собака
Показать полностью 6
5182

Интересно, на какой день?

Интересно, на какой день?
5142

Хребет Карамурунтау – спящий дракон Саракташского района, Оренбургская область

Хребет Карамурунтау – спящий дракон Саракташского района, Оренбургская область Фотография, Природа, Красота, Оренбургская область, Россия, Долгие горы, Хребет
Показать полностью 1
4964

Как спят белки:

4786

Этот жестокий мир

Этот жестокий мир
4741

Как научить ребёнка не брать вкусняшки у незнакомцев

4407

Пикабу, прекращай уже

Пикабу, прекращай уже Жизнь, Отец, Отцовство, Черный юмор, Комментарии, Скриншот, Комментарии на Пикабу
Показать полностью 1
4337

Инструкция

Инструкция Комментарии на Пикабу, Скриншот, Инструкция
Инструкция Комментарии на Пикабу, Скриншот, Инструкция
Показать полностью 2
4329

История одного копировальщика

История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
История одного копировальщика Arduino, Самоделки, Хобби, Своими руками, Электроника, RFID, Длиннопост
Показать полностью 7
Похожие посты закончились. Возможно, вас заинтересуют другие посты по тегам: