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:
Wenn ich einen Shortcut manuell erstelle, und die Zeile wie oben eingebe, funktioniert es ebenfalls.
Verwende ich aber ein VBS Script, wie folgendes:
Legt mir das Script in C:\temp einen neuen Shortcut an, in dem jetzt die Kommandozeile:
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?
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
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
"C:\"C:\Programme\Mozilla Firefox\Firefox.exe" http:\10.1.11.24"
Please also mark the comments that contributed to the solution of the article
Content-Key: 126878
Url: https://administrator.de/contentid/126878
Printed on: April 26, 2024 at 12:04 o'clock
2 Comments
Latest comment
Hallo Teasy30,
eigentlich sollte man schon eine gewisse Form wahren, wenn man Hilfe sucht. Ohne Anrede, ohne "Danke im Voraus" o.ä. - Knigge tut not.
Wie du siehst, gibt es für zu übergebende Argumente eine separate Eigenschaft.
Grüße
rubberman
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
Grüße
rubberman