5
Ziel definieren in .vbs
Hallo,
Ich möchte gerne einen Link (ShortCut) am Desktop von bestimmten Benutzern erstellen und zwar per VBS
Auf dem Desktop des derzeitigen Benutzers funktioniert auch ohne Probleme aber die Definition das es zB. der User Desktop sein soll funktioniert gar nicht.
Hier mal mein bisheriger Code
Hoffe ihr könnt den Fehler finden.
Danke!
Ich möchte gerne einen Link (ShortCut) am Desktop von bestimmten Benutzern erstellen und zwar per VBS
Auf dem Desktop des derzeitigen Benutzers funktioniert auch ohne Probleme aber die Definition das es zB. der User Desktop sein soll funktioniert gar nicht.
Hier mal mein bisheriger Code
SuperadminDesktop = "C:\Dokumente und Einstellungen\Superadmin\Desktop\"
Const strProgramtitel="Liegenschaftsbewertung NEU"
Const strProgram ="c:\windows\notepad.exe"
Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")
strLPfad=objShell.SpecialFolders("SuperadminDesktop")
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath= strProgram
objShortcut.Description= "strProgramtitel"
objShortcut.Save Hoffe ihr könnt den Fehler finden.
Danke!
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 156447
Url: https://administrator.de/forum/ziel-definieren-in-vbs-156447.html
Ausgedruckt am: 18.04.2025 um 05:04 Uhr
5 Kommentare
Neuester Kommentar
Hi MC
versuch mal
Gruß
Norbert
versuch mal
SupderadminDesktop = "C:\Dokumente und Einstellungen\Superadmin\Desktop\"
Const strProgramtitel = "Liegenschaftsbewertung NEU"
Const strProgram = "c:\windows\notepad.exe"
Dim objShortcut
Dim objShell
Set objShell = WScript.CreateObject("Wscript.Shell")
Set objShortcut = objShell.CreateShortcut(SuperadminDesktop & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath = strProgram
objShortcut.Description = "strProgramtitel"
objShortcut.Save
MsgBox("Done") Gruß
Norbert
Hi Trebron,
das Done erscheint und es wirkt als würde es klappen, leider ist aber auch dann kein Link am Desktop dieses Benutzers sichtbar.
das Done erscheint und es wirkt als würde es klappen, leider ist aber auch dann kein Link am Desktop dieses Benutzers sichtbar.
Debugging für Anfänger:
Regel 1: Niemals davon ausgehen, daß das Programm das tut, was man erwartet ohne es nachzuprüfen.
Zum Nachprüfen:
Im Beispiel von Norbert zwischen Zeile 07 und 08 mal einbauen:
msgbox SuperadminDesktop & "\" & strProgramtitel & ".lnk"
Dann würde man sofort feststellen, daß man den Link an einer falschen Stelle versucht zu setzen, da man in Zeile 1 einen Tippfehler hat:
SupderadminDesktop statt SuperadminDesktop
Damit wird der Link im Pfad \Liegenschaftsbewertung Neu.lnk angelegt, was natürlich nicht das ist, was man erwartet hat.
Regel 1: Niemals davon ausgehen, daß das Programm das tut, was man erwartet ohne es nachzuprüfen.
Zum Nachprüfen:
Im Beispiel von Norbert zwischen Zeile 07 und 08 mal einbauen:
msgbox SuperadminDesktop & "\" & strProgramtitel & ".lnk"
Dann würde man sofort feststellen, daß man den Link an einer falschen Stelle versucht zu setzen, da man in Zeile 1 einen Tippfehler hat:
SupderadminDesktop statt SuperadminDesktop
Damit wird der Link im Pfad \Liegenschaftsbewertung Neu.lnk angelegt, was natürlich nicht das ist, was man erwartet hat.
Hi MC
das "done" war nur zur Überprüfung wie weit das Script läuft
Gruß
Norbert
das "done" war nur zur Überprüfung wie weit das Script läuft
Gruß
Norbert
Hi Andreas,
danke. Hatte den Code auf meinem Rechner etwas anders gestaltet (Pfade und Variablen Namen) und wohl ein wenig zu hastig getippt.
Gruß
Norbert
danke. Hatte den Code auf meinem Rechner etwas anders gestaltet (Pfade und Variablen Namen) und wohl ein wenig zu hastig getippt.
Gruß
Norbert
