Hello, Sergey!
Sunday May 19 2024 15:22, you wrote to All:
Или это в принципе невозможно ?
Возможно, но я не пробовал.
Вот скрипт, запускать от администратора:
$ProfilePaths = Get-ChildItem "REGISTRY::HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" |
Where-Object {$_.Name -match "^S-1-5-21*"} |
Select-Object -ExpandProperty Name -Skip 1 | Foreach {
(Get-ItemProperty "REGISTRY::$($_)" -Name "ProfileImagePath").ProfileImagePath
}
$ProfilePaths = $ProfilePaths | Where-Object {$_ -ne "C:\Users\$($env:Username)"}
$ProfilePaths | Foreach {
$Current = "$_"
$Move = $_ -replace "^C:","D:"
Move-Item -Path "$Current" -Destination "$Move"
$User = New-Object System.Security.Principal.NTAccount("$(Split-Path "$Current" -Leaf)")
$SID = $User.Translate([System.Security.Principal.SecurityIdentifier])
Set-ItemProperty "REGISTRY::HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\$($SID.Value)" -Name "ProfileImagePath" -Value "$Move"
}
Move-Item -Path "C:\Users\Default" -Destination "D:\Users\Default" Set-ItemProperty "REGISTRY::HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" -Name "Default" -Value "D:\Users\Default"
Move-Item -Path "C:\Users\Public" -Destination "D:\Users\Public" Set-ItemProperty "REGISTRY::HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" -Name "Public" -Value "D:\Users\Public"
Best regards,
dp.
--- GoldED+/LNX 1.1.5-b20230304
* Origin: All is good in St. John's Wood (2:5001/100.1)