Dim WshShell, oShellLink
Dim pad
pad = “c:\scripting\oplossingen\wsh\snelkoppeling”
set WshShell = WScript.CreateObject(”WScript.Shell”)
set oShellLink = WshShell.CreateShortcut(pad & “\Kladblok.lnk”)
oShellLink.TargetPath = WshShell.ExpandEnvironmentStrings(”%WINDIR%\Notepad.exe”)
oShellLink.WindowStyle = 1
oShellLink.Hotkey = “Ctrl+Alt+E”
oShellLink.IconLocation = “shell32.dll, 27″
oShellLink.Description = “Snelkoppeling naar kladblok”
oShellLink.WorkingDirectory = WshShell.ExpandEnvironmentStrings(”%WINDIR%\temp”)
oShellLink.Save