Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Access Care.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Access Care.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Calculator.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Calculator.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Earthlink Chat.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Earthlink Chat.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Empower Login.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Empower Login.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Mac Finder.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Mac Finder.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\MetaFrame Login.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\MetaFrame Login.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Notepad.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Notepad.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Phone List.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Phone List.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Shedule.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Shedule.lnk")

Set objFile = objFSO.GetFile("C:\proj\Quick Launch\Virtual Systems.lnk")
objFile.Copy ("C:\Documents and Settings\hsepulveda\Application Data\Microsoft\Internet Explorer\Quick Launch\Virtual Systems.lnk")