Creating a Shortcut

[sleuth]

Hi Mates,

Ok, I'm trying to creat a shortcut on someones desktop when the are on my site, I want to have a link say "Set A Shortcut To Here On My Desktop" or something and the set the shortcut for

"C:\Program Files\Internet Explorer\IEXPLORE.EXE"

http://www.mysite.com

I've looked up and down for this one and I only found a snippet in Python which is just our right!

Thanks,

Tony

 

[foxbox]

A found this sample:

<job>
BEGIN CALLOUT A
<script language=&quot;JScript&quot;>
END CALLOUT A
var oShell = WScript.CreateObject(&quot;WScript.Shell&quot;
var strDesktopPath = oShell.SpecialFolders(&quot;Desktop&quot;
var oShortcut = oShell.CreateShortcut(strDesktopPath + &quot;\\Notepad.lnk&quot;
oShortcut.TargetPath = oShell.ExpandEnvironmentStrings(&quot;%WINDIR%\\Notepad.exe&quot;
oShortcut.WorkingDirectory = oShell.ExpandEnvironmentStrings(&quot;%WINDIR%&quot;
oShortcut.WindowStyle = 4;
oShortcut.IconLocation =
oShell.ExpandEnvironmentStrings(&quot;%WINDIR%\\Notepad.exe, 0&quot;
oShortcut.Save();
</script>

BEGIN CALLOUT B
<script language=&quot;VBScript&quot;>
END CALLOUT B
oShell.Popup &quot;Deleting the shortcut to Notepad in 10 seconds...&quot;, _
10, _
&quot;WSH 2.0 - Multiple Script Engine Example&quot;
Set oFSO = CreateObject(&quot;Scripting.FileSystemObject&quot
Set oFile = oFSO.GetFile(strDesktopPath & &quot;\Notepad.lnk&quot
oFile.Delete
</script>
</job>

See:

http://win2000mag.com/Articles/Index.cfm?ArticleID=7530

br
Gerard
(-:

Better a known bug then a new release.

 

[sleuth]

Hi,

Thanks A lot for that, but I couldn't get it to work from the net.

Does this only work if the script runs from the local machine?

Thanks,

Tony