Hello Orion and welcome to the board.

Here is some example code to do a desktop shortcut. Please review the actual UDF for details on usage.

Code:
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/ubbthreads/ubbthreads.php?Cat=")
 
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


Please search the board as there are MANY posts about doing shortcuts and there are also numerous posts about displaying information during logon.

Lonkero even posted a nifty way of doing the shortcut without the UDF recently.