Emerson ,

When I need to create shortcuts, I call this simple function:

 Procedure CreateShortcut (pShortcutName, pTargetPath, pParameters, pWorkingDir, pIconLoc, pDescription)
*--------- --------------

* Parameters:
*
* cShortcutName = "C:\Temp\Teste"                                                - Name and place of the shortcut
* cTargetPath   = "C:\Pointer\FoxProgs\Acessos\acessosusr.exe"                   - Program to be executed
* cParameters   = "'Action=Request UserId=Pointer UserDomain=agcocan WhoAmI=RU'" - Parameters (optional)
* cWorkingDir   = "C:\Pointer\FoxProgs\Acessos"                                  - working directoy
* cIconLoc      = "C:\Pointer\FoxProgs\Acessos\acessosusr.exe"                   - Icon location
* cDescription  = "Autorização de Solicitação de Acessos"                        - Comments

 Local cShortcutName, cTargetPath, cParameters, cIconLoc, cDescription
 Local WshShell     , oShellLink

 cShortcutName = ForceExt (AllTrim (pShortcutName), "Lnk")
 cTargetPath   =           AllTrim (pTargetPath  )
 cParameters   =           AllTrim (pParameters  )
 cWorkingDir   =           AllTrim (pWorkingDir  )
 cIconLoc      =           AllTrim (pIconLoc     )
 cDescription  =           AllTrim (pDescription )

 If Empty (cWorkingDir)
    cWorkingDir  = JustPath  (cTargetPath)
 endif

 If Empty (cIconLoc)
    cIconLoc     =            cTargetPath
 endif

 If Empty (cDescription)
    cDescription = JustFName (cTargetPath)
 endif

 oWshShell                   = CreateObject             ("Wscript.Shell")
 oShellLink                  = oWshShell.CreateShortcut ( cShortcutName )

 oShellLink.TargetPath       = cTargetPath
 oShellLink.Arguments        = cParameters
 oShellLink.WorkingDirectory = cWorkingDir
 oShellLink.IconLocation     = cIconLoc
 oShellLink.Description      = cDescription

 oShellLink.Save ()

 EndProc                         &&  of CreateShortcut

Maybe you want to give it a try...

Fernando