Dear Martin,

Thanks for sending reply.

Your WSH code is working. I am able to create shortcut. But my application HPGAS.exe gets installed in hPGAS directory by default. If some one changes the name of the target directory, then this shortcut will be created, but will not work .
My question is how to sense the current directory as working directory. (I do not want to hardcode target directory name as shown in the following code).


I have used following code

L_Welcome_MsgBox_Message_Text   = "This script will create a shortcut to HPGAS on your desktop."
L_Welcome_MsgBox_Title_Text     = "Windows Scripting Host Sample"
Call Welcome()


Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")


Dim MyShortcut, MyDesktop, DesktopPath

' Read desktop path using WshSpecialFolders object
DesktopPath = WSHShell.SpecialFolders("Desktop")

' Create a shortcut object on the desktop
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\HPGAS.lnk")

' Set shortcut object properties and save it
MyShortcut.TargetPath = "\HPGAS\hpgas.exe"
MyShortcut.WorkingDirectory = "\HPGAS"
MyShortcut.WindowStyle = 3
MyShortcut.IconLocation = "\HPGAS\hpgas.exe,0"
MyShortcut.Save





WScript.Echo "A shortcut to HPGAS now exists on your Desktop."

' ********************************************************************************
' *
' * Welcome
' *
Sub Welcome()
    Dim intDoIt

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub