Maybe this works?
Code:
If NOT @LOGONMODE
Break On
EndIf
Dim $strDesktop, $strPrograms, $Junk
; If the folder C:\IS\ does not exist
If NOT Exist("C:\IS\")
; Create it
MD "C:\IS\"
; Create Shortcut, problem: created in active program group
$Junk = AddProgramItem("C:\IS","IS","",1,"C:\IS\")
; The shortcut is created in the all users start menu, this is the path
$stPrograms = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Common Programs")
; It should be on the desktop, this is the path
;$strDesktop = ReadValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Desktop")
$strDesktop = ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","Common Desktop")
; Move the shortcut
Move $strPrograms+"\IS.lnk" $strDesktop
EndIf