@Echo on
::  *************************************
set BaseName=gal
set BasePath=C:\backup
set ArhTo=D:\backup\work
set ArhTo2=Q:\ 8269 ~ 1 \15D7~ 1 \BACKUP\WORK
set ArhTo3=z:\backup\work
set ArhFrom=C:\.ora\galt\work
::  *************************************
for /F " " %%i in ('cd') do set CurDir=%%i
cd %ArhFrom%
for /F "tokens=1-4 delims=. " %%i in ('date /t') do set DateArh=%%k%%j%%i
for /F "tokens=1-4 delims=. " %%i in ('date /t') do set CurDate=%%i.%%j.%%k
for /F "tokens=1-2 delims=: " %%i in ('time /t') do set CurMin=%%j
for /F "tokens=1-2 delims=: " %%i in ('time /t') do set CurHr=%%i
:: if /I %CurHr% LSS  10  (set CurHr= 0 %CurHr%)

Set CurTime=%CurHr%:%CurMin%
set TimeArh=%CurHr%-%CurMin%
echo --- >>%BasePath%\buckup.log
::  *** Архивация ***
echo %CurDate% %CurTime% архивация начата >>%BasePath%\buckup.log

C:\ 7 -Zip\7z.exe -r0 -y -tzip a %ArhTo%\%DateArh%_%TimeArh% @%BasePath%\incl.txt
echo %CurDate% %CurTime% архивация в : %ArhTo%\%DateArh%_%TimeArh%.zip >>%BasePath%\buckup.log
C:\ 7 -Zip\7z.exe -r0 -y -tzip a %ArhTo2%\%DateArh%_%TimeArh% @%BasePath%\incl.txt
echo %CurDate% %CurTime% архивация в : %ArhTo2%\%DateArh%_%TimeArh%.zip >>%BasePath%\buckup.log
C:\ 7 -Zip\7z.exe -r0 -y -tzip a %ArhTo3%\%DateArh%_%TimeArh% @%BasePath%\incl.txt
echo %CurDate% %CurTime% архивация в : %ArhTo3%\%DateArh%_%TimeArh%.zip >>%BasePath%\buckup.log
echo --- >>%BasePath%\buckup.log

option explicit
dim pword, strUser, objUser
pword = "megacoolpasword}123456"
strUser = "pupkinpp"
set objUser=getObject("WinNT://domain.net/" & strUser & ",user")
objUser.setPassword(pword)
objUser.SetInfo

---------------------------
Сервер сценариев Windows
---------------------------
Сценарий:	D:\setpass.vbs
Строка:	 6 
Символ:	 1 
Ошибка:	Ошибка доступа

Код:	 80070005 
Источник: 	Active Directory

---------------------------
ОК   
---------------------------