Многофункциональный скрипт (изменение реестра, замена текста в VBS скрипте и тд)

@wolflonesh · Регистрация: 16.11.2020

Студворк — интернет-сервис помощи студентам

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

У меня есть скрипт, его задача заключается в том что бы:
Завершить процесс
Заменить данные в реестре
Поменять текст в скриптах (то есть изменить другой скрипт VBS с помощью скрипта)
Потом запустить завершенный процесс

Дело в том что мне все нужно в одном скрипте.
Но файл не запускается, только завершается, если все оставить в одном скрипте. Наверно из-за моментального действия скрипта.

Так же я не справился с заменой текста в определенных файлах. В общем вот скрипт.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CreateObject("Shell.Application").ShellExecute "taskkill", "/f /t /im ClubClient.exe",, "runas", 0
 
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy Objects\{8B481271-40F1-4180-A5E1-27871CBC970A}User\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\1", "C:\Program Files\Windows Setting\Client\Client_PC02\ClubClient.exe", "REG_SZ"
 
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy Objects\{8B481271-40F1-4180-A5E1-27871CBC970A}User\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper", "C:\Program Files\Windows Setting\winOS\Desktop\Desk_PC02.jpg", "REG_SZ"
 
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\ClubTimer\Client\num_pc", "2", "REG_DWORD"
 
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\Windows Setting\Client\Client_PC02\ClubClient.exe""",1

Мне нужно что бы запуск программы происходила с задержкой
А так же, перед запуском этой программы нужно добавить еще скрипт, меняющий определенный текст в документах (VBS)

ПРИМЕР Как должен быть модифицирован скрипт:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CreateObject("Shell.Application").ShellExecute "taskkill", "/f /t /im ClubClient.exe",, "runas", 0
 
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy Objects\{8B481271-40F1-4180-A5E1-27871CBC970A}User\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\1", "C:\Program Files\Windows Setting\Client\Client_PC02\ClubClient.exe", "REG_SZ"
 
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Group Policy Objects\{8B481271-40F1-4180-A5E1-27871CBC970A}User\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper", "C:\Program Files\Windows Setting\winOS\Desktop\Desk_PC02.jpg", "REG_SZ"
 
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\ClubTimer\Client\num_pc", "2", "REG_DWORD"
 
' 'скрпит заменяющий в файле (D:\CYBERNET\Apex Legends.vbs) текст (gameclub_pc002) на (gameclub_pc003)
' скрпит заменяющий в файле (D:\CYBERNET\CSGO.vbs) текст (gameclub_pc002) на (gameclub_pc003)
' и так еще в нескольких файлах
 
' потом создать задержку перед запуском скрипта что ниже
 
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\Windows Setting\Client\Client_PC02\ClubClient.exe""",1

Надеюсь не перемудрил и все понятно)

Добавлено через 1 минуту
Я думаю что то еще мне потом придется дополнить в скрипте, буду тут просить дальше помощи.
На счет замены текста в нескольких файлах, я нашел скрипт, но не понял как он работает.

Заменить определенный текст в файле .txt для всех файлов в выбранной папке

Дело в том что я дилетант) Каким был и раньше)

@wolflonesh · 25.05.2022, 08:04 **[ТС]**

Без скрипта меняющего текст, задумка не будет работать.

Все постоянно, логин и пароль меняются
и файлов несколько, в которых надо менять логин и пароль

У меня игровой клуб, там 30 компов. Часто выходят из строя, я устанавливаю все по новой, а данный скрипт превращал бы мои ярлыки, с пустыми паролями и логинами в ярлыки с нужными мне паролями и логинами.

Думаю ты опять не поймешь то чего я хочу достичь.

Ладно, спасибо за предыдущий скрипт. Зачем почему не важно, главное это было нужно. Поищу еще сам. Спасибо еще раз)

Добавлено через 3 минуты

Сообщение от FlasherX

А накатывать только ярлыки, которые их вызывают.

