Skripte

Hier befinden sich ein paar Beispiele für Skripte mit der CMD

Fragen und Anregungen gerne per Mail an mich.








Dateialter bestimmen:

Dafür habe ich ein kleines vbs

'dateialter.vbs (FilezuPrüfen) (Ausgabedatei)

On Error Resume Next

dim myFile

dim myFile2

set objFS = CreateObject("Scripting.FilesystemObject")

set myFile = objFS.GetFile(WScript.Arguments.Item(0))

myFile2 = WScript.Arguments.Item(1)

 

Set FSO = CreateObject("Scripting.FileSystemObject")

Set MyFile = FSO.CreateTextFile(myFile2, TRUE)

MyFile.Close

            Set MyFile = FSO.OpenTextFile(myFile2, 8)

            MyFile.WriteLine ("File=" & objFS.GetFile(WScript.Arguments.Item(0)))

MyFile.WriteLine ("FileDateCreated=" & objFS.GetFile(WScript.Arguments.Item(0)).DateCreated)

MyFile.WriteLine ("TageDateCreated=" & datediff("d",objFS.GetFile(WScript.Arguments.Item(0)).DateCreated,now))

MyFile.WriteLine ("MinutenDateCreated=" & datediff("n",objFS.GetFile(WScript.Arguments.Item(0)).DateCreated,now))

MyFile.WriteLine ("FileLastModified=" & objFS.GetFile(WScript.Arguments.Item(0)).DateLastModified)

MyFile.WriteLine ("TageLastModified=" & datediff("d",objFS.GetFile(WScript.Arguments.Item(0)).DateLastModified,now))

MyFile.WriteLine ("MinutenLastModified=" & datediff("n",objFS.GetFile(WScript.Arguments.Item(0)).DateLastModified,now))

MyFile.WriteLine ("SekundenLastModified=" & datediff("s",objFS.GetFile(WScript.Arguments.Item(0)).DateLastModified,now))

MyFile.Close

 

Aufruf

 

dateialter.vbs Datei Ausgabedatei

 

Ergebnis in der Ausgabedatei

 

File=Path\file.txt

FileDateCreated=14.10.2016 11:48:33

TageDateCreated=5

MinutenDateCreated=7128

FileLastModified=14.10.2016 11:48:33

TageLastModified=5

MinutenLastModified=7128

SekundenLastModified=427697


for /f "delims== tokens=1,2" %a in ('findstr "SekundenLastModified" Ausgabedatei') do @set SekundenLastModified=%a

if %SekundenLastModified% lss xSekunden Befehl