Quickly tried a few, but this one worked (on WinServer2003). Hasta luego.

oShell           = CREATEOBJECT("WScript.Shell")
oFso             = CreateObject("Scripting.FileSystemObject")
cwdesktopfolder  = oShell.SpecialFolders("Desktop")

lnk              = oShell.CreateShortcut(cwdesktopfolder + "\MyHelp.lnk")
lnk.TargetPath   = "D:\Program Files\IBiz\ActiveX Edition\messenger\ibizmsg.chm"
lnk.WindowStyle  = 1
lnk.Hotkey       = "CTRL+SHIFT+F"
lnk.IconLocation = "D:\Program Files\IBiz\ActiveX Edition\messenger\ibizmsg.chm, 0"
lnk.Description  = "MyHelp"
lnk.WorkingDirectory = "c:\temp"
lnk.Save

>You're welcome. :)
>
>>Sergey... muchos gracias. Bit surprised it took almost a minute on a sat nite. Emailing u a beer as i type. Thanks again.
>>
>>>>I looking to programmatically create a desktop shortcut icon in order to launch a CHM file thats been copied from a server to the workstation. Does shellexecute allow for this? Any examples?
>>>
>>>You can use WSH. See Re: How to Create Shortcuts/Get Desktop Folder Message #866827 and Message #866778