if osv =  xp or osv = zk then
   if FS.FileExists(RDPpfad) then
   else
      if FS.FolderExists(RDPpfad) then
      else
         FS.CreateFolder(RDPpfad)
      end if
  end if
end if

oFSO.CopyFile "\\DC01\netlogon\RDP-Profile\FP.rdp",    sMyDocuments & _
  "\RDP-Profile\FP.rdp", OverwriteExisting
oFSO.CopyFile "\\DC01\netlogon\RDP-Profile\FP.ico",    sMyDocuments & _
"\RDP-Profile\FP.ico", OverwriteExisting