Evitar que os upgrades instalem atalhos no Windows 7 Home [duplicado]

5

Como posso evitar que instaladores e atualizações soltem atalhos no Public Desktop no Windows 7 Home?

Toda vez que eu atualizo iTunes ou firefox ou acroread ou flash ou o gimp ou tudo o que for necessário atualizar com freqüência , a atualização ninhada área de trabalho de todos, colocando um atalho em C:\Users\Public\Desktop .

Eu não me lembro desse comportamento no XP. Em vez disso, a maioria dos instaladores daria a opção de adicionar um ícone da área de trabalho ou não. Até agora, no entanto, eu não tive essa escolha no Windows 7. Estou faltando alguma coisa?

    
por pilcrow 23.11.2010 / 15:58

2 respostas

1

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 
    
por 11.12.2010 / 17:08
1

Eu acho que isso é apenas coincidência; o comportamento não deveria ter mudado no Win7. Ainda é controlado pelos instaladores. Eu certamente não vi isso acontecendo.

    
por 23.11.2010 / 17:22