Frage : VB Index - Tropfen abgekürzt auf allem Benutzer Deskop

Wir haben Art zwei der Arbeitsplätze in unserer Unternehmensumwelt.

1. Kioske - verriegelt hinunter die Arbeitsplätze geloggt in ein generisches Konto des einzelnen Benutzers.
2. Verwaltungs - Arbeitsplätze, die Benutzer indivdually loggen können auf. Normalerweise zugewiesen eine spezifische Person dieser Art der Vorrichtung r.

I möchte eine htm-Akte auf dem Schreibtisch auf beiden Arten fallenlassen. Der Index, den ich z.Z. habe, entworfen zur ersten Überprüfung, wenn die Computerbezeichnung das username zusammenbringt, wenn so dann sie es zu den Tischplatten Kiosken kopiert. Wenn das nicht der Fall ist dann fallenläßt er automatisch auf die Verwaltungscomputer alle Benutzer \ Schreibtisch folder.

Currently/>

Option Explicit

'On Störungs-Zusammenfassung Next

Dim oNetwork, strComputer, strUsername
Dim strDesktopLNK, strStartMenuLNK, strDefaultLNK
Dim objWMIService, 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. Shell " )


If oFSO.FolderExists („C:\Docu ments und Einstellungen \“ u. strComputer u. „\ Schreibtisch“) Then

strDesktopLNK = „C:\Documents and Settings\“ u. strComputer u.“ \ Schreibtisch \ shortcut.lnk"

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

strStartMenuLNK = „C:\Documents and Settings\“ u. strComputer u.“ \ Anfangsmenü \ -programme \ shortcut.lnk "

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

Else

strDefaultLNK = „C:\Documents and Settings\All-Benutzer \ Schreibtisch \ shortcut.lnk "

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

strDefaultLNK_SM = „C:\Documents and Settings\All-Benutzer \ Anfang Menü \ shortcut.lnk "

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

End If

Antwort : VB Index - Tropfen abgekürzt auf allem Benutzer Deskop

Traurige Experten… Ich fand die Lösung anderwohin.

Als Ihre Referenz ist hier die Verbindung zu ihr…
http://www.visualstudiodev.com/visual-basic-express-edition/trying-to-debug-receive-requested-operation-requires-elevation-48897.shtml

Dieses ist das Teil, das half mir…

Lassen Sie Anwendung die Wörter „gründen“, „Update“, „anbringen“ oder irgendwelche der anderen Schlagwortsätze, denen Vista in seiner Heuristik verwendet, um Einstellungsprogramme zu kennzeichnen? Wenn ja brauchen Sie nicht, Sichtstudio als Verwalter laufen zu lassen. Sie müssen gerade entweder den Namen Ihres Programms ändern oder eine offenkundige Akte (die addieren darunter GEGEN 2005 Ausgaben schwierig ist) und sie markieren, damit Vista UAC nicht Heuristikprüfung auf ihm durchführt.

Der Name meiner APP hatte das Wort Update in ihm…

Zu jedermann danken, das versuchte, eine Lösung für mich zu finden.

Mach's gut!