VBS Script für Verknüpfungserstellung auf Desktop mit Aufruf von cfg Datei
Habe folgendes Script gefunden um automatisch eine Verknüpfung auf dem Desktop anzulegen.
Const strProgramtitel="Anwendung"
Const strProgram ="c:\windows\anwendung.exe"
Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")
strLPfad=objShell.SpecialFolders("Desktop")
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath= strProgram
objShortcut.Description= "strProgramtitel"
objShortcut.Save
Funktioniert auch soweit gut,bis auf mein Problem ,daß ich die Anwendung noch mit einer cfg Datei starten muss, damit sie funktioniert.
Also quasi so:
c:\windows\anwendung.exe" ipx.cfg
Const strProgram ="c:\windows\anwendung.exe ipx.cfg"
führt aber zu einer Fehlermeldung
Wie mache ich das oder geht das gar nicht mit vbs oder batch ?
Danke
Gruß
Claus
Const strProgramtitel="Anwendung"
Const strProgram ="c:\windows\anwendung.exe"
Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")
strLPfad=objShell.SpecialFolders("Desktop")
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath= strProgram
objShortcut.Description= "strProgramtitel"
objShortcut.Save
Funktioniert auch soweit gut,bis auf mein Problem ,daß ich die Anwendung noch mit einer cfg Datei starten muss, damit sie funktioniert.
Also quasi so:
c:\windows\anwendung.exe" ipx.cfg
Const strProgram ="c:\windows\anwendung.exe ipx.cfg"
führt aber zu einer Fehlermeldung
Wie mache ich das oder geht das gar nicht mit vbs oder batch ?
Danke
Gruß
Claus
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 46158
Url: https://administrator.de/contentid/46158
Ausgedruckt am: 17.11.2024 um 09:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo Claus!
Versuch es mal so:
Grüße
bastla
Versuch es mal so:
Const strProgramtitel = "Anwendung"
Const strProgram = "c:\windows\anwendung.exe"
Const strWPath = "c:\windows\" 'Arbeitsverzeichnis
Const strArg = "ipx.cfg"
Dim objShortcut
Dim objShell
Set objShell = WScript.CreateObject("Wscript.Shell")
strLPfad = objShell.SpecialFolders("Desktop")
Set objShortcut = objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath = strProgram
objShortcut.Description = strProgramtitel
objShortcut.Arguments = strArg
objShortcut.WorkingDirectory = strWPath
objShortcut.Save
Grüße
bastla