Dim fso, wshShell, strUserProfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set wshShell = CreateObject("WScript.Shell")
'ezz a lényege, itt kéri le a felhasználói profil elérési útját
strUserProfile = wshShell.ExpandEnvironmentStrings("%USERPROFILE%")
fso.CopyFile "c:\innen\masolom\program.lnk", strUserProfile
Freeware, és akciós programok egy helyen https://www.facebook.com/freewarenews