batchvbs startmenüverknüpfung erstellen
hi,
bin immernoch bei meiner installation...
allerdings schon weiter...!
nun folgendes problem mit meinem vbs script dass aus der batch erstellt wird die das prog installiert
hier mein schnipsel:
wie man sieht bin ich seit letztem mal vorangeschritten... allerdings bekomm ich folgenden fehler.... hattte noch andere aber mit diesem komm ich nicht weiter
der fehler der angezeigt wird:
C:\DOKUME~1\Justus\LOKALE~1\Temp\MakeShortCut.vbs(16, 1) WshShortcut.Save: Die Verknüpfung "C:\Dokumente und Einstellungen\Justus\Startmenü\Programme\XXX\XXX.lnk" wurde nicht gespeichert.
der script hat gut für den desktop funktionert aber nachdem ich für das startmenu geändert habe wie ihr seht.. geht er nicht mehr
wem fällt der fehler ins auge?
oder wer hat ne bessere lösung? bitte posten! würd mich über hilfe freuen! Ph
bin immernoch bei meiner installation...
allerdings schon weiter...!
nun folgendes problem mit meinem vbs script dass aus der batch erstellt wird die das prog installiert
hier mein schnipsel:
@echo off
set progtitel=XXX
set progname=XXX XXX XXX
set progdir=XXX
set progexe=XXX.exe
set zielpfad=c:\XXX
echo ' MakeShortCut.vbs >%temp%\MakeShortCut.vbs
echo. >>MakeShortCut.vbs
echo Const strProgramTitel="%progtitel%" >>%temp%\MakeShortCut.vbs
echo Const strProgram="%zielpfad%\%progexe%" >>%temp%\MakeShortCut.vbs
echo Const strProgramOrt="%zielpfad%" >>%temp%\MakeShortCut.vbs
echo Const StrProgramDescript="%progname%" >>%temp%\MakeShortCut.vbs
echo Const strProgramMenuOrt="Programme\%progdir%" >>%temp%\MakeShortCut.vbs
echo Dim objShortcut >>%temp%\MakeShortCut.vbs
echo Dim objShell >>%temp%\MakeShortCut.vbs
echo Set objShell= WScript.CreateObject("Wscript.Shell") >>%temp%\MakeShortCut.vbs
echo strLPfad=objShell.SpecialFolders("Startmenu") >>%temp%\MakeShortCut.vbs
echo Set objShortcut=objShell.CreateShortcut(strLPfad ^& _ >>%temp%\MakeShortCut.vbs
echo "\" ^& strProgramMenuOrt ^& "\" ^& strProgramTitel ^& ".lnk") >>%temp%\MakeShortCut.vbs
echo objShortcut.TargetPath= strProgram >>%temp%\MakeShortCut.vbs
echo objShortcut.Description= strProgramDescript >>%temp%\MakeShortCut.vbs
echo objShortcut.WorkingDirectory = strProgramort >>%temp%\MakeShortCut.vbs
echo objShortcut.Save >>%temp%\MakeShortCut.vbs
cscript //nologo %temp%\MakeShortCut.vbs
:: del %temp%\MakeShortCut.vbs >nul 2>nul
wie man sieht bin ich seit letztem mal vorangeschritten... allerdings bekomm ich folgenden fehler.... hattte noch andere aber mit diesem komm ich nicht weiter
der fehler der angezeigt wird:
C:\DOKUME~1\Justus\LOKALE~1\Temp\MakeShortCut.vbs(16, 1) WshShortcut.Save: Die Verknüpfung "C:\Dokumente und Einstellungen\Justus\Startmenü\Programme\XXX\XXX.lnk" wurde nicht gespeichert.
der script hat gut für den desktop funktionert aber nachdem ich für das startmenu geändert habe wie ihr seht.. geht er nicht mehr
wem fällt der fehler ins auge?
oder wer hat ne bessere lösung? bitte posten! würd mich über hilfe freuen! Ph
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 48345
Url: https://administrator.de/forum/batchvbs-startmenueverknuepfung-erstellen-48345.html
Ausgedruckt am: 23.12.2024 um 10:12 Uhr
5 Kommentare
Neuester Kommentar
Hallo,
also ich weiß nicht, warum das immer alles so kompliziert gemacht wird.
set WshShell = WScript.CreateObject("WScript.Shell")
strStartMenu = WshShell.SpecialFolders("StartMenu")
set oShellLink = WshShell.CreateShortcut(strStartMenu & "\I_O.lnk")
oShellLink.TargetPath = "Zielpfad\Datei"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "Ctrl+q"
oShellLink.IconLocation = "Notepad.exe, 0"
oShellLink.Description = "I_O"
oShellLink.WorkingDirectory = strTargetPath
oShellLink.Save
Den Hotkey (Tastenfolge zum Aufruf) kannst du auch weglassen. Klappt 100 pro.
MfG maneich
also ich weiß nicht, warum das immer alles so kompliziert gemacht wird.
set WshShell = WScript.CreateObject("WScript.Shell")
strStartMenu = WshShell.SpecialFolders("StartMenu")
set oShellLink = WshShell.CreateShortcut(strStartMenu & "\I_O.lnk")
oShellLink.TargetPath = "Zielpfad\Datei"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "Ctrl+q"
oShellLink.IconLocation = "Notepad.exe, 0"
oShellLink.Description = "I_O"
oShellLink.WorkingDirectory = strTargetPath
oShellLink.Save
Den Hotkey (Tastenfolge zum Aufruf) kannst du auch weglassen. Klappt 100 pro.
MfG maneich
Hallo Phlegma!
In VBScript könntest Du mit der ".SubFolders"-Collection bei "C:\Programme" ansetzen und jeden Unterordner (mit der ."Files"-Aufzählung) auf Exe-Dateien absuchen - wie man mit dem dann gefundenen Pfad Shortcuts erstellt, wüsstest Du ja.
Für die manuelle Vorgangsweise á la "2 Explorer-Fenster und Drag and Drop der Exe-Dateien (mit Strg-Umsch)" hätte ich vielleicht noch etwas anzubieten: Um das lästige "Verknüpfung mit" vor dem Namen zu vermeiden, bräuchtest Du einen Registry Eintrag "Link" (REG_BINARY, Werte 00 00 00 00) unter "Explorer" (oder Du verwendest gleich diese .reg-Datei):
Auf jeden Fall: Gutes Gelingen.
Grüße
bastla
In VBScript könntest Du mit der ".SubFolders"-Collection bei "C:\Programme" ansetzen und jeden Unterordner (mit der ."Files"-Aufzählung) auf Exe-Dateien absuchen - wie man mit dem dann gefundenen Pfad Shortcuts erstellt, wüsstest Du ja.
Für die manuelle Vorgangsweise á la "2 Explorer-Fenster und Drag and Drop der Exe-Dateien (mit Strg-Umsch)" hätte ich vielleicht noch etwas anzubieten: Um das lästige "Verknüpfung mit" vor dem Namen zu vermeiden, bräuchtest Du einen Registry Eintrag "Link" (REG_BINARY, Werte 00 00 00 00) unter "Explorer" (oder Du verwendest gleich diese .reg-Datei):
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"Link"=hex:00,00,00,00
Auf jeden Fall: Gutes Gelingen.
Grüße
bastla