Pergunta : Certificado de VB - gota Shortcut em todo o usuário Deskop

Nós temos o tipo dois de estações de trabalho em nosso ambiente da empresa. quiosque do

1. - para baixo estações de trabalho fechados registradas em um cliente de único usuário genérico.
2. administrativo - estações de trabalho em que os usuários podem indivdually registrar. Uma pessoa específica é atribuída geralmente a este tipo de dispositivo. o

I gostaria de deixar cair uma lima do htm no desktop em ambos os tipos. O certificado que eu tenho atualmente está projetado à primeira verificação se o computername combina o username, se tão então o copia aos quiosque desktop. Se este não é o caso então deixa cair automaticamente nos computadores administrativos todos os usuários \ desktop folder.

Currently que trabalha para a estação de trabalho do quiosque mas não no administrativo. Algum pensamento a respeito de porque isto pôde ocorrer? oNetwork de Next

Dim do resumo do erro do


Option Explicit

'On, strComputer, strDesktopLNK do strUsername
Dim, strStartMenuLNK, objWMIService do strDefaultLNK
Dim, oFSO do colOSInfo
Dim, oShell, oLink, objItem, oNetwork do strOS

Set =
ork”) oFSO de/>strComputer = de oNetwork.ComputerName

Set = Wscript.CreateObject (“Scripting. oShell do
Set de FileSystemObject”) = WScript.CreateObject (“WScript. De Shell do " ) do


If oFSO.FolderExists (“ments e ajustes \” & strComputer & “\ strDesktopLNK do Desktop”) Then

= “C:\Documents and Settings\” & strComputer &” \ Desktop \ shortcut.lnkdo " oLink AJUSTADO do

=
de oShell.CreateShortcut (strDesktopLNK) oLink.TargetPath = chr (34) & “explorador de c:\program files\internet \ iexplore.exe” &
do chr (34) oLink.Arguments =
“do URL " oLink.WorkingDirectory = chr (34) & “explorador de c:\program files\internet \” &
do chr (34) oLink.IconLocation = “32.dll de C:\Windows\System32\shell, 21 do " strStartMenuLNK
oLink.Save

= “C:\Documents and Settings\” & strComputer &” \ do menu \ programas do começo oLink AJUSTADO do

\ shortcut.lnk do " = oShell.CreateShortcut (strStartMenuLNK)
oLink.TargetPath = chr (34) & “explorador de c:\program files\internet \ iexplore.exe” &
do chr (34) oLink.Arguments =
do “URL " oLink.WorkingDirectory = chr (34) & de “explorador c:\program files\internet \” &
do chr (34) oLink.IconLocation = de “32.dll C:\Windows\System32\shell, 21 " strDefaultLNK do
oLink.Save

Else

= de “oLink AJUSTADO do

do usuário \ Desktop C:\Documents and Settings\All \ shortcut.lnk " =
de oShell.CreateShortcut (strDefaultLNK) oLink.TargetPath = chr (34) & de “explorador c:\program files\internet \ iexplore.exe” &
do chr (34) oLink.Arguments =
do “URL " oLink.WorkingDirectory = chr (34) & de “explorador c:\program files\internet \” &
do chr (34)    oLink.IconLocation = de “32.dll C:\Windows\System32\shell, 21 " strDefaultLNK_SM do
oLink.Save

= de “usuário C:\Documents and Settings\All \ começo oLink AJUSTADO do

do menu \ shortcut.lnk " =
de oShell.CreateShortcut (strDefaultLNK_SM) oLink.TargetPath = chr (34) & de “explorador c:\program files\internet \ iexplore.exe” &
do chr (34) oLink.Arguments =
do “URL " oLink.WorkingDirectory = chr (34) & de “explorador c:\program files\internet \” &
do chr (34) oLink.IconLocation = de “32.dll C:\Windows\System32\shell, 21 "
oLink.Save

End If class= do

Resposta : Certificado de VB - gota Shortcut em todo o usuário Deskop

Peritos pesarosos… Eu encontrei a solução em outra parte.

Para sua referência, está-lhe aqui a ligação…
http://www.visualstudiodev.com/visual-basic-express-edition/trying-to-debug-receive-requested-operation-requires-elevation-48897.shtml

Esta é a peça que me ajudou…

Você aplicação tem as palavras “setup”, “atualização”, “instalar”, ou alguns dos outros frase-chaves que Vista se usa em seu heuristics para identificar programas de instalação? Em caso afirmativo, você não precisa de funcionar o estúdio visual como um administrador. Você apenas precisa de mudar o nome de seu programa ou de adicionar uma lima manifesta (que é difícil abaixo CONTRA 2005 edições) e de marcá-la de modo que Vista UAC não execute o teste do heuristics nele.

O nome de meu app teve a atualização da palavra nele…

Agradecer a qualquer um que estava tentando encontrar uma solução para mim.

Ciao!