Sidenote

by Nikolas Demiridis

This actually started as a way to post (and archive) anything I was finding to be insteresting enough. Now it actually serves as a kind of memo notes to myself.
This is an English language blog.

Setting Up Desktop Shortcut with Logon Script

An old VBScript I use from time to time, when I want to create a shortcut on user’s desktop through Group Policy

'-------------------------------------------
' Default shortcut Install
'-------------------------------------------

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shared.lnk")
oShellLink.TargetPath = "\\fileserver\sharedfolder"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "shell32.dll, 9"
oShellLink.Description = "Shared Folder for Accounting"
oShellLink.WorkingDirectory = "\\fileserver\sharedfolder"
oShellLink.Save