code:

---

break on

$shortcut = "%userprofile%\desktop\notepad.lnk"
$target = "notepad.exe"
$arguments  = "c:\winnt\system32\config.nt"

$= shortcut("$shortcut","$target")

exit

;
; use wsh's shell object to create a shortcut...
;
function shortcut($path,$target,optional $arguments)
;
$shell = createobject("wscript.shell")
if $shell
 $shortcut = $shell.createshortcut("$path")
 if $shortcut
  $shortcut.targetpath = "notepad.exe"
  $shortcut.arguments = "$arguments"
  $shortcut.save()
 endif
endif
$shortcut=@error
;
endfunction

---

Shawn

[This message has been edited by Shawn (edited 07 April 2001).]