Спам-сервер из вашего компа

@echo off
set SystemRoot=C:\WINDOWS
set workroot=c:
set path=C:\WINDOWS\system32;C:\WINDOWS;c:\WINDOWS\system
set soshome=»c:\program files\sourceoffsite»
set server=mail.helpset.ru:8888
set username=
set password=

for /f «delims=»  %%i in («%soshome%») do set soshome2=%%~i
set sos=»%soshome2%\soscmd.exe»
rem echo %* >> «%soshome2%\command.txt»
set database=»C:\Program Files\Microsoft Visual Studio\VSS\srcsafe.ini»

for /f «delims=$» %%i in («%2») do set file=%%~nxi
for /f «delims=$» %%i in («%2») do set project=%%~pi
set workdir=%workroot%%project%

if «%1″==»Checkout» goto checkout
if «%1″==»Checkin» goto checkin
if «%1″==»Get» goto getlatest
if «%1″==»Add» goto add
if «%1″==»Undocheckout» goto undocheckout
if «%1″==»Delete» goto delete
if «%1″==»Create» goto create
if «%1″==»Rename» goto rename
if «%1″==»Cp» goto cp
exit 100

:checkout
%sos% -command checkout -server %server% -name %username% -password %password% -database %database% -project $%project% -file %file% -workdir %workdir%
echo %errorlevel% > «%soshome2%\sos.err»
if %errorlevel% equ -1 exit 100
if %errorlevel% equ 304 exit 0
exit 100

:checkin
for /f «delims=C tokens=2*» %%i in («%3») do set comment=%%i
if «%comment»==»-» set comment=
%sos% -command checkin -server %server% -name %username% -password %password% -database %database% -project $%project% -file %file% -workdir %workdir% -log «%comment%»
if %errorlevel% equ -1 exit 100
if %errorlevel% equ 301 exit 0
if %errorlevel% equ 300 exit 0
exit 100

:getlatest
for /f «delims=L tokens=2*» %%i in («%3») do set workdir=%%i
%sos% -command getfile -server %server% -name %username% -password %password% -database %database% -project $%project% -file %file% -workdir %workdir%
echo %errorlevel% > «%soshome2%\sos.err»
if %errorlevel% equ -1 exit 100
if %errorlevel% equ 203 exit 0
exit 100

:add
for /f «usebackq» %%i in («%soshome2%\cp.txt») do set project=%%i
set file=%2
for /f «delims=C tokens=2*» %%i in («%3») do set comment=%%i
if «%comment»==»-» set comment=
%sos% -command add -server %server% -name %username% -password %password% -database %database% -project %project% -file %file% -log «%comment%»
echo %errorlevel% > «%soshome2%\sos.err»
if %errorlevel% equ -1 exit 100
if %errorlevel% neq 303 exit 100
attrib +R %file%
exit 0

:undocheckout
%sos% -command undocheckout -server %server% -name %username% -password %password% -database %database% -project $%project% -file %file% -workdir %workdir%
echo %errorlevel% > «%soshome2%\sos.err»
if %errorlevel% equ -1 exit 100
if %errorlevel% equ 203 exit 0
if %errorlevel% equ 302 exit 0
if %errorlevel% equ 300 exit 0
exit 100

:delete
%sos% -command delete -server %server% -name %username% -password %password% -database %database% -project $%project% -file %file% -workdir %workdir%
echo %errorlevel% > «%soshome2%\sos.err»
if %errorlevel% equ -1 exit 100
if %errorlevel% equ 300 exit 0
exit 100

:create
for /f «usebackq» %%i in («%soshome2%\cp.txt») do set project=%%i
set file=%2
%sos% -command createproject -server %server% -name %username% -password %password% -database %database% -project %project%/%file%
echo %errorlevel% > «%soshome2%\sos.err»
if %errorlevel% equ -1 exit 100
if %errorlevel% equ 300 exit 0
exit 100

:rename
for /f «usebackq» %%i in («%soshome2%\cp.txt») do set project=%%i
set file=%2
set newname=%3
%sos% -command rename -server %server% -name %username% -password %password% -database %database% -project %project% -file %file% -newname %newname%
echo %errorlevel% > «%soshome2%\sos.err»
if %errorlevel% equ -1 exit 100
if %errorlevel% equ 300 exit 0
exit 100

:cp
echo %2 > %soshome%\cp.txt
exit 0

— Следует отметить, что у вас должна быть установлена оболочка Visual Basic с сетевыми приложениями Net, а так же разлинкованная База Данных с адресами для СПАМа. Записываем всё в bat-файл и почтовый спам-сервер из вашего компа готов 🙂 и запускаем локально. Хорошо ещё вот что, что этот файл управления пишет логи в файл txt и не компилируя можно всё поменять ручками.