Database Search

TechHome

• Build a Delimited Dir List for FileAppend File List
• Case Conversion Algorithm
• Change Old File and Path to New One
• Check File Date and Delete Older Files in Directory
• Check if File is Open or Exists
• Compare Directories
• Compute File Sizes
• Copy Files and Archive Attribute
• Copying Files from a Given Date
• Copying files XCOPY
• Count Keywords in Several Files
• Delete First Few Lines of a File
• Delete Temp Files Older Than
• Delimit a List of Files
• Display - Write File Contents to Screen
• Display Files in a Dialog with Case Sensitivity
• Fastest File Search Methods
• File Append for ASCII files with Ctrl-Zs in them
• File Counting and Item Counting Loop
• File List Sorted by Size
• File Mask Matching
• File or Item Extraction Loop
• FileCopy Error Handling
• FileOpen Error 1077 - Capture Additional Error Information
• FileVerInfo Constants
• FilVerInfo Returns Incorrect Version
• Get a List of Hidden Files in a Directory
• Get Date when File was Last Accessed Created Modified
• Get File Ownership in NT
• Get File Sizes Recursively
• Get Oldest or Newest File
• Get Users Home Directory
• Isolate Filename in a File Path
• List Files with Alternate Data Streams
• Merge Files with Binary Functions
• Parse Data from ASCII file using FileRead
• Progress Bar during FileCopy
• Read Part of File with BinaryRead
• Removing EOFs
• Renaming Files on an Incremental Basis
• Search for Upper Ascii Chars in File
• Sort a Flat File
• Tricky Bulk FileRename
• Write Various Quote Marks to Files

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get File Ownership in NT

Keywords:   file ownership wntOwnerGet

;################################################################################
; DisplayOwner.wbt
; A. van den Wollenberg 
;
; Creates file-/directorylist with owner
;
;################################################################################

intcontrol(5,    1,  0, 0, 0) ; Also System and Hidden files 
intcontrol(1002, 0,  0, 0, 0) ; Hide Winbatch icon
intcontrol(54,   "", 1, 0, 0) ; Stay on top

AddExtender("WWWNT34I.DLL")

time				= getexacttime()
tempfilename	= strcat(environment("TEMP"), "\DO-", strreplace(time, ":", ""), ".tmp")
tempfile 		= fileopen(tempfilename, "write")
wrkdir			= AskDirectory("Directory", "", "", "", 0) 

headerstr = strcat("Contents of Directory  ", wrkdir, " :")
filewrite(tempfile, headerstr)
filewrite(tempfile, strfill("=", strlen(headerstr)))
filewrite(tempfile, "%@CRLF%Filename            Owner")
filewrite(tempfile, "========            =====%@CRLF%")

; Get directory listing
dirchange(wrkdir)
; All files and directories, plus extra tabs
;list    = strcat(diritemize("*.*"), @TAB, fileitemize("*.*"), @TAB)
dirlist  = diritemize("*.*")
if dirlist <> "" then dirlist = strcat(dirlist, @TAB)
filelist = fileitemize("*.*")
if filelist <> "" then filelist = strcat(filelist, @TAB)
list = strcat(dirlist, filelist)

listlen = strlen(list)
if listlen == 0 
	display(2, "DisplayOwner", "No files or directories found")
	exit
endif

start = 1
while @TRUE
	finish = strscan(list, @TAB, start, @FWDSCAN)
	if finish == 0
		break
	else
		filename = strsub(list, start, finish - start)
		if strlen(filename) == 0 then break
		start = finish + 1

		ErrorMode(@OFF)
		owner = wntOwnerGet("", 0, filename, 300, 0)
		ErrorMode(@ON)
		if owner == "0"
			owner = ""
		endif
		if direxist(filename)
			filename = strcat(filename, "\")
		endif
		if strlen(filename) >= 20
			filler 	= strcat("%@CRLF%", strfill("", 20))
		else
			filename = StrFix(filename, "", 20)
			filler	= ""
		endif
		outputline = strcat(filename, filler, owner)
		filewrite(tempfile, outputline)
		
		if finish == listlen then break
	endif
endwhile

fileclose(tempfile)
run("notepad", tempfilename)
filedelete(tempfilename)

Article ID:   W14592

Filename:   Get File Ownership in NT.txt

File Created: 2001:03:01:14:46:10

Last Updated: 2001:03:01:14:46:10