|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] создать bat файл из vbs с опцией самоудаления (шуточный файл) |
|
|
CMD/BAT - [решено] создать bat файл из vbs с опцией самоудаления (шуточный файл)
|
|
Пользователь Сообщения: 56 |
здравствуйте. помогите пожалуйста с моей идеей розыгрыша. Есть ПК на котором стоит пароль администратора (я его знаю). Я состряпал из кусков один vbs который создает мне нужный bat файл в папке Автозагрузка. Вроде бы все сделал, но после создания bat файла он не работает, сравниваю с исходным, все вроде один в один. Исходный bat работает, выведенный из vbs не хочет, может ошибки в синтаксисе, либо есть предположение что что-то связано с кодировкой?!
Вот файл Скрытый текст
@echo off
echo. chcp 1251 >nul setlocal enableextensions enabledelayedexpansion color 1a title копирование copy your data ..... mode con: cols=28 lines=30 Echo. cls ::Эмулируем голос (асинхронный запуск) echo CreateObject("SAPI.SpVoice").Speak"Operation started... your file, sending, in United States of America, please wait,,,, ">"%temp%\speak.vbs" cscript //nologo "%temp%\speak.vbs" del "%temp%\speak.vbs" @echo off :1 chcp 1251>nul echo copy secret information ... (kopirovanie dannix...) set /a a=%a%+1 set /a nr=%nr%+2 set /a B=(%nr%+1)/5 echo. echo ============ %B% %% ========== echo ============================ if %a% LSS 3 echo. if %a%==3 echo U if %a%==4 echo UU if %a%==5 echo UUU if %a%==6 echo UUU if %a%==7 echo UUU if %a%==8 echo UUU if %a%==9 echo UUU if %a%==10 echo UUU if %a%==11 echo UUU if %a%==12 echo UUU if %a%==13 echo UUU if %a%==14 echo UUU if %a%==15 echo UUU if %a%==16 echo UUU if %a%==17 echo UUU if %a%==18 echo UUU if %a%==19 echo UUU if %a%==20 echo UUU if %a%==21 echo UUU if %a%==22 echo UUU if %a%==23 echo UUU if %a%==24 echo UUU if %a%==25 echo UU if %a%==26 echo U echo ============================ if %a% GTR 26 set /a a=0 ping localhost -n 1 >nul ping localhost -n 1 >nul if %b%==100 goto final if %b% GTR 100 goto final echo. echo. $$$$$$$$$$$$$$$$ echo. 4$$$$$$$$$$$$$$$$F echo. 4$$$$$$$$$$$$$$$$F echo. $$$$" "$$$$" "$$$$ echo. ?$F 4$$F 4$" echo. $$___$$$$___$P echo. 4$$$$$"^$$$$$% echo. "$$$ee$$$" echo. $$$$F4 echo. 4$$c $....$ ё$$r echo. ^$$$b $$$$ e$$$" echo. d$$$$$e z$$$$$b echo.4$$$*$$$$$c $$$$$*$$$r echo. "" ^*$$$be$$$*" ^" echo. "$$$$" echo. d$$P$$$b echo. d$$P $$$b echo. ed$$$" "$$$be echo. $$$$$$P $$$$$$ echo.4$$$$$P $$$$$$" echo. "*$$$" $$P echo. "" "" cls goto 1 :final chcp 1251>nul echo. echo kopirovanie dannix... echo ^>\thanks for waiting. echo. echo. Ping -n 2 127.0.0.1>nul echo CreateObject("SAPI.SpVoice").Speak"Operation complited..., please wait, thank you friend, good by ">"%temp%\speak.vbs" cscript //nologo "%temp%\speak.vbs" del "%temp%\speak.vbs" Del %0 /q это рабочий , а вот vbs который выводит но файл не рабочий Скрытый текст
Set oShell = WScript.CreateObject("WScript.Shell")
set objFSOSheduler = CreateObject("Scripting.FileSystemObject") set text = objFSOSheduler.CreateTextFile("F:\Рабочий стол\ммм.bat", 0, true) text.writeLine ("@echo off") text.WriteLine ("echo.") text.WriteLine ("chcp 1251 >nul") text.WriteLine ("setlocal enableextensions enabledelayedexpansion") text.WriteLine ("color 1a") text.WriteLine ("title копирование copy your data .....") text.WriteLine ("mode con: cols=27 lines=30") text.WriteLine ("Echo.") text.WriteLine ("") text.WriteLine ("cls") text.WriteLine ("::Эмулируем голос (асинхронный запуск)") text.WriteLine ("echo CreateObject(""SAPI.SpVoice"").Speak""Operation started... your file, sending, in United States of America, please wait,,,, "">""%temp%\speak.vbs""") text.WriteLine ("cscript //nologo ""%temp%\speak.vbs""") text.WriteLine ("del ""%temp%\speak.vbs""") text.WriteLine ("") text.WriteLine ("@echo off") text.WriteLine (":1") text.WriteLine ("chcp 1251>nul") text.WriteLine ("echo copy secret information ... (kopirovanie dannix...)") text.WriteLine ("set /a a=%a%+1") text.WriteLine ("set /a nr=%nr%+2") text.WriteLine ("set /a B=(%nr%+1)/5") text.WriteLine ("echo.") text.WriteLine ("echo ============ %B% %% ==========") text.WriteLine ("echo ============================") text.WriteLine ("if %a% LSS 3 echo.") text.WriteLine ("if %a%==3 echo U") text.WriteLine ("if %a%==4 echo UU") text.WriteLine ("if %a%==5 echo UUU") text.WriteLine ("if %a%==6 echo UUU") text.WriteLine ("if %a%==7 echo UUU") text.WriteLine ("if %a%==8 echo UUU") text.WriteLine ("if %a%==9 echo UUU") text.WriteLine ("if %a%==10 echo UUU") text.WriteLine ("if %a%==11 echo UUU") text.WriteLine ("if %a%==12 echo UUU") text.WriteLine ("if %a%==13 echo UUU") text.WriteLine ("if %a%==14 echo UUU") text.WriteLine ("if %a%==15 echo UUU") text.WriteLine ("if %a%==16 echo UUU") text.WriteLine ("if %a%==17 echo UUU") text.WriteLine ("if %a%==18 echo UUU") text.WriteLine ("if %a%==19 echo UUU") text.WriteLine ("if %a%==20 echo UUU") text.WriteLine ("if %a%==21 echo UUU") text.WriteLine ("if %a%==22 echo UUU") text.WriteLine ("if %a%==23 echo UUU") text.WriteLine ("if %a%==24 echo UUU") text.WriteLine ("if %a%==25 echo UU") text.WriteLine ("if %a%==26 echo U") text.WriteLine ("echo ============================") text.WriteLine ("if %a% GTR 26 set /a a=0") text.WriteLine ("ping localhost -n 1 >nul") text.WriteLine ("ping localhost -n 1 >nul") text.WriteLine ("if %b%==100 goto final") text.WriteLine ("if %b% GTR 100 goto final") text.WriteLine ("echo.") text.WriteLine ("echo. $$$$$$$$$$$$$$$$") text.WriteLine ("echo. 4$$$$$$$$$$$$$$$$F") text.WriteLine ("echo. 4$$$$$$$$$$$$$$$$F") text.WriteLine ("echo. $$$$"" ""$$$$"" ""$$$$") text.WriteLine ("echo. ?$F 4$$F 4$""") text.WriteLine ("echo. $$___$$$$___$P") text.WriteLine ("echo. 4$$$$$""^$$$$$%") text.WriteLine ("echo. ""$$$ee$$$""") text.WriteLine ("echo. $$$$F4") text.WriteLine ("echo. 4$$c $....$ ё$$r") text.WriteLine ("echo. ^$$$b $$$$ e$$$""") text.WriteLine ("echo. d$$$$$e z$$$$$b") text.WriteLine ("echo.4$$$*$$$$$c $$$$$*$$$r") text.WriteLine ("echo. ** ^*$$$be$$$** ^*") text.WriteLine ("echo. ""$$$$""") text.WriteLine ("echo. d$$P$$$b") text.WriteLine ("echo. d$$P $$$b") text.WriteLine ("echo. ed$$$"" ""$$$be") text.WriteLine ("echo. $$$$$$P $$$$$$") text.WriteLine ("echo.4$$$$$P $$$$$$""") text.WriteLine ("echo. ""*$$$"" $$P") text.WriteLine ("echo. """" """"") text.WriteLine ("cls") text.WriteLine ("goto 1") text.WriteLine ("") text.WriteLine (":final") text.WriteLine ("chcp 1251>nul") text.WriteLine ("echo.") text.WriteLine ("echo kopirovanie dannix...") text.WriteLine ("echo ^>\thanks for waiting.") text.WriteLine ("echo.") text.WriteLine ("echo.") text.WriteLine ("") text.WriteLine ("Ping -n 2 127.0.0.1>nul") text.WriteLine ("") text.WriteLine ("echo CreateObject(""SAPI.SpVoice"").Speak""Operation complited...,,,, thank you friend, good by "">""%temp%\speak.vbs""") text.WriteLine ("cscript //nologo ""%temp%\speak.vbs""") text.WriteLine ("del ""%temp%\speak.vbs""") text.WriteLine "" text.Close |
|
|
Отправлено: 23:48, 16-06-2020 |
|
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать еще я так и не добился в vbs чтоб он создавал файл в Автозагрузка
смотрю не сильно корректно копировалось и стало на странице, прикрепляю файлами |
|
Отправлено: 23:56, 16-06-2020 | #2 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать DJIOAN, спрашивается —
|
|
Отправлено: 02:28, 17-06-2020 | #3 |
|
Deadooshka Сообщения: 2517
|
Профиль | Отправить PM | Цитировать пробуйте cscript везде с //e:vbscript
|
|
Отправлено: 05:02, 17-06-2020 | #4 |
|
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать Не понял по поводу cscript
Iska, ответ прост со скриптами я не силен, кое как с бат файлами ковыряюсь, интересно, и мозги работают |
|
|
Отправлено: 10:43, 17-06-2020 | #5 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата DJIOAN:
|
|
|
Отправлено: 20:27, 17-06-2020 | #6 |
|
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать Спасибо, будем разбираться
|
|
Отправлено: 22:19, 17-06-2020 | #7 |
|
Пользователь Сообщения: 56
|
Профиль | Отправить PM | Цитировать спасибо за вариант, но я не стал заморачиваться и сделал из двух bat файлов
Первый, который копирует в автозагрузку (можно в него вшить самоудаление после проработки): Скрытый текст
@echo off
ver | find "5." && ( copy /y "%~dp00000.bat" "%userprofile%\Главное меню\Программы\Автозагрузка\" ) || ( copy /y "%~dp00000.bat" "%appdata%\Microsoft\Windows\Start Menu\Programs\Startup\" ) start/B mcisend play %SystemRoot%\Media\tada.wav wait exit Второй сама шутка которая тоже четко отрабатывает: Скрытый текст
@echo off
echo. chcp 1251 >nul setlocal enableextensions enabledelayedexpansion color 1a title копирование copy your data ..... mode con: cols=28 lines=30 Echo. cls ::Эмулируем голос (асинхронный запуск) echo CreateObject("SAPI.SpVoice").Speak"Operation started... your file, sending, in United States of America, please wait,,,, ">"%temp%\speak.vbs" cscript //nologo "%temp%\speak.vbs" del "%temp%\speak.vbs" @echo off :1 chcp 1251>nul echo copy secret information ... (kopirovanie dannix...) set /a a=%a%+1 set /a nr=%nr%+2 set /a B=(%nr%+1)/5 echo. echo ============ %B% %% ========== echo ============================ if %a% LSS 3 echo. if %a%==3 echo U if %a%==4 echo UU if %a%==5 echo UUU if %a%==6 echo UUU if %a%==7 echo UUU if %a%==8 echo UUU if %a%==9 echo UUU if %a%==10 echo UUU if %a%==11 echo UUU if %a%==12 echo UUU if %a%==13 echo UUU if %a%==14 echo UUU if %a%==15 echo UUU if %a%==16 echo UUU if %a%==17 echo UUU if %a%==18 echo UUU if %a%==19 echo UUU if %a%==20 echo UUU if %a%==21 echo UUU if %a%==22 echo UUU if %a%==23 echo UUU if %a%==24 echo UUU if %a%==25 echo UU if %a%==26 echo U echo ============================ if %a% GTR 26 set /a a=0 ping localhost -n 1 >nul ping localhost -n 1 >nul if %b%==100 goto final if %b% GTR 100 goto final echo. echo. $$$$$$$$$$$$$$$$ echo. 4$$$$$$$$$$$$$$$$F echo. 4$$$$$$$$$$$$$$$$F echo. $$$$" "$$$$" "$$$$ echo. ?$F 4$$F 4$" echo. $$___$$$$___$P echo. 4$$$$$"^$$$$$% echo. "$$$ee$$$" echo. $$$$F4 echo. 4$$c $....$ ё$$r echo. ^$$$b $$$$ e$$$" echo. d$$$$$e z$$$$$b echo.4$$$*$$$$$c $$$$$*$$$r echo. "" ^*$$$be$$$*" ^" echo. "$$$$" echo. d$$P$$$b echo. d$$P $$$b echo. ed$$$" "$$$be echo. $$$$$$P $$$$$$ echo.4$$$$$P $$$$$$" echo. "*$$$" $$P echo. "" "" cls goto 1 :final chcp 1251>nul echo. echo kopirovanie dannix... echo ^>\thanks for waiting. echo. echo. Ping -n 2 127.0.0.1>nul echo CreateObject("SAPI.SpVoice").Speak"Operation complited..., please wait, thank you friend, good by ">"%temp%\speak.vbs" cscript //nologo "%temp%\speak.vbs" del "%temp%\speak.vbs" Del %0 /q При условии что я пробовал еще и на компе на котором стоит пароль Админа |
|
Отправлено: 00:15, 19-06-2020 | #8 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| CMD/BAT - [решено] Можно ли с помощью bat создать нетекстовый файл?? | Sisin | Скриптовые языки администрирования Windows | 5 | 21-03-2017 13:02 | |
| CMD/BAT - [решено] Как создать bat файл для копирования. | codi28 | Скриптовые языки администрирования Windows | 4 | 21-11-2013 16:55 | |
| CMD/BAT - Помогите создать bat файл установкой софта | Impuls717 | Скриптовые языки администрирования Windows | 8 | 25-09-2013 03:01 | |
| CMD/BAT - [решено] Как создать конфигурационный файл к bat файлу | vlad_exe@vk | Скриптовые языки администрирования Windows | 10 | 22-07-2012 15:37 | |
| Как создать *.bat файл? | ssdm | Хочу все знать | 2 | 26-02-2007 09:36 | |
|
|
Время: 16:32. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
