Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] создать bat файл из vbs с опцией самоудаления (шуточный файл)

Ответить
Настройки темы
CMD/BAT - [решено] создать bat файл из vbs с опцией самоудаления (шуточный файл)

Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить PM | Цитировать


здравствуйте. помогите пожалуйста с моей идеей розыгрыша. Есть ПК на котором стоит пароль администратора (я его знаю). Я состряпал из кусков один 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

 

Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: 7z яя.7z
(1.7 Kb, 1 просмотров)

еще я так и не добился в vbs чтоб он создавал файл в Автозагрузка
смотрю не сильно корректно копировалось и стало на странице, прикрепляю файлами

Отправлено: 23:56, 16-06-2020 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Contributor


Сообщения: 27628
Благодарности: 8079

Профиль | Отправить PM | Цитировать


DJIOAN, спрашивается — нахрена зачем?
Это сообщение посчитали полезным следующие участники:

Отправлено: 02:28, 17-06-2020 | #3


Deadooshka


Сообщения: 2332
Благодарности: 619

Профиль | Отправить PM | Цитировать


пробуйте cscript везде с //e:vbscript

Отправлено: 05:02, 17-06-2020 | #4


Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить PM | Цитировать


Не понял по поводу cscript

Iska, ответ прост со скриптами я не силен, кое как с бат файлами ковыряюсь, интересно, и мозги работают

Отправлено: 10:43, 17-06-2020 | #5


Ветеран


Contributor


Сообщения: 27628
Благодарности: 8079

Профиль | Отправить PM | Цитировать


Цитата DJIOAN:
Не понял по поводу cscript »
Win-R, cmd.exe, Enter, cscript.exe /?, Enter.

Отправлено: 20:27, 17-06-2020 | #6


Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить PM | Цитировать


Спасибо, будем разбираться

Отправлено: 22:19, 17-06-2020 | #7


Пользователь


Сообщения: 50
Благодарности: 0

Профиль | Отправить 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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] создать bat файл из vbs с опцией самоудаления (шуточный файл)

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход