Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('WrapAtEOL','On')

Dim $HKCUSMWCV,$Desktop

$HKCUSMWCV  = 'HKCU\Software\Microsoft\Windows\CurrentVersion'
$Desktop    = ReadValue($HKCUSMWCV+'\Explorer\Shell Folders','Desktop')
WshShortCut($Desktop + "\KiXtart Forum.url","http://www.kixtart.org")

Function WshShortCut( $path, $targetpath, optional $arguments,$startdir,$iconpath,$style)
Dim $shell,$shortcut
$shell = CreateObject('wscript.shell')
 If $shell
  $shortcut = $shell.createshortcut($path)
  If $shortcut
   $shortcut.targetpath = $targetpath
   If $arguments
    $shortcut.arguments = $arguments
   Endif
   If $startdir
    $shortcut.workingdirectory = $startdir
   Endif
   If $iconpath
    $shortcut.iconlocation = $iconpath
   Endif
   If $style
    $shortcut.windowstyle = $style
   Endif
   $shortcut.save
   $shortcut = 0
  Endif
  $shell = 0
 Endif
 Exit @error
EndFunction