Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortCut = WshShell.CreateShortcut(strDesktop & "\Skype.lnk")
strCurDir = WshShell.CurrentDirectory
oMyShortCut.Arguments = "/minimized /nosplash"
oMyShortCut.TargetPath = strCurDir & "\SkypePortable.exe"
oMyShortCut.WorkingDirectory = strCurDir
oMyShortCut.IconLocation = strCurDir & "\App\AppInfo\appicon.ico"
oMyShortCut.Save
