Forum Moderators: buckworks
Or you might even try something like this:
<HTML>
<HEAD>
<TITLE>Adding a desktop icon</TITLE>
<Script Language=VBScript>
Sub Window_OnLoad()
Set WS = CreateObject("WScript.Shell")
Dim strDesktop
strDesktop = WS.SpecialFolders ("Desktop")
Set ObjSC = WS.CreateShortcut (strDesktop & "\yourdomain.com.lnk")
ObjSC.TargetPath = "http://www.yourdomain.com/"
ObjSC.Save
Set ObjSC = Nothing
Set WS = nothing
End Sub
</Script>
</HEAD>
</HTML>
INTERNET EXPLORER WARNS THAT ACTIVEX MAY BE UNSAFE - REQUIRES USER TO CLICK OK
THEN
NORTON THROWS ALL ITS TOYS OUT OF THE PRAM WARNING OF MALICIOUS ACTIVEX3 - AGAIN REQUIRES OVERRIDE
THEN
Shortcut appears on desktop.
If you want it to run sweeter, get your code signed. Signed ActiveX isn't as "malicious" as unsigned stuff.
note: probably only works on versions of windows that have wsh installed and aren't automatically blocking activex
-Corey