Shortcut mit VBSerstellen, mit dem Firefox mit einer Webseite gestartet wird

Ich versuche gerade, per VBS - Script bestimmte Shortcuts zu erstellen. Leider komme ich bei einer Kleinigkeit nicht weiter, vielleicht weiss hier jemand eine Lösung.

Ziel ist es, im Startmenü einen Shortcut zu erstellen, mit dem automatisch Firefox gestartet und in Firefox eine bestimmte Webseite geöffnet wird.
Als Kommandozeileneingabe würde folgendes funktionieren:

"C:\Programme\Mozilla Firefox\Firefox.exe" http://10.1.11.24

Wenn ich einen Shortcut manuell erstelle, und die Zeile wie oben eingebe, funktioniert es ebenfalls.
Verwende ich aber ein VBS Script, wie folgendes:

Const strProgramtitel="Test"  
Const strProgram ="""C:\Programme\Mozilla Firefox\Firefox.exe"" http://10.1.11.24"  

Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")  

strLPfad="C:\Temp"  

Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")  
objShortcut.TargetPath= strProgram
objShortcut.Description= "Test"  
objShortcut.WorkingDirectory = DesktopDir

objShortcut.Save

Legt mir das Script in C:\temp einen neuen Shortcut an, in dem jetzt die Kommandozeile:

"C:\"C:\Programme\Mozilla Firefox\Firefox.exe" http:\10.1.11.24"

zu lesen ist Frage - wo kommt das "C:\" am Anfang her und warum macht der mir aus den beiden Schrägstrichen der Webadresse // einen Backslash?

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

Content-ID: 126878

Url: https://administrator.de/forum/shortcut-mit-vbserstellen-mit-dem-firefox-mit-einer-webseite-gestartet-wird-126878.html

Ausgedruckt am: 05.04.2025 um 23:04 Uhr

2 Kommentare

Neuester Kommentar

Hallo Teasy30,

eigentlich sollte man schon eine gewisse Form wahren, wenn man Hilfe sucht. Ohne Anrede, ohne "Danke im Voraus" o.ä. - Knigge tut not.

Const strProgramtitel = "Test"  
Const strProgram = """C:\Programme\Mozilla Firefox\Firefox.exe"""  
Const strArg = """http://10.1.11.24"""  
Const strLPfad = "C:\Temp"  

Dim objShortcut
Dim objShell
Set objShell = WScript.CreateObject("Wscript.Shell")  
Set objShortcut =objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")  
objShortcut.TargetPath = strProgram
objShortcut.Arguments = strArg
objShortcut.Description = "Test"  
objShortcut.WorkingDirectory = strLPfad
objShortcut.Save