Eu uso um pequeno script VB para mover apenas os ícones para a área de trabalho de cada usuário em vez de para o Public. Tenho certeza de que há uma maneira melhor de obter o nome de cada usuário, mas eu simplesmente codifiquei o código. Ele ainda colocará ícones no perfil de cada usuário, mas pelo menos cada pessoa pode escolher se quer ou não tê-lo.
Copie o seguinte no Notepad e salve em sua área de trabalho como um arquivo ".vbs". Alterar os usuários para coincidir com os usuários do computador. E altere a linha "dim User (4)" para o número de usuários que você possui. Se você se colocar como User (1), ele abrirá sua pasta Desktop depois de copiar os ícones, para que você possa excluir qualquer um que não queira. Quando você tiver novos ícones, clique duas vezes nele e eles serão movidos para fora da pasta "Público".
Dim ObjFso
Dim StrSourceLocation
Dim StrDestinationLocation
Dim StrSourceFileName
Dim StrDestinationFileName
dim objFileCopy
dim file
dim Users(4)
dim i
Dim SH, txtFolderToOpen
StrSourceLocation = "C:\Users\Public\Desktop"
Users(1) = "Brian"
Users(2) = "Danny"
Users(3) = "Cory"
Users(4) = "Jess"
on error Resume Next
for i = 1 to 4
StrDestinationLocation = "C:\Users\" & Users(i) & "\Desktop"
'All text files will be copied to destination
StrSourceFileName = "*.*"
'Creating the file system object
Set ObjFso = CreateObject("Scripting.FileSystemObject")
'Copying the file
ObjFso.CopyFile StrSourceLocation & "\" & StrSourceFileName, StrDestinationLocation & "\" , True
if err.Number <> 0 then
Msgbox "No files to move"
WScript.Quit
end if
Next
Set ObjFso = CreateObject("Scripting.FileSystemObject")
For Each file In ObjFso.GetFolder(StrSourceLocation).Files
file.delete
Next
Set SH = WScript.CreateObject("Shell.Application")
txtFolderToOpen = "C:\Users\" & users(1) & "\Desktop"
SH.Explore txtFolderToOpen
Set SH = Nothing