Create a shortcut to the Win 8 start menu.

win8Shortcut.au3

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:         igromanru

 Script Function:
	Create a shortcut to the win 8 start screen.

#ce ----------------------------------------------------------------------------

MsgBox(0,"",@StartMenuDir & "\Programs")
FileCreateShortcut(@ScriptDir & "\win8Shortcut.exe", @StartMenuDir & "\Programs\win8Shortcut.lnk")

;# Shell solution
;~ $objShell = ObjCreate("Shell.Application")
;~ $objFolder = $objShell.Namespace(@ScriptDir)
;~ $objFolderItem = $objFolder.ParseName(@ScriptName)
;~ For $val in $objFolderItem.Verbs()
;~ 	MsgBox(0,"",$val())
;~     If StringInStr(StringReplace($val(),"&", ""), 'An "Start" an') Then
;~ 		$val.DoIt()
;~ 		ExitLoop
;~ 	EndIf
;~ Next