Vraag : VB manuscript - de Kortere weg van de Daling op Al Gebruiker Deskop

Wij hebben type twee van werkstations in ons ondernemingsmilieu.

1. Kiosken - onderaan werkstations worden gesloten op generische één enkele gebruikersrekening die worden geregistreerd.
2. Administratief - Werkstations de gebruikers indivdually waarkunnen registreren op. Gewoonlijk wordt een specifieke persoon toegewezen aan dit type van apparaat.

I zou een htmdossier op de Desktop op beide types willen laten vallen. Het manuscript dat ik momenteel wordt ontworpen aan eerste controle heb gehad als computername de gebruikersbenaming aanpast, als het het zo dan aan de kioskenDesktop kopi�ërt. Wanneer dit niet het geval is laat vallen het op de administratieve computers dan automatisch al gebruikers\ Desktop folder.

Currently het voor het kioskwerkstation maar niet aan administratief werkt. Om het even welke gedachten in verband met waarom dit zou kunnen voorkomen? de


Option Explicit

'On hervat Next

Dim oNetwork, strComputer, strUsername
Dim strDesktopLNK, strStartMenuLNK, strDefaultLNK
Dim, colOSInfo
Dim oFSO, oShell, oLink, objItem, strOS

Set oNetwork = createObject („Wscript.network“)
strComputer = oNetwork.ComputerName

Set oFSO = Wscript.CreateObject („Scripting. FileSystemObject“)
Set oShell = WScript.CreateObject („WScript. oFSO.FolderExists


)/>If („C:\Docu ments Desktop \ de“ & strComputer & „\“ en van Montages) Then

strDesktopLNK = „C:\Documents and Settings\“ & strComputer &“ \ Desktop \ shortcut.lnk"

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

strStartMenuLNK = „C:\Documents and Settings\“ & strComputer &“ van het Begin \ van het Menu GEPLAATSTE \- Programma's \ shortcut.lnk "

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

Else

strDefaultLNK = „C:\Documents and Settings\All de Desktop van de Gebruiker \ \ shortcut.lnk "

PLAATSTE oLink = oShell.CreateShortcut (strDefaultLNK)
oLink.TargetPath = chr (34) & „c:\program files\internet ontdekkingsreiziger \ iexplore.exe“ & chr (34)
oLink.Arguments = „URL "
oLink.WorkingDirectory = chr (34) & „c:\program files\internet ontdekkingsreiziger \“ & chr (34)
oLink.IconLocation = „C:\Windows\System32\shell 32.dll, 21 "
oLink.Save

strDefaultLNK_SM = „C:\Documents and Settings\All het Menu van het Begin van de Gebruiker \ \ shortcut.lnk "

PLAATSTE oLink = oShell.CreateShortcut (strDefaultLNK_SM)
oLink.TargetPath = chr (34) & „c:\program files\internet ontdekkingsreiziger \ iexplore.exe“ & chr (34)
oLink.Arguments = „URL "
oLink.WorkingDirectory = chr (34) & „c:\program files\internet ontdekkingsreiziger \“ & chr (34)
oLink.IconLocation = „C:\Windows\System32\shell 32.dll, 21 "
oLink.Save

End If

Antwoord : VB manuscript - de Kortere weg van de Daling op Al Gebruiker Deskop

Droevige Deskundigen… Ik vond elders de oplossing.

Voor uw verwijzing, hier is de verbinding aan het…
http://www.visualstudiodev.com/visual-basic-express-edition/trying-to-debug-receive-requested-operation-requires-elevation-48897.shtml

Dit is het deel dat me… hielp

Hebt „installeer“ u toepassing de woorden „opstelling“, „update“, of om het even welke andere sleutelzinnen die het Uitzicht in zijn heuristiek gebruikt om opstellingsprogramma's te identificeren? Als zo, te hoeven u om geen Visuele Studio als beheerder in werking te stellen. U moet enkel of de naam van uw programma veranderen of een duidelijk dossier (dat onder VERSUS 2005 uitgaven) moeilijk is toevoegen en het merken zodat het Uitzicht UAC heuristiek het testen op het niet uitvoert.

De naam van mijn app had de woordUpdate daarin…

Dank aan iedereen wie probeerde om een oplossing voor me te vinden.

Neem zorg!