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-ID: 46158

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

Ausgedruckt am: 17.11.2024 um 09:11 Uhr

bastla
bastla 06.12.2006 um 14:14:31 Uhr
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
cbli
cbli 06.12.2006 um 15:23:13 Uhr
Goto Top
Hat wunderbar funktioniert Bastla.
Vielen Dank dafür. Du bist ein Ass !!!!
Thread kann geschlossen werden.


Gruß
Claus