Userprofile und Desktopbild wandert nicht mit

Hallo,

beziehe mich hier auf den Beitrag:


Arbeite unter Windows 2003 Server und einer Dömane. Die Userprofile funktionieren 1A. Nur das Script aus dem Beitrag nicht.

Bekomme immer ein:

Zeile: 25
Zeichen: 2
Fehler: Nicht Abgeschlossener Entitätsverweis - entsprechendes ';' nicht gefunden

Hier meine Datei (wallpaper.wsf):

[job]
[script language="VBScript"]

Dim wshShell, sAppData, sWallpaper, fso
Set wshShell = WScript.CreateObject( "WScript.Shell" )
sAppData = wshShell.ExpandEnvironmentStrings( "%APPDATA%" )

If IsNull( sAppData ) Or Len( sAppData ) = 0 Then
WScript.Quit
End If

sAppData = sAppData & "\Microsoft\Wallpaper1.bmp"
sWallpaper = wshShell.RegRead( "HKCU\Control Panel\Desktop\Wallpaper" )

If IsNull( sWallpaper ) Or Len( sWallpaper ) = 0 Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then
WScript.Quit
End If

Set fso = WScript.CreateObject( "Scripting.FileSystemObject" )
fso.CopyFile sWallpaper, sAppData
wshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sAppData

[/script]
[/job]