Adding links to the server's desktop

Sprache: English
Programmiersprache: VBScript
Veröffentlicht von: Dennis Pallett [nicht registriert]
Letzte Änderung: 09.05.2006
Aufrufe: 1085

Beschreibung

A very common question is "How can I create a link to my site on the visitor's desktop?". This codesnippet does the exact opposite; it adds a link to the server's desktop.

Code

Zeilennummern anzeigen

1 <% 2 ' (Get strName and strUrl from posted form) 3 ... 4 5 On Error Resume Next 6 7 Set objWScript = Server.CreateObject("WScript.Shell" ) 8 strDesktop = objWScript.SpecialFolders("Desktop" ) 9 Set objShortcut = objWScript.CreateShortcut(strDesktop & "\" & strName & ".url" ) 10 11 objShortcut.TargetPath = strUrl 12 objShortcut.Save 13 14 If Err.number <> 0 Then 15 Response.Write Err.number & ": " & Err.Description & "<br>" 16 Else 17 Response.Write "Link created" 18 End If 19 20 Set objShortcut = Nothing 21 Set objWScript = Nothing 22 23 On Error Goto 0 24 %>

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *