' Desktop-Verkn�pfung erzeugen

LINE INPUT "Name der Verkn�pfung? ", n$
LINE INPUT "Ort (Verzeichnis) der ausf�hrbaren Datei? "; v$
LINE INPUT "Name der ausf�hrbaren Datei (ohne Pfad)? "; d$
LINE INPUT "Kommentar? "; k$
LINE INPUT "Datei, von welcher die Ikone �bernommen werden soll? "; q$

OPEN ENVIRON$("TEMP") + "\~SHORTC.VBS" FOR OUTPUT AS 1
PRINT #1, "Option Explicit"
PRINT #1, "Dim oSh, oLnk"
PRINT #1, "Set oSh = WScript.CreateObject(" + CHR$(34) + "WScript.Shell" + CHR$(34) + ")"
PRINT #1, "Set oLnk = oSh.CreateShortcut(oSh.SpecialFolders(" + CHR$(34) + "Desktop" + CHR$(34) + ") & " + CHR$(34) + "\" + n$ + ".lnk" + CHR$(34) + ")"
PRINT #1, "oLnk.TargetPath = " + CHR$(34) + v$ + "\" + d$ + CHR$(34)
PRINT #1, "oLnk.IconLocation = " + CHR$(34) + q$ + ", 0" + CHR$(34)
PRINT #1, "oLnk.Description = " + CHR$(34) + k$ + CHR$(34)
PRINT #1, "oLnk.WorkingDirectory = " + CHR$(34) + v$ + CHR$(34)
PRINT #1, "oLnk.Save"
PRINT #1, "Set oLnk = Nothing"
PRINT #1, "Set oSh = Nothing"
CLOSE 1
SHELL "cscript //NoLogo " + ENVIRON$("TEMP") + "\~SHORTC.VBS"
KILL ENVIRON$("TEMP") + "\~SHORTC.VBS"