none
Alterar Imagem do icone de atalho de uma unidade mapeada. RRS feed

  • Pergunta

  •  

    Olá amigos,

     

    tive dúvidas sobre como mapear unidades de rede e criar atalho com VBS, solucionei meu problema e aprendi + sobre através do forum. Gostaria de saber se existe uma forma de alterar a imagem do icone através do script, isso foi solicitado pelo cliente - fiquei curioso, porém não encontrei nada pela internet nem aqui no forum .... se alguém souber uma forma ... agradeço!!!

     

     

     

    quinta-feira, 21 de agosto de 2008 00:56

Respostas

  • Olá AlyssonRies, blza ?

     

    Primeira coisa marque o post caso tenha sido util.

     

    Segue abaixo o script em vbs, neste caso estou alterando o icone que se encontra na raiz do drive d: com o nome de teste.lnk

     

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace("d:")

    Set objFolderItem = objFolder.ParseName("Teste.lnk")
    Set objShortcut = objFolderItem.GetLink

    objShortcut.SetIconLocation "C:\Windows\System32\SHELL32.dll", 09
    objShortcut.Save

     

     

    Explicação:

     

    obsShell.NameSpace            -    local onde está o atalho

    objFolder.ParseName            -    nome do atalho

    objShortcut.SetIconLocation  -    Arquivo dos icones do windows, a ordem é :

     

    1  5 09 

    2  6 10

    3  7 11

    4  8 12

     

    Ou seja estes números passam de 100, neste caso teste e escolha o icone que você gostou baseado no número.

     

    Espero que ajude

     

    Qualquer dúvida post.

     

    Att.

     

    Leonardo Duarte 

    quinta-feira, 21 de agosto de 2008 03:15

Todas as Respostas

  • Olá AlyssonRies, blza ?

     

    Primeira coisa marque o post caso tenha sido util.

     

    Segue abaixo o script em vbs, neste caso estou alterando o icone que se encontra na raiz do drive d: com o nome de teste.lnk

     

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace("d:")

    Set objFolderItem = objFolder.ParseName("Teste.lnk")
    Set objShortcut = objFolderItem.GetLink

    objShortcut.SetIconLocation "C:\Windows\System32\SHELL32.dll", 09
    objShortcut.Save

     

     

    Explicação:

     

    obsShell.NameSpace            -    local onde está o atalho

    objFolder.ParseName            -    nome do atalho

    objShortcut.SetIconLocation  -    Arquivo dos icones do windows, a ordem é :

     

    1  5 09 

    2  6 10

    3  7 11

    4  8 12

     

    Ou seja estes números passam de 100, neste caso teste e escolha o icone que você gostou baseado no número.

     

    Espero que ajude

     

    Qualquer dúvida post.

     

    Att.

     

    Leonardo Duarte 

    quinta-feira, 21 de agosto de 2008 03:15
  • São 305 icones no total, deu certinho

    quinta-feira, 10 de dezembro de 2015 13:41