Benutzernamen variable für den Desktop Pfad

Hallo,
ich habe ein Problem, ich möchte ein Programm mit vbs programmieren, mit welchem man Dateien verschieben kann und ich möchte, dass es auf jedem Pc verwendbar ist, jedoch ist das Problem, dass der Benutzername im Dateipfad ( C:\Users\?\Desktop\Schule ) auf jedem Pc anders ist, daher ist meine Frage:

Wie kann ich den Benutzernamen im Dateipfad durch eine Variable ersetzen, die funktioniert und dass auf verschiedenen PC´s ?

Das Programm:

Option Explicit

' Declaration of variable
Dim objFileSystem

' Create object for filesystem access
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")

' Move file
objFileSystem.MoveFile "C:\Users\?\Desktop\Hausaufgabe.txt", "C:\Users\?\Desktop\Schule\Hausaufgabe.txt"

' Deallocate filesystem object
Set objFileSystem = Nothing

' Quit Visual Basic Script
WScript.Quit()

Das ? symbolisiert die Stelle an dem der Benutzername stehen müsste.



Ich bedanke mich im Voraus für eure Hilfe und hoffe, dass ihr mir eine Lösung geben könnt.

Benutzernamen variable für den Desktop Pfad