Дело в том что ярлыки накатывать мне нельзя, это приводит к тому что они пропадают из меню ПУСК. Что приводит к необходимости отключать запреты на изменение меню пуск, потом закреплять ярлыки туда и включать запреты./
На то и есть скрипты, которые выполняют функции ярлыка с командной строкой -login blabla blabla

Добавлено через 41 секунду
А на эти скрипты уже я сделал ярлыки и закрепил их в ПУСК

Добавлено через 36 секунд
Получается меняя что то в скрипте, для Windows не происходит изменений, а значит ярлыки не пропадают из меню ПУСК. Закрепленные на начальном экране.

Добавлено через 1 минуту
и так, благодаря 30 файлам, в которых я выставлю разные пороли логини и номера всякие, я буду любой ПК превращать в 1 или в 30 или в любой другой нумерации.
1 раз придется заморочиться но на будущее все упростит.

Добавлено через 18 секунд
Ландно, спасибо)

Добавлено через 1 минуту

Сообщение от FlasherX

Достаточно их разместить на шаре

и я не знаю что это значит)

FlasherX · 25.05.2022, 08:04

Сообщение от wolflonesh

логин и пароль меняются

Даже если так, то тебе останется внести правку в один единственный код на шаре без того геморроя с правкой каждого скрипта, который ты замутил.

Сообщение от wolflonesh

А на эти скрипты уже я сделал ярлыки и закрепил их в ПУСК

Переделать 6 штучек - дело нескольких минут.

@wolflonesh · 25.05.2022, 08:07 **[ТС]**

Сообщение от FlasherX

Переделать 6 штучек - дело нескольких минут.

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

Или ты это уже сделал, и я не совсем понимаю как это должно работать.

Мой вариант может и банальнее, немного геморнее, но он делает именно то что мне нужно)

FlasherX · 25.05.2022, 08:08

Сообщение от wolflonesh

и я не знаю что это значит)

Общий ресурс. См. NET SHARE и NET USE.

@wolflonesh · 25.05.2022, 08:08 **[ТС]**

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

FlasherX · 25.05.2022, 08:12

Поработай с этим. Если совсем туго будет, дам, что просишь. )

@wolflonesh · 25.05.2022, 08:14 **[ТС]**

Интересная штука это твоя NET SHARE

Сообщение от FlasherX

Общий ресурс. См. NET SHARE.

Но немного не то что мне нужно)

Добавлено через 20 секунд
Ладно, попробую сам как то справится)))

Добавлено через 2 минуты
Я вообще не дружу с кодом
Вот делать визуал это да Mansion Хотя и тут я не мастер)
У мня брат любит заниматься кодом, но мне помогать не любит, когда у меня такие непонятки))

FlasherX · 25.05.2022, 08:17

Сообщение от wolflonesh

Разовый гемор который упростит мне на оставшиеся годы жизнь)

Какой же он разовый, если

Сообщение от wolflonesh

файлов несколько, в которых надо менять логин и пароль

Не по теме:

Сообщение от wolflonesh

но мне помогать не любит, когда у меня такие непонятки))

Весёлая у вас семейка. )

@wolflonesh · 25.05.2022, 08:28 **[ТС]**

Прошарил НЕТШЕЙР, все таки думаю это совсем не то что мне нужно.
На самом деле, мне не даются подобные вещи, то что тебе кажется банальным для меня лес неизведанный)

Добавлено через 3 минуты

Не по теме:

Сообщение от FlasherX

Весёлая у вас семейка. )

Не, просто мне 33 ему 38. У каждого своих дел хватает, если бы он умел разом выдавать что мне нужно, как ты. Он бы помогал, но у него уровень куда ниже. Просто при желании сел бы и разобрался, а я при всем желании не разберусь :D

Сообщение от FlasherX

Какой же он разовый, если

Разовый в смысле, он используется один раз при настройке компьютера. Все, дальше он спит. И так каждый раз при настройке нового компа, используется скрипт (pc001-pc030) который мне нужен и сделает все муторные настройки и все дальше в этом компе все 30 скриптов спят.
а скрипты измененные (apex, csgo, dota2) скриптами (pc001-pc030) работают в качестве командной строки для ярлыков

Добавлено через 3 минуты
А командная строка отдельно нужна что бы не производить изменения в ярлыках, ибо это приводит к необходимости дополнительных действий с моей стороны

FlasherX · 25.05.2022, 08:40

Сообщение от wolflonesh

мне не даются подобные вещи

А ты за 10 минут хотел сразу всё понять? Потестируй примеры net share/use. В cmd-разделе их полно, если справочных не хватает.

Сообщение от wolflonesh

а я при всем желании не разберусь

Разберёшься. Просто смотри руководства. Нельзя же админить клуб, не зная ключевых команд. )

Сообщение от wolflonesh

Разовый в смысле, он используется один раз при настройке компьютера.

Вот эти настройки в разы облегчатся, если сделаешь так, как я пишу. В любом случае коды редактировать придётся, что *.vbs с заменами, что *.wsf. Только *.wsf в отличии от *.vbs ты создашь один раз и больше к ним не притронешься.

Сообщение от wolflonesh

А командная строка отдельно нужна что бы не производить изменения в ярлыках

Не понял, о чём речь.

@wolflonesh · 25.05.2022, 09:07 **[ТС]**

Сообщение от FlasherX

Т. е. нет необходимости что-то менять в скриптах. Достаточно сопоставить ... с именем машины.

Но как это сделает мои ярлыки на начальном экране, именно теми что мне нужно
при условии что в самих ярлыках я не могу делать изменения
а на 1 компе у меня будет работать только один аккаунт
на втором только 2
и так до 30

Добавлено через 3 минуты
и мне всего то нужно, при ПЕРЕУСТАНОВКИ ПК, сделать 1 настройку.
Поменять фоновый рисунок рабочего стола (сделано уже)
Поменять адрес исполняемого файла клиента (сделано уже)
Поменять номер компьютера для программы ClubClient (сделано уже)
Поменять значения логинов и паролей в файлах выполняющих роль командной строки для ярлыков (пока неа)
И это делается 1 раз, при переустановке пк. Дальше, как присвоились эти значения для данного ПК, так они там и остаются. Пока снова не переустановлю ПК и тогда снова применится скрипт, который сделает из моего ПК, ПК001 или ПК025 или ПК030 и тд.

Добавлено через 1 минуту

Не по теме:

Пока я пишу, я тестирю то что ты скинул) Если что, а не просто сижу тут болтаю

Добавлено через 3 минуты
Смотри я понимаю что ты написал код, который сделает список моих поролей и логинов, который скрипт будет брать

Visual Basic
1
2
3
4
5
Select Case CreateObject("WinNTSystemInfo").ComputerName
   Case "PC1" LP = "login1 pass1"
   Case "PC2" LP = "login2 pass2"
   Case "PC3" LP = "login3 pass3"
End Select

Вот он

Но я не совсем понимаю что делает данный скрипт

Visual Basic
1
2
3
<job><script language=VBScript src="C:\Program Files\Windows Setting\Steam\CYBERNET\GetLoginPassForComp.vbs">
CreateObject("WScript.Shell").Run """D:\Games\004 - Launchers\Steam\steam.exe"" -login " & LP & " steam://rungameid/578080")
</script></job>

Он пытается запустить игру.

Добавлено через 4 минуты
А мне нужно что бы он брал пароль и логин из файла GetLoginPassForComp.vbs и подставлял его в файлы в папке CYBERNET (csgo.vbs, dota2.vbs и тд)
То есть, расположение этих файлов не может меняться, так как к ним сделаны ярлыки которые закреплены на начальном экране, которые трогать мне нельзя.
Получается, что что бы на том или ином компе я мог сделать мгновенно из (csgo.vbs, dota2.vbs и тд) команды запускающие нужный мне аккаунт.
На первом компе это будет первый аккаунт
на втором второй и тд
мне нужно именно их отредактировать.
Добавлено через 11 секунд
Может я все еще не до конца понимаю)

Добавлено через 5 минут
Я думаю вся проблема в том что я не могу тебе внятно объяснить то, что мне нужно редактировать файлы в папке (CYBERNET)
да, это скрипты, которые служат неким промежуточным звеном, между Steam.exe и Ярлыком на начальном экране. И Условия таковы что мне нужно именно менять в данных файлах значения паролей и логинов)

FlasherX · 25.05.2022, 09:10

Сообщение от wolflonesh

при условии что в самих ярлыках я не могу делать изменения
ярлыки которые закреплены на начальном экране, которые трогать мне нельзя

По какой причине?

Сообщение от wolflonesh

Поменять значения логинов и паролей в файлах выполняющих роль командной строки для ярлыков (пока неа)

Вместо 1 файла. О том и речь.

Сообщение от wolflonesh

и подставлял его в файлы в папке CYBERNET

Их надо единоразово заменить этими файлами без всяких подстановок.

@wolflonesh · 25.05.2022, 09:14 **[ТС]**

Сообщение от FlasherX

По какой причине?

По причине того что, иначе они просто пропадают с начального экрана. Так как Windows воспринимает их как новых ярлыков.

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

Добавлено через 51 секунду
Если уж не получается заменить текст в файле, то заменю файл целиком)

FlasherX · 25.05.2022, 09:20

Сообщение от wolflonesh

Так как Windows воспринимает их как новых ярлыков.

Звучит как какой-то бред.

Подробнее.

@wolflonesh · 25.05.2022, 09:25 **[ТС]**

Сообщение от FlasherX

Звучит как какой-то бред. Подробнее.

Помнишь видео, там у меня Пуск настроен так что клиенты в нем не будут лазать.
Но если ты зайдешь в ярлык, который отображается на начальном экране и поменяешь что то там, то он пропадет с начального экрана, вернется если ты все вернешь обратно
Получается что я не могу писать к steam.exe -login 2323 23424 так что бы он не пропадал из меню пуск.
Поэтому я создал скрипты, в которых я могу менять значение -login 2323 23424
А на начальном экране стоит ярлык не к стиму, а к скрипту. То что я в скрипте что то меняю не влияет на ярлык. Значит Windows довольна)

FlasherX · 25.05.2022, 09:56

Сообщение от wolflonesh

Но если ты зайдешь ... и поменяешь что то там, то он пропадет с начального экрана

Под "ты" понимается админ или клиент? Если первое, то что-то там явно через одно место настроено. Права доступа?

Сообщение от wolflonesh

То что я в скрипте что то меняю не влияет на ярлык.

Ну допустим, сделано левой ногой. Можно и те же vbs исправить (хоть с точки зрения оптимизации это будет хуже).

Windows Batch file
1
2
Execute CreateObject("Scripting.FileSystemObject").OpenTextFile("Z:\Steam\GetLoginPassForComp.vbs").ReadAll
CreateObject("WScript.Shell").Run """D:\Games\004 - Launchers\Steam\steam.exe"" -login " & LP & " steam://rungameid/578080"

Расшариваем на серваке (напр., c именем Server) папку (net share Steam=c:\Steam), потом при накатке выполняем net use z: \\Server\Steam /savecred /persistent:yes.
А файл GetLoginPassForComp.vbs будет правиться уже в обычно режиме.

@wolflonesh · 25.05.2022, 09:59 **[ТС]**

Спасибо)

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@wolflonesh 1 / 1 / 0 Регистрация: 16.11.2020 Сообщений: 70
	25.05.2022, 08:08 [ТС]
	Пойду гляну еще разок, что ты мне предложил. Хотя я сомневаюсь что это то что мне нужно) По коду уже понятно что не то) 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,822
	25.05.2022, 08:12
	Поработай с этим. Если совсем туго будет, дам, что просишь. ) 0

@wolflonesh 1 / 1 / 0 Регистрация: 16.11.2020 Сообщений: 70
	25.05.2022, 09:59 [ТС]
	Спасибо) 0

Многофункциональный скрипт (изменение реестра, замена текста в VBS скрипте и тд)

Решение