Fråga : VB skrivar - tappa genvägen på all användare Deskop

Vi har typ två av arbetsstationer i vår företagmiljö.

1. Låste Kiosks - besegra arbetsstationer som loggas in i ett generiskt singelanvändarekonto.
2. Administrativt - arbetsstationer som användare kan indivdually logga på. Vanligt en specifik person tilldelas till denna typ av apparaten.

I skulle något liknande för att tappa en htm sparar på det skrivbords- på båda typer. Skriva som jag har för närvarande, planläggs till den första kontrollen, om computernamen matchar usernamen, om den kopierar så därefter den till de skrivbords- kiosksna. Om detta inte är fallet därefter, den tappar automatiskt på de administrativa datorerna alla användare \ skrivbords- folder.

Currently som den fungerar för kioskarbetsstationen men inte på det administrativt. Några tankar om varför denna styrka uppstår? för felmeritförteckning för


Option Explicit

'On Next

Dim oNetwork, strComputer, strDesktopLNK för strUsername
Dim, strStartMenuLNK, objWMIService för strDefaultLNK
Dim, oFSO för colOSInfo
Dim, oShell, oLink, objItem, oNetwork för strOS

Set =
ork”) -/>strComputer = för oNetwork.ComputerName

Set oFSO = Wscript.CreateObject (”Scripting. oShell för FileSystemObject”)
Set = WScript.CreateObject (”WScript. Beskjuta strDesktopLNK för


If oFSO.FolderExists (”C:\Docu ments och inställningar \” & strComputer " för ) & ”\ som är skrivbords-”) Then

= ”C:\Documents and Settings\” & strComputer &” \ som är skrivbords- \ shortcut.lnk" oLink för
för
FASTSTÄLLD =
för oShell.CreateShortcut (strDesktopLNK) oLink.TargetPath = chr (34) & ”c:\program files\internet utforskare \ iexplore.exe” &
för chr (34) oLink.Arguments = ”URL "
oLink.WorkingDirectory = chr (34) & ”c:\program files\internet utforskare \” &
för chr (34) oLink.IconLocation = ”C:\Windows\System32\shell 32.dll, 21 " strStartMenuLNK för
oLink.Save

= ”C:\Documents and Settings\” & strComputer &” \ startmeny \ program \ shortcut.lnk " oLink för
för
FASTSTÄLLD =
för oShell.CreateShortcut (strStartMenuLNK) oLink.TargetPath = chr (34) & ”c:\program files\internet utforskare \,iexplore.exe” &
för chr (34) oLink.Arguments = ”URL-"
oLink.WorkingDirectory = chr (34) & ”c:\program files\internet utforskare \” &
för chr (34) oLink.IconLocation = ”C:\Windows\System32\shell 32.dll, 21 " strDefaultLNK för
oLink.Save

Else

= ”skrivbords- \ shortcut.lnk-"

FASTSTÄLLD oLink för för C:\Documents and Settings\All användare \ =
för oShell.CreateShortcut (strDefaultLNK) oLink.TargetPath = chr (34) & ”c:\program files\internet utforskare \ iexplore.exe” &
för chr (34) oLink.Arguments = ”URL-"
oLink.WorkingDirectory = chr (34) & ”c:\program files\internet utforskare \” & chr (34)
oLink.IconLocation = ”C:\Windows\System32\shell 32.dll, 21 " strDefaultLNK_SM för
oLink.Save

= ”C:\Documents and Settings\All användare \ start oLink för

för meny \ shortcut.lnk " FASTSTÄLLD =
för oShell.CreateShortcut (strDefaultLNK_SM) oLink.TargetPath = chr (34) & ”c:\program files\internet utforskare \ iexplore.exe” &
för chr (34) oLink.Arguments = ”URL-"
oLink.WorkingDirectory = chr (34) & ”c:\program files\internet utforskare \” &
för chr (34) oLink.IconLocation = ”C:\Windows\System32\shell 32.dll, 21 "
oLink.Save

End If " klar "

Svar : VB skrivar - tappa genvägen på all användare Deskop

Ledsna experter…, I grundar lösningen någon annanstans.

För ditt hänvisa till, är här anknyta till den…,
http://www.visualstudiodev.com/visual-basic-express-edition/trying-to-debug-receive-requested-operation-requires-elevation-48897.shtml

Denna är delen som hjälpte mig…,

Gör som dig, applikationen att ha uttrycker ”ställer in”, ”uppdateringen”, ”installera”, eller något av det annat nyckel- formulerar att utsiktbruk i dess heuristics att identifiera ställer in program? Om så, du behöver inte att köra visuellt hjälpmedelstudion som en administratör. Du behöver precis endera att ändra det känt av ditt program, eller att tillfoga en godsspecifikation spara (som är svår under VS 2005 upplagor), och markera den, så att utsikten UAC inte utför heuristics som testar på den.

Det känt av min app hade uttryckauppdateringen i den…,

Tacka till någon som var pröva att finna en lösning för mig.

Ta omsorg!