cbli
Goto Top

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

Content-Key: 46158

Url: https://administrator.de/contentid/46158

Printed on: April 25, 2024 at 07:04 o'clock

Member: bastla
bastla Dec 06, 2006 at 13:14:31 (UTC)
Goto Top
Hallo Claus!

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
Member: cbli
cbli Dec 06, 2006 at 14:23:13 (UTC)
Goto Top
Hat wunderbar funktioniert Bastla.
Vielen Dank dafür. Du bist ein Ass !!!!
Thread kann geschlossen werden.


Gruß
Claus