Dateiverknüpfung per Skript editieren?

[pampersrocker 10]

Hallo zusammen,

 

ob ich hier richtig bin, weiß ich nicht genau. Kurz und knapp aber meine Frage: Ist es möglich die Eigenschaften einer Verknüpfung automatisch zu editieren, so dass man parameter beim Öffnen übergibt?

 

Der Hintergrund ist folgender: Wir müssen eine Verknüpfung zu einem Programm editieren in deren Eigenschaften sich Sitzungsnummern befinden. Diese händisch zu ändern ist keine grandiose Lösung. Habt ihr eine Idee?

[Cybquest 36]

Mit VB-Script z.B. so in der Art:

 

Set Link=WshShell.CreateShortcut(strPath & "\" & strText & "." & strExtension)

Link.TargetPath = strProgpath & strProgexe

If Extension="LNK" then
 Link.Arguments = strArguments
 Link.Description = strDescription
 Link.HotKey = strHotkey
 'Link.IconLocation = ""
 if WindowStyle > 0 then Link.WindowStyle = lngWindowStyle
 Link.WorkingDirectory = strProgPath
end if

Link.Save

[pampersrocker 10]

Hallo,

 

danke für deine schnelle Antwort. Leider kann ich mit deinem Quellcode nicht viel anfangen, da ich mich bislang noch nicht mit dem Thema Scripting so richtig auseinander gesetzt habe. Hast du ein paar Infolinks für mich, die das Ganze da oben etwas erklären?

 

Gruß

[dadadum 10]

Alternativ zum ändern der Verknüpfung könntet ihr ein startscript verwenden das einfach die Sitzungsnummern übergibt.

 

so ala

 

@echo off

start c:\programm.exe -ID %SITZUNGSNUMMER%

 

Is halt die frage wie du die sitzungsnummer übergeben bekommst.

[Cybquest 36]

Quellen hab ich grad keine.

Probieren wir's so:

Mit der obersten Zeile wir eine Verknüpfung erzeugt.

strPath, strText, strExtension sind die Variablen, die entspr. gestetzt werden müssen. Wenn die Verknüpfung auf dem Desktop liegen soll geht z.B.:

strPath=WshShell.Specialfolders("Desktop")

strText="So heisst der Link"

strExtension="LNK"

 

Das dann erzeugte "Objekt" hat dann div. eigenschaften, die eben enstpr. gesetzt werden:

Targetpath ist der Programmaufruf, ... also so, wie man das auch auf der Eigenschaftenseite der Verknüpfung sieht.

 

Und mit der Methode Link.Save wir das Ganze dann gespeichert.

 

Also abgekürtzt als Beisiel:

Set WshShell = WScript.CreateObject("WScript.Shell")
strPath=WshShell.Specialfolders("Desktop")
Set Link=WshShell.CreateShortcut(strPath & "\" & "Mein Link.lnk")
Link.TargetPath = "c:\Windows\System32\notepad.exe"
Link.Arguments = ""
Link.Description = "Dies ist Notepad"
Link.HotKey = ""
Link.WorkingDirectory = "C:\"
Link.Save