[решено] Как получить путь к профилю другого пользователя ?

[mitiya]

В общем пишу батник для сохранения списка пользователей и некоторых настроек.
И столкнулся с такой проблемой: у некоторых пользователей профиль хранится не в папке с именем пользователя а в папке вида user.SERVER.
Соответственно чтоб скопировать какие-то файлы из профиля, мне нужно точно знать путь к профилю а не просто подставлять в стандартный путь имя пользователя.
Но вот как получить этот путь ?

[amel27]

например, при помощи PsGetSid (http://technet.microsoft.com/en-us/sysinternals/bb897417.aspx):
@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%

[mitiya]

Спасибо. То что нужно.

[mitiya]

Вот кстати то что получилось в результате. Может кому пригодится.

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

[amel27]

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

[mitiya]

Да этот код значительно меньше, но у меня вот путь
Application Data\1C\1Cv81\ibases.v8i скопировался в Application Data\1C\1Cv81\ibases.v8i\ibases.v8i плюс еще папки суда скопировались из папки 1Cv81.

предлагаю перенести обсуждение сюда (http://forum.oszone.net/showthread.php?p=1104933#post1104933)
так как есть еще пара проблем не относящихся к пути к профилю :)

[amel27]

mitiya, дублировать посты не буду - обращайтесь к модераторам, если есть "пара проблем" - формулируйте, из вашей новой темы их не видно