小弟自己的做法是用WSH, 將捷徑寫到ALLUSER DESKTOP
以前寫來做ERP捷徑的WSH.
<pre class="c" name="code">
On Error Resume Next
set oWSHShell = WScript.CreateObject("WScript.shell")
ALLUserDeskTopPath = oWSHShell.SpecialFolders("AllUsersDesktop")
ProgramFilesPath = oWSHShell.ExpandEnvironmentStrings("%ProgramFiles%")
ShortCutName = "TIPTOP_GP"
WorkingPath = ProgramFilesPath & "\FourJs\gdcax"
ShortCutPath = WorkingPath & "\bin\gdc.exe"
set oShortCut = oWSHShell.CreateShortCut(ALLUserDeskTopPath & "\" & ShortCutName & ".lnk")
oShortCut.TargetPath = ShortCutPath
oShortcut.Arguments = "-a -p 6406 -S " & chr(34) & "TIPTOP GP" & chr(34) & " -X"
oShortCut.WorkingDirectory = WorkingPath
oShortCut.Description="Launch the Four J's Genero Desktop Client"
oShortCut.Save