Tilføje et link til startmenu

' This code creates a shortcut.

set objWSHShell = CreateObject("WScript.Shell")

' Pass the path to the shortcut
set objSC = objWSHShell.CreateShortcut("d:\mylog.lnk")

' Description - Description of the shortcut
objSC.Description = "Shortcut to MyLog file"

' HotKey � hot key sequence to launch the shortcut
objSC.HotKey = "CTRL+ALT+SHIFT+X"

' IconLocation � Path of icon to use for the shortcut file
objSC.IconLocation = "notepad.exe, 0"  ' 0 is the index

' TargetPath = Path to source file or folder
objSC.TargetPath = "c:\windows\notepad.exe"

' Arguments � Any additional parameters to pass to TargetPath
objSC.Arguments = "c:\mylog.txt"

' WindowStyle � Type of window to create
objSC.WindowStyle = 1  ' 1 = normal; 3 = maximize window; 7 = minimize

' WorkingDirectory � Location of the working directory for the source app
objSC.WorkingDirectory = "c:\"
objSC.Save
WScript.Echo "Shortcut to mylog created"

lukker