[serge_a]

помогите с помощью БАТника создать папку с именем, содержащим сегодняшнюю дату (например "backup_14.01.06") и скопировать в неё содердимое другой папки, идеальный вариант- если при этом ещё удастся предварительно упаковать это содержимое(но это не так важно). заранее благодарен

[Savant]

serge_a
Я уже довольно давно пользуюсь на 2к3 сервере следующим скриптом (код. стр. 866)

Код:

@cls
 
@rem ‘ЄаЁЇв аеЁў жЁЁ д ©«®ў %SOURCE% Ї®б।бвў®¬ аеЁў в®а RAR , гбв ­®ў«Ґ­­®Ј®
@rem ў Ї ЇЄг %RAR%. ‚ %DEST% Ўг¤Ґв ᮧ¤ ­ аеЁў ў д®а¬ ⥠%NAME%%DATETIME%.rar .
@rem %PACK_LVL% § ¤ Ґв б⥯Ґ­м б¦ вЁп , ®в 0 ¤® 5 (0 = ЎҐ§ б¦ вЁп, 5 = ¬ Єб) .
@rem Ѓг¤Ґв ¤®Ў ў«Ґ­ Ё­д®а¬ жЁп ¤«п ў®ббв ­®ў«Ґ­Ёп Ё аеЁў Ўг¤Ґв § Ў«®ЄЁа®ў ­
@rem ®в Ё§¬Ґ­Ґ­Ё©.
@rem Script code updated : 26.11.2005
 
@set "SOURCE=C:\my important data\*.*"
@set "DEST=D:\my backup data"
@set "RAR=%PROGRAMFILES%\WinRAR"
@set "NAME=backup_"
@set "DATETIME=YYYY.MM.DD-HH;MM;SS"
@set "PACK_LVL=5"
 
@"%RAR%\rar" a "-ag%DATETIME%" -idc -k -m%PACK_LVL% -oc -os -ow -r -rr3p "%DEST%\%NAME%" "%SOURCE%"

Требуется rar/winrar . Создается не папка, а архив папки. В принципе для ввода текущей даты куда-либо можно использовать глобальную переменную %DATE% , например md backup_%DATE% . Подробнее см. справку команды set

[MonsterMax SPB]

Savant супер! А еще с синтаксисом 7zip плиз

[MC_Dimka]

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

[hasherfrog]

MC_Dimka
>> и желательно чтоб пароль брался из файла
Применительно к BAT - Секьюрность очень уж маленькая.
Лучше всё-таки бинарник скомпилить.

[Vadikan]

Куда-то исчезло окно в котором я писал, так что напечатаю еще раз. Я и не знал (или забыл), что такая тема есть, а то давно бы уже спросил. Есть скрипт у меня недоделаный для импорта пользовательских (HKCU) настроек во все локальные профили после установки системы. Слепил я его на основе того, что мне прислал один из участников конференции

Код:

@echo off
:: Get the profiles directory from the registry
for /f "usebackq tokens=3,3* delims==	" %%i in (`reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" /v ProfilesDirectory`) do set profiles=%%i
:: Set the profiles dir as %profiles%
for /f "usebackq delims==" %%i in (`echo %profiles%`) do set profiles=%%i

::For all folders (usernames) in the profiles dir except for the All Users (and %Username% - ???) 
:: load the profile hive into HKU\Custom and import the tweak. 

:: помимо папки All Users надо исключить еще и %USERNAME%, т.к. его профиль не подгрузишь - он занят
:: ну он просто ошибку выдает, но некрасиво как-то :) 
for /f "usebackq tokens=1,1* delims==" %%i in (`dir /b "%profiles%"`) do (
 if /i "%%i" neq "All Users" (
   reg load HKU\custom "%profiles%\%%i\NTUSER.DAT"
   regedit /s tweak.reg	
   reg unload HKU\custom
   )
)

pause
exit

Значит находим папку с профилями, берем оттуда названия папок (usernames) и для каждого кроме All Users (if /i "%%i" neq "All Users") загружаем NTUSER.dat и импортируем твик. Но при таком переборе свой профиль не загрузишь, т.к. он используется. Попытка импорта в него выдает ошибку. И хотя скрипт и продолжает отработку, как-то некрасиво

Можно как-то сформулировать два условия сразу: если значение не равно All Users или не равно %username%, то выполняем скрипт дальше.

[MC_Dimka]

hasherfrog

Секьюрность очень уж маленькая.

да мне все равно какая секьюрность....хоть скажите как зделать чтоб при вводе символов они не отображались (или были ****))

[amel27]

Можно как-то сформулировать два условия сразу: если значение не равно All Users или не равно %username%, то выполняем скрипт дальше.

можно например так... если конечно я правильно понял:

Код:

For /F "usebackq tokens=* delims==" %%i in (`DIR /B /AD-H-S "%profiles%" ^| FINDSTR /V /B /I /C:"All Users" /C:"%username%"`) DO (
...
)

З.Ы. хорошо бы еще и reg-файл не редактировать...

[amel27]

да мне все равно какая секьюрность....хоть скажите как зделать чтоб при вводе символов они не отображались (или были ****))

Для XP/2003 можно сделать на WSH. Например, текст start.vbs:

Код:

Set objPWD = CreateObject("ScriptPW.Password") 
Set objWSH = CreateObject("WScript.Shell") 
 
WScript.StdOut.Write "Please enter your password:" 
strPassword = objPWD.GetPassword() 
 
If strPassword = "password" Then
	objWSH.Run ("notepad")
End If

запуск:

Код:

cscript start.vbs

[MC_Dimka]

amel27
Чет нече не запускает...