Set variable = CreateObject("Scripting.FileSystemObject")
variable.CopyFile "C:Portalbinaria.lnk","C:Documents and SettingsAll UsersMenú InicioProgramasInicioPortalbinaria.lnk"