Option Explicit
Dim objFSO, objFolder, strDirectory, oShell, strUser
set oShell = WScript.CreateObject("WScript.Shell")
strUser = oShell.ExpandEnvironmentStrings("%username%")
strDirectory = "\\fileserver\Private\" & strUser & "\Outlook_Cache"
WScript.Echo strDirectory
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo "Ordner 'Outlook-Cache' wurde erstellt."
WScript.Quit

Liebe Gr?sse,
Simon