Verknüpfung in vbs erzeugen

Schönen guten Nabend!

Seit einer Weile versuche ich, mir mittels vbs eine Verknüpfung erzeugen zu lassen.
Dazu habe ich mir die Anleitungen von bastla durchgelesen.
Mein Problem ist allerdings, dass ich als Speicherort "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\shortcut.lnk" brauche
und als Ziel den Pfad, indem die vbs ausgeführt wird & \bum.exe (entspräche in Batch: %~dp0\bum.exe)

Bisher habe ich es so versucht:

Set oShell = CreateObject("Wscript.Shell")  
strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")  


Set fso = CreateObject("Scripting.FileSystemObject")  
ZielDingens = fso.GetParentFolderName(WScript.ScriptFullName)


Set objShell = CreateObject("WScript.Shell")  
sShortcut = (strUserProfile & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\shortcut.lnk")  
set objLink = objShell.CreateShortcut(sShortcut)
objLink.TargetPath = "ZielDingens"  
objLink.Save

Die Verknüpfung wird mit dem richtigen Pfad erstellt, aber das Ziel stimmt nicht.
Er löst die Variable "ZielDingens" nicht auf und schreibt noch den Pfad zum Desktop davor.

Wäre echt super, wenn ihr ne spontane Idee hättet.

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 261836

Url: https://administrator.de/forum/verknuepfung-in-vbs-erzeugen-261836.html

Ausgedruckt am: 22.12.2024 um 21:12 Uhr

9 Kommentare

Neuester Kommentar

Im Moment der Frageerstellung noch einmal kurz nachgedacht und Zzzzong - Fehler gefunden.
So geht's:

Set oShell = CreateObject("Wscript.Shell")  
 strUserProfile = oShell.ExpandEnvironmentStrings("%USERPROFILE%")  


 Set fso = CreateObject("Scripting.FileSystemObject")  
 ZielDingens = fso.GetParentFolderName(WScript.ScriptFullName)


 Set objShell = CreateObject("WScript.Shell")  
 sShortcut = (strUserProfile & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\shortcut.lnk")  
 set objLink = objShell.CreateShortcut(sShortcut)
 objLink.TargetPath = (ZielDingens & "\bum.exe")  
 objLink.Save

(Ich habe nur Zeile 13 geändert)

Für Verbesserungsvorschläge bin ich immer offen.

Schönen Abend!

Guten Abend,

Für Verbesserungsvorschläge bin ich immer offen.

Warum nicht einfach mit Powershell? Ist in 3-4 Zeilen erledigt.

Gruß,
Dani

Hi Dani,
Naja, Powershell-Skripte brauchen doch immer Admin-Rechte oder nicht?
Das würde bei den Benutzern zu Problemen führen.

Braucht genau die selben Rechte wie dein VBS.
Wie kommst du auf solch eine Aussage?

Hallo Domain-Jane!

Für Verbesserungsvorschläge bin ich immer offen.

z.B.:

sShortcut = objShell.SpecialFolders("StartUp") & "\shortcut.lnk"

Ansonsten reicht es auch, wenn das Shell-Object nur einmal zu erzeugt wird...

Grüße Dieter

Zitat von @Dani:

Braucht genau die selben Rechte wie dein VBS.
Wie kommst du auf solch eine Aussage?

Vermutlich durch Unwissenheit. ;)

Beim Ausführen von .ps1 Skripten kommt standardmäßig die Meldung, dass die Ausführung solcher
Skripte auf dem System deaktiviert ist.
Natürlich könnte man sich hier mit "Set-ExecutionPolicy Unrestricted" behelfen.
Allerdings setzt das wiederum Admin-Rechte voraus.

Zitat von @116301:

z.B.:

> sShortcut = objShell.SpecialFolders("StartUp") & "\shortcut.lnk"

Ansonsten reicht es auch, wenn das Shell-Object nur einmal zu erzeugt wird...

Grüße Dieter

Hi Dieter,

puh, das ist natürlich sehr elegant und hätte mir ein paar schweißtreibende Sekündchen erspart!

Also hier noch einmal die aktuelle Version:
Wenn jetzt noch jemand kommt und dafür nen Einzeiler rauskloppt, werde ich aber ungemütlich! ;)

Set oShell = CreateObject("Wscript.Shell")  

Set fso = CreateObject("Scripting.FileSystemObject")  
ZielDingens = fso.GetParentFolderName(WScript.ScriptFullName)

sShortcut = objShell.SpecialFolders("StartUp") & "\shortcut.lnk"  
set objLink = oShell.CreateShortcut(sShortcut)
objLink.TargetPath = (ZielDingens & "\bum.exe")  
objLink.Save