Favoritenordner verschieben bzw. umleiten

Moin liebe Gemeinde

ich bin's, der Problemhaber. Nach unzähligen Versuchen über Google und Konsorten, wo's viele Ansätze gibt aber nicht die Lösung, die wir benötigen.

Folgendes Szenario:

Win 2008 Domäne mit XP Clients (was uns wahrscheinlich hierbei im Wege steht). Wir haben diverse GPOs erstellt, die allesamt gut funktionieren. Nun kam ich an den Punkt Ordnerumleitung. Ich möchte keine Serveruserprofile und habe den Desktop-Ordner auf eine Serverfreigabe umgeleitet. Funktioniert einwandfrei - sobald ein Benutzer sich anmeldet und die GPOs greifen, wird der Ordner <Benutzername> und dort der Ordner Desktop angelegt.

Nun wollen wir das Gleiche mit den Favoriten machen. Wir können das über die GPO knicken, da die Ordnerumleitung dort nicht für XP gilt und funktioniert. Ich habe dann verschiedene Ansätze über die Registryschlüssel ausprobiert, scheiter aber immer an der Stelle, an der ich dem System die Benutzervariable %username% übergeben möchte.

Genau geht es um die Schlüssel HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites und HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites.
Wenn ich dort als Zeichenwert "\\(Servername)\Profiles\%username%\Favoriten angebe, legt mir das System spontan dort den Ordner "%username%" an anstatt den tatsächlichen Benutzernamen.

Auch der Versuch in HKLM in der Environment eine neue Umgebungsvariable anzulegen scheiterte, da auch dort die Variable %username% nicht aufgelöst wurde.

Gibt es vielleicht jemanden, der dahingehend schon erfolgreich tätig war??

Viele Grüße
Screeper

Dim objNet
On Error Resume Next 

Set objNet = CreateObject("WScript.NetWork")   

aktuellerBenutzer = objNet.UserName 
	
Set objNet = Nothing   

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")  

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites und HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites", "\\(Servername)\Profiles\" & akutellerBenutzer & "\Favoriten", "REG_SZ"  

Set WshShell = Nothing

Dim objNet

Set objNet = CreateObject("WScript.NetWork")   

aktuellerBenutzer = objNet.UserName 
	
Set objNet = Nothing   

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")  

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites","\\ilva\Profiles\" & aktuellerBenutzer &  "\Favoriten", "REG_SZ"  

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites","\\ilva\Profiles\" & aktuellerBenutzer & "\Favoriten", "REG_SZ"  

Set WshShell = Nothing