Well the folder redirection should really be done with a policy not with KiX, but here is some untested generic code to give you an idea.

 Code:
Dim $DesktopFolder, $WD, $MyPersonalDocs
$DesktopFolder = '\\SERVER01\USERS' + @USERID + '\Desktop'
$MyPersonalDocs = '\\SERVER01\USERS' + @USERID + '\My Documents'
If GetFileAttr($DesktopFolder) & 16
  ;Folder found do nothing
Else
  MD $DesktopFolder
EndIf
If GetFileAttr($MyPersonalDocs) & 16
  ;Folder found do nothing
Else
  MD $MyPersonalDocs
EndIf
$WD = WriteValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders','Desktop',$DesktopFolder,REG_EXPAND_SZ)
$WD = WriteValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders','Personal',$MyPersonalDocs,REG_EXPAND_SZ)