Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Hallo, weis jemand, wie ich mit VBScript unter NTFS den Besitzer einer Datei ermitteln kann? Vielen Dank.

Hallo,
Meinst Du den Besitzer einer Word-Datei ?
Eigenschaften von Word Documenten ließen sich so auslesen:

set Word = CreateObject("word.Application")
word.visible = false

datei = "Pfad zu Worddatei"

set docEigenschaften = word.documents.open(Datei).BuiltinDocumentProperties
for each Eigenschaft in docEigenschaften
 on error Resume next
   Liste = Liste & Eigenschaft & vbcrlf
next
Msgbox Liste 
word.quit 0

gruß struppi

Hallo Struppi,

nein, ich meine den "Besitzer" einer Datei, nicht einen Dokumentenautor. Wenn ich im Explorer rechts auf eine Datei klicke, Eigenschaften, Security, kann ich mir unter NTFS den Owner einer Datei anzeigen lassen. Es muß wohl etwas mit der ACL (Access Control List) zu tun haben.

Gruß
Alex

Hallo,
Hab gerade etwas in Weltner Buch entdeckt. "Scripting Host Werkzeugkasten"

' 6-16.vbs

set shell = CreateObject("Shell.Application")

' auf Papierkorb zugreifen
set folder = shell.NameSpace("D:\")
set folderitems = folder.items

fmtid = "{9B174B34-40FF-11D2-A27E-00C04FC30871}"

if folderitems.Count>0 then
	for each folderitem in folderitems
		besitzer = (folderitem.ExtendedProperty(fmtid & ",4"))
		list = list & folderitem.name & _
			": Besitzer ist " & besitzer & vbCr
	next
end if

MsgBox list, vbInformation

' (C) 2000 by Dr. Tobias Weltner

• Pause in einen VBS bis ein bestimmtes Programme geladen ist geht das?
• VBS Sendkeys (Tastenkürzel)
• httpget in VBS refresh
• Mit *.vbs Datei mehrere Programme starten und beenden
• VBS Registry auslesen