VBS - Ordner in lokales Verzeichnis kopieren bzw. überschreiben

Hey,
bin ein absoluter Neuling in VBS. Vielleicht könnt ihr mir weiterhelfen!?

Ich möchte einen Ordner vom Server in ein lokales Verzeichnis kopieren. Soweit ist alles ok. Skript läuft während des Logon, da halt alle User (unterschiedliche Anmeldenamen) diesen Ordner benötigen, kann ich im Skript leider nicht ein bestimmtes Verzeichnis anlegen (C:\Documents...\"userMAX"\hier her kopieren.


Call Ast

Sub Ast
????????????????????????????????????%USERPROFILE%--->bestimmen?????????????
????????????????????????????????????
'ZielOrdner existenz überprüfen und ggf. erstellen
set fs = CreateObject("Scripting.FileSystemObject")
if NOT fs.folderexists("%USERPROFILE%\Desktop\Templates") then
set folder = fs.createfolder("%USERPROFILE%\Desktop\Templates")
end if
'Ordner vom Server auf PC kopieren(true=überschreiben Zielordner)
fs.copyfolder "\\server\ordner\ordner1\ordner2", "%USERPROFILE%\Desktop\Templates",true
End Sub

Leider weiß ich nicht wie ich USERPROFILE bestimmen soll.

Könnt ihr mir bitte weiterhelfen!?

Vielen Dank und Grüße...

Set objShell = WScript.CreateObject("WScript.Shell")  
Wscript.Echo objShell.ExpandEnvironmentStrings("%USERPROFILE%")  

wscript.echo

Call Ast

Sub Ast

'ZielOrdner existenz überprüfen und ggf. erstellen  
set fs = CreateObject("Scripting.FileSystemObject")  
Set objShell = WScript.CreateObject("WScript.Shell")   
if NOT fs.folderexists(objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\Templates") then  
set folder = fs.createfolder(objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\Templates")  
end if
'Ordner vom Server auf PC kopieren(true=überschreiben Zielordner)  
fs.copyfolder "\\server\ordner\ordner1\ordner2", objShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\Templates",true  
End Sub