Various Scripts

A script I use often to copy shortcut to desktop:

'Copy shortcut to desktop
'Oddvar HÃ¥land Moe
'Example: Call CopyToDesktop("servershareshortcut.lnk")

Function CopyToDesktop(filepath)
set objFso=createObject("scripting.fileSystemObject")
set objWShell=wScript.createObject("WScript.Shell")
DesktopPath = objWSHShell.SpecialFolders("Desktop")
if objFso.folderExists(DesktopPath) then
objFso.copyFile filepath,DesktopPath & "",true
end if
End Function