Question : Manuscrit de VB - baisse raccourcie sur tout l'utilisateur Deskop

Nous avons le type deux de postes de travail dans notre environnement d'entreprise. kiosques du

1. - verrouillés en bas des postes de travail notés en compte d'utilisateur simple générique.
2. administratif - postes de travail sur lesquels les utilisateurs peuvent indivdually noter. Habituellement une personne spécifique est affectée à ce type de dispositif. le

I voudrait laisser tomber un dossier de htm sur l'ordinateur de bureau sur les deux types. Le manuscrit que j'ai actuellement est conçu au premier contrôle si le computername assortit l'username, si tellement alors il le copie aux kiosques de bureau. Si ce n'est pas le cas puis il laisse tomber automatiquement sur les ordinateurs administratifs tous les utilisateurs \ ordinateur de bureau folder.

Currently que cela fonctionne pour le poste de travail de kiosque mais pas sur l'administratif. Des pensées quant à pourquoi ceci pourrait se produire ? oNetwork de Next

Dim de résumé d'erreur du


Option Explicit

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

Set =
ork ») oFSO de/>strComputer = d'oNetwork.ComputerName

Set = Wscript.CreateObject (« Scripting. oShell du
Set de FileSystemObject ») = WScript.CreateObject (« WScript. De Shell " du ) du


If oFSO.FolderExists (« ments et arrangements \ » et strComputer et « \ strDesktopLNK d'ordinateur de bureau ») Then

= « C:\Documents and Settings\ » et strComputer et » \ ordinateur de bureau \ shortcut.lnk" oLink RÉGLÉ du
du
=
d'oShell.CreateShortcut (strDesktopLNK) oLink.TargetPath = chr (34) et « explorateur de c:\program files\internet \ iexplore.exe » et
de chr (34) oLink.Arguments = « 
d'URL " oLink.WorkingDirectory = chr (34) et « explorateur de c:\program files\internet \ » et
de chr (34) oLink.IconLocation = « 32.dll, 21 " strStartMenuLNK de C:\Windows\System32\shell du
oLink.Save

= « C:\Documents and Settings\ » et strComputer et » \ oLink RÉGLÉ du
du
de menu \ programmes de début \ shortcut.lnk " = oShell.CreateShortcut (strStartMenuLNK)
oLink.TargetPath = chr (34) et « explorateur de c:\program files\internet \ iexplore.exe » et
de chr (34) oLink.Arguments =
de « URL " oLink.WorkingDirectory = chr (34) et « explorateur de c:\program files\internet \ » et
du chr (34) oLink.IconLocation = 32.dll, 21 " strDefaultLNK « de C:\Windows\System32\shell du
oLink.Save

Else

= oLink RÉGLÉ du

d'utilisateur \ ordinateur de bureau de C:\Documents and Settings\All \ « shortcut.lnk " =
d'oShell.CreateShortcut (strDefaultLNK) oLink.TargetPath = chr (34) et « explorateur de c:\program files\internet \ iexplore.exe » et
de chr (34) oLink.Arguments =
de « URL " oLink.WorkingDirectory = chr (34) et « explorateur de c:\program files\internet \ » et
du chr (34)    oLink.IconLocation = 32.dll, 21 " strDefaultLNK_SM « de C:\Windows\System32\shell du
oLink.Save

= « utilisateur de C:\Documents and Settings\All \ début oLink RÉGLÉ du

de menu \ shortcut.lnk " =
d'oShell.CreateShortcut (strDefaultLNK_SM) oLink.TargetPath = chr (34) et « explorateur de c:\program files\internet \ iexplore.exe » et
de chr (34) oLink.Arguments =
de « URL " oLink.WorkingDirectory = chr (34) et « explorateur de c:\program files\internet \ » et
du chr (34) oLink.IconLocation = 32.dll, 21 "
oLink.Save

End If « de C:\Windows\System32\shell class= de

Réponse : Manuscrit de VB - baisse raccourcie sur tout l'utilisateur Deskop

Experts désolés… J'ai trouvé la solution ailleurs.

Pour votre référence, voici le lien à lui…
http://www.visualstudiodev.com/visual-basic-express-edition/trying-to-debug-receive-requested-operation-requires-elevation-48897.shtml

C'est la pièce qui m'a aidé…

Application fait-vous « installer » les mots, « mise à jour », « installer », ou l'un des d'autres phrases clés que Vista emploie en son heuristique pour identifier des programmes d'installation ? Si oui, vous n'avez pas besoin de diriger le studio visuel en tant qu'administrateur. Vous devez juste changer le nom de votre programme ou ajouter un dossier manifeste (qui est difficile dessous CONTRE 2005 éditions) et le marquer de sorte que Vista UAC ne réalise pas l'essai d'heuristique là-dessus.

Le nom de mon $$etAPP a eu la mise à jour de mot dans lui…

Remercier à n'importe qui qui essayait de trouver une solution pour moi.

Faire attention !