Найти файлы пользователя windows-ntfs

..или определить владельца файлов в виндовс. Поможет узнать, кто занял место на диске.
Написано “на коленке”, но работает.

Сохранить как Ownedby.vbs

'
' выводит список файлов рекурсивно, с владельцем и размером.
' запускать cscript Ownedby.vbs >text.txt
' результат импортировать в эксель, и делать что угодно :)
'
' copyright (С) Putnik http://putnik.net.ua/. All rights reserved.
' license http://www.gnu.org/copyleft/gpl.html GNU/GPL, see LICENSE.php
'
Dim start
start = "F:data"		'without trailing slash!

ShowFileList(start)

Function ShowFileList(folderspec)
	Dim fso, f, f1, fc, s
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFolder(folderspec)
	Set sf = f.SubFolders
	For Each folder in sf
'		вывод имени каталога
'		Wscript.Echo folderspec & "\" & folder.name
		GetFileOwner(folderspec & "\" & folder.name)
		ShowFileList(folderspec & "\" & folder.name)
	Next
End Function

'----------------
Sub GetFileOwner(strFolder)
	Set objShell = CreateObject ("Shell.Application")
	Set objFolder = objShell.Namespace (strFolder)
	For Each strFileName in objFolder.Items
		Wscript.echo strFolder & "\" & strFileName & _
			vbTab & objFolder.GetDetailsOf (strFileName, 1) & vbTab & _
			objFolder.GetDetailsOf (strFileName, 8)
	Next
end sub
» » » »

Оставить комментарий - Feel free to ask me in English

Он появится после того, как будет одобрен. - All comments are pre-moderated.

Внимание! Пожалуйста, не пишите в комментарии [url=... или [url]... - это будет считаться спамом. Если хотите дать ссылку - пишите просто адрес, до 2х на один коммент.
Attention! Please don't use "[url=..." or "[url]..." in comment's body or it will be deleted as spam
If you want to send me a link just type url, up to 2 urls in one comment.

Спасибо за отзыв! Thank you for a comment!