Finde Files älter wie xx.xx.xxxx

[sammy2ooo 10]

Hallo Leute

 

Folgende Aufgabe:

Finde heraus welche Files auf dem Server älter sind wie 5 Jahre und wem sie gehören

 

Ansatz:

Dim fs, f, s 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFile("C:\temp\test.txt") 

datecreated = "Created: " & f.DateCreated 

WScript.Echo datecreated

 

f.DateCreated liefert nur einen String zurück. Diesen zu parsen find ich ziemlich hässlich.

 

Wie würde das die VBScript Gurus unter euch lösen?

[Cybquest 36]

datecreated liefert einen Timestamp, nicht einen String.

 

Folgende Möglichkeiten gäbs zur Formatierung z.B. in VBS:

mydate = formatdatetime(f.datelastmodified,vbshortdate)

myYear = year(f.datelastmodified)

entspr. auch "month", "day", "hour", "minute" ...

 

Da es ein Timpstamp ist, liesse sich damit auch rechnen in der Art

if f.datecreated < (Date - 356) then ...
if year(f.datecreated) < year(Date)-5 then...

[NilsK 3.045]

Moin,

 

hier ist ein Beispiel für die Datumsauswertung. Das mit dem Owner ist nicht ganz trivial, denn dafür musst du die ACLs auswerten, was per VBS keinen Spaß macht. Hierzu könnte man z.B. xcacls.vbs aus dem Skript aufrufen oder so.

 

faq-o-matic.net Alte Dateien löschen

 

Gruß, Nils

[Cybquest 36]

Irgendwo hab ich mal folgendes zum Owner in VBS gefunden:

fmtid = "{9B174B34-40FF-11D2-A27E-00C04FC30871}"
...
besitzer = (f.ExtendedProperty(fmtid & ",4"))
... 

[RanCyyD 10]

Sorry, verlesen!