Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] Как получить путь к профилю другого пользователя ? (http://forum.oszone.net/showthread.php?t=138625)

mitiya 25-04-2009 00:47 1103528

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

amel27 25-04-2009 07:44 1103629

например, при помощи 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%


mitiya 25-04-2009 16:38 1103935

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

mitiya 26-04-2009 10:41 1104486

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

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 26-04-2009 16:19 1104723

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 26-04-2009 21:26 1104938

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

предлагаю перенести обсуждение сюда
так как есть еще пара проблем не относящихся к пути к профилю :)

amel27 27-04-2009 03:18 1105138

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


Время: 23:39.

Время: 23:39.
© OSzone.net 2001-