AndreTMAngelika92(мы) всего лишь подразделение, а так сказать глобальные админы не желают... а квоты на группы не создаются :(
Если админы настолько глобальны :) - требуйте от них исполнения миграции в полном объёме, как положено. И вам не о чем будет беспокоиться вообще, вы и не заметите изменений...
Блин... Вы живете в каком-то идеальном мире... :) А мы в самой клоаке :( Вот именно поэтому приходится извращаться
А по существующему вопросу?
Вот нашла, как найти файлы по принадлежности, а как бы также разом сменить владельца
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
Folder = "D:\Trash" ' в котором проверяем файлы
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
Set LogStream = objFSO.OpenTextFile("C:\Owners.log", 8, True)
LogStream.WriteLine "Начало проверки: " & Now()
GetFiles Folder
ShowSubfolders objFSO.GetFolder(Folder)
LogStream.WriteLine "Конец проверки: " & Now()
LogStream.Close
Sub GetFiles(FolderPath)
Set objFolderItems = objShellApp.NameSpace(FolderPath).Items()
For Each objFolderItem In objFolderItems
FilePath = objFolderItem.Path
GetOwner FilePath
Next
End Sub
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolderItems = objShellApp.NameSpace(Subfolder.Path).Items()
For Each objFolderItem In objFolderItems
FilePath = objFolderItem.Path
GetOwner FilePath
Next
ShowSubFolders Subfolder
Next
End Sub
Sub GetOwner(FilePath)
strFile = FilePath
strComputer = "."
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMI.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem In colItems
LogStream.WriteLine "File: " & FilePath & " Owner: " & objItem.ReferencedDomainName & "\" & objItem.AccountName
Next
End sub
