[Ins_16]

Iska, да,просто открытие меню ПУСК, как на vbs:
п.с. и создание ярлыка

Покажу пример создания ярлыка для WinRar в VBS

Код:

Set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SpecialFolders = WshShell.SpecialFolders
programfiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles%")
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings("%AllUsersProfile%")
alusr = AllUsersProfile & "\Главное меню\Программы\Стандартные"

if FSO.FileExists (programfiles & "\WinRAR\WinRAR.exe") then
	Set WshShortcut = WshShell.CreateShortcut(alusr & "\WinRar.lnk")
	WshShortcut.Description = "Архиватор"
	WshShortcut.TargetPath = programfiles & "\WinRAR\WinRAR.exe"
	WshShortcut.WindowStyle = 1
	WshShortcut.Save
End if