Link erstellen
Oft hat man bei der SW-Verteilung das Problem, dass Links, also Verknüpfungen im Startmenü neu erstellt werden müssen.
Um nicht jedes mal aufs neue einen Link erstellen, paketieren und verteilen zu müssen, kann man auf VBScript zurückgreifen, das für dieses Problem eine ideale Lösung ist.
'Kleine Routine zu Anlegen explizierter Links
'Kann noch erweitert werden um eine Variablisierung der Ziele/Links
'(c) db, :-)
dim fso, wshell, src, link1
Set wshell = CreateObject ("wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
src = ("C:Dokumente und EinstellungenAll UsersStartmenüProgrammeZielordner")
If Not fso.FolderExists(src) Then fso.CreateFolder (src)
'In der näxten Zeile den Namen des Links angeben
Set link1 = wshell.CreateShortcut(src & "Verknüpfung.lnk")
'Dann folgt das Ziel des Links
link1.Targetpath = "C:ProgrammeZielordnerprogramm.exe"
'Und zum Schluss die Kosmetik, nämlich der Pfad zum Icon
'Ziel kann auch eine .exe sein, nicht wahr ?
link1.Iconlocation = "C:ProgrammeZielordnerprogramm.ico,0"
link1.save