Set objWshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(WScript.ScriptFullName)
strExePath = objFile.ParentFolder

strDesktopPath = objWshShell.SpecialFolders("Desktop")
Set objShortcutLnk = objWshShell.CreateShortcut( strDesktopPath & "\Ayam.lnk")

objShortcutLnk.TargetPath = objFile.ParentFolder & "\ayam.bat"
objShortcutLnk.WorkingDirectory  = objFile.ParentFolder
objShortcutLnk.IconLocation = objFile.ParentFolder & "\ayam.exe"
objShortcutLnk.WindowStyle = 7
objShortcutLnk.Save
objWshShell.Popup "A shortcut named Ayam has been created on your desktop.",20,"Information",0