Skripte

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

Fragen und Anregungen gerne per Mail an mich.








Dateieigenschaften auslen:

Dafür habe ich ein kleines vbs um alle verfügbaren Eigenschaften aus zu lesen.

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

On Error Resume Next

Dim objShell, objFolder, objFolderItem, i, j, myFile2, datv, prodv

 

myFile2 = WScript.Arguments.Item(1)

Set FSO = CreateObject("Scripting.FileSystemObject")

Set MyFile = FSO.CreateTextFile(myFile2, TRUE)

MyFile.Close

Set FSO=CreateObject("Scripting.FileSystemObject")

sFullFileName = Wscript.Arguments(0)

Set MyFile = FSO.OpenTextFile(myFile2, 8)

If FSO.FileExists(sFullFileName) Then

    sFilePath= FSO.GetParentFolderName(sFullFileName)

    sProgram = FSO.GetFileName(sFullFileName)

    Set objShell = CreateObject("Shell.Application")

    Set objFolder = objShell.Namespace(sFilePath)

    Set objFolderItem = objFolder.ParseName(sProgram)

    Dim arrHeaders(300)

    For i = 0 To 300

                   arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)

                              if objFolder.GetDetailsOf(objFolderItem, i) = "" Then

                              else

                              MyFile.WriteLine arrHeaders(i) & "=" & objFolder.GetDetailsOf(objFolderItem, i)

                              end if

          Next

End If

 

MyFile.Close

 


 

Aufruf

 

dateiinfo.vbs Datei Ausgabedatei

 

Ergebnis in der Ausgabedatei

 

Name=dateiInfo.vbs

Größe=1,21 KB

Elementtyp=VBScript-Skriptdatei

Änderungsdatum=31.10.2016 14:01

Erstelldatum=31.10.2016 14:48

Letzter Zugriff=31.10.2016 14:48

Attribute=A

Verfügbarkeit=Offline verfügbar

Erkannter Typ=Nicht angegeben

Besitzer=xxx

Art=Programm

Bewertung=Nicht bewertet

Gesamtgröße=xxx

Computer=xxx

Dateierweiterung=.vbs

Dateiname=dateiInfo.vbs

Freier Speicherplatz=xxx

Freigegeben=Nein

Ordnername=xxx

Ordnerpfad=xxx

Ordner=xxx

Pfad=xxx

Typ=VBScript-Skriptdatei

Verknüpfungsstatus=Nicht aufgelöst

Freigabestatus=Nicht freigegeben

=Verfügbar


Bei Anwendungen Dateiversion und Produktversion