Как получить путь к профилю другого пользователя ?
В общем пишу батник для сохранения списка пользователей и некоторых настроек.
И столкнулся с такой проблемой: у некоторых пользователей профиль хранится не в папке с именем пользователя а в папке вида user.SERVER.
Соответственно чтоб скопировать какие-то файлы из профиля, мне нужно точно знать путь к профилю а не просто подставлять в стандартный путь имя пользователя.
Но вот как получить этот путь ?
|
например, при помощи PsGetSid:
Код:
@Echo Off
Set $UserName=MyDomain\UserName
For /F "Tokens=1" %%i In ('2^>Nul PsGetSid "%$UserName%"^|FindStr /BIC:"S-"') Do Set $UserSID=%%i
For /F "Tokens=1,2*" %%i In ('REG Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%$UserSID%"^|FindStr /BIRC:" *ProfileImagePath "') Do Set $UserProfile=%%k
Echo -------------------------------------------------------------
Echo User Name : %$UserName%
Echo User SID : %$UserSID%
Echo User Profile : %$UserProfile%
|
Вот кстати то что получилось в результате. Может кому пригодится.
users_copy.bat
Код:
@echo off
SetLocal EnableDelayedExpansion
set home=%cd%
set pspath=%home%\PsTools
rd /s /q users
md users
cd /d users
for /f "tokens=1,2,3 delims= " %%A in ('net user') do (
Set /A count +=1
call :copy_user %%A
Set /A count +=1
call :copy_user %%B
Set /A count +=1
call :copy_user %%C
)
echo Exit
pause
exit
:copy_user
chcp 1251
find /i "%1" %home%\exclusions.txt
if %errorlevel%==1 (
echo errorlevel=%errorlevel%
md %1
call :copy_profile %1
)
goto :eof
:copy_profile
For /F "Tokens=1" %%i In ('2^>Nul %pspath%\PsGetSid "%1"^|FindStr /BIC:"S-"') Do Set $UserSID=%%i
For /F "Tokens=1,2*" %%i In ('REG Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%$UserSID%"^|FindStr /BIRC:" *ProfileImagePath "') Do Set $UserProfile=%%k
echo user=%1
echo $UserSID=%$UserSID%
echo $UserProfile=%$UserProfile%
for /f "tokens=1,*" %%A in (%home%\settings.txt) do (
echo %%A | xcopy /E "%$UserProfile%\%%B" "%1\%%B"
)
goto :eof
в файле лежат исключения из списка пользователей. Туда можно внести пользователей которых не нужно копировать, к примеру Гость, так же там должен быть мусор который туда попадает после обработки команды net user
exclusions.txt
Код:
-------------------------------------------------------------------------------
Команда
Учетные
выполнена
записи
пользователей
успешно
успешно.
ASPNET
IUSR_SERVER
IWAM_SERVER
SUPPORT_388945a0
test
Гость
в файле settings.txt лежит список файлов который надо скопировать.
f перед строкой если надо скопировать только конкретный файл
d если всю директорию
settings.txt для примера
Код:
f Application Data\1C\1Cv81\ibases.v8i
d Application Data\Hamachi
|
mitiya, еще один вариант, exclusions.txt (только имена пользователей) - в OEM, settings.txt (только путь к файлу/папке) - в WIN кодировке:
Код:
@Echo Off
SetLocal EnableDelayedExpansion
Set Home=%cd%
If Exist users RD /S /Q users
MD users
CD users
For /F "Tokens=1,2 Delims= " %%i In ('WMIC UserAccount Get Name^,SID^,Status^|FindStr /IERC:"OK *"') Do Call :CopyUserProfile %%i %%j
Exit
:CopyUserProfile
FindStr /IXC:"%1" %Home%\exclusions.txt
If Not ErrorLevel 1 GoTo :EOF
MD %1
CHCP 1251
For /F "Tokens=1,2*" %%i In ('REG Query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\%2"^|FindStr /BIRC:" *ProfileImagePath"') Do Call Set $UserProfile=%%k
For /F "UseBackQ Tokens=* Delims=" %%A In ("%Home%\settings.txt") Do If Exist "%$UserProfile%\%%A" XCopy /E/H "%$UserProfile%\%%A" "%1\%%A\">Nul
CHCP 866
GoTo :EOF
|
Да этот код значительно меньше, но у меня вот путь
Application Data\1C\1Cv81\ibases.v8i скопировался в Application Data\1C\1Cv81\ibases.v8i\ibases.v8i плюс еще папки суда скопировались из папки 1Cv81.
предлагаю перенести обсуждение сюда
так как есть еще пара проблем не относящихся к пути к профилю :) |
mitiya, дублировать посты не буду - обращайтесь к модераторам, если есть "пара проблем" - формулируйте, из вашей новой темы их не видно
|
Время: 01:41.
© OSzone.net 2001-
