Beispiele für nützliche VBS-Skripte für den Alltag unter Windows?

Ein nützliches VBScript für den Alltag könnte ein Skript sein, das regelmäßig eine Sicherung wichtiger Dateien erstellt. Hier ist ein einfaches Beispiel: ```vbscript ' VBScript to backup important files Option Explicit Dim objFSO, sourceFolder, destinationFolder, file, objShell, backupFolder ' Create FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") ' Define source and destination folders sourceFolder = "C:\Users\YourUsername\Documents\ImportantFiles" destinationFolder = "D:\Backup\ImportantFiles" ' Check if destination folder exists, if not, create it If Not objFSO.FolderExists(destinationFolder) Then objFSO.CreateFolder(destinationFolder) End If ' Create a timestamped backup folder Set objShell = CreateObject("WScript.Shell") backupFolder = destinationFolder & "\" & Year(Now) & "-" & Month(Now) & "-" & Day(Now) & "_" & Hour(Now) & "-" & Minute(Now) & "-" & Second(Now) objFSO.CreateFolder(backupFolder) ' Copy files from source to backup folder For Each file In objFSO.GetFolder(sourceFolder).Files objFSO.CopyFile file.Path, backupFolder & "\" & objFSO.GetFileName(file.Path) Next WScript.Echo "Backup completed successfully!" ' Clean up Set objFSO = Nothing Set objShell = Nothing ``` Dieses Skript kopiert alle Dateien aus dem Ordner `C:\Users\YourUsername\Documents\ImportantFiles` in einen neuen, mit einem Zeitstempel versehenen Ordner im Verzeichnis `D:\Backup\ImportantFiles`. Du kannst die Pfade an deine Bedürfnisse anpassen. Um das Skript auszuführen, speichere es mit der Dateiendung `.vbs` (z.B. `backup.vbs`) und doppelklicke darauf. Alternativ kannst du es auch über die Eingabeaufforderung oder eine geplante Aufgabe ausführen.