Need to create a icon on the all users desktop

[beabaul]

I have been racking my head all day trying to get a routine i've written to place an icon on the all users profile desktop. Sounds easy right?... thats what I thought..... or maybe it really is as i'm pretty new to this and not in anyway shape or form a coder by trade.

This is the part of my code i'm having a problem with and the only thing I could come up with to do it. When It runs the "FileeMove" line it does work but for whatever reason loses the icon and description set with it. I have to believe there is a much more elegant way of doing this but there dosent seem to be any sort of %allusersprofile% type variables that can be used that I can find. Any help would be much appreciated.

$FileName = "C:\millennium\iiirunner.exe"

$LinkFileName = @DesktopDir & "\Millennium.lnk"

$WorkingDirectory = @DesktopDir

$Icon = "C:\millennium\iiirunner.ico"

$IconNumber = 0

$Description = "Innovative Interfaces Millennium"

$State = @SW_SHOWMAXIMIZED

FileCreateShortcut($FileName,$LinkFileName,$WorkingDirectory,"",$Description,$Icon,"",$IconNumber,$State)

FileMove (@DesktopDir & "\millennium.lnk", "c:\documents and settings\all users\desktop")

[Yashied]

Try replace @DesktopDir to @TempDir.

[MARAN]

FileCreateShortcut(@WindowsDir & "\notepad.exe", @DesktopCommonDir & "\Shortcut to Notepad.lnk", @WindowsDir)

Edited September 8, 2009 by MARAN

[5t0n3r]

FileCreateShortcut("Path to EXE or Website address", @DesktopCommonDir & "\Name of Shortcut.lnk", "", "", "Hover over Text", "Path to icon file", "", "", "")

Edited September 14, 2009 by 5t0n3r