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.