[Iska]

WSH:

читать дальше »

Код:

Option Explicit

Dim objShell
Dim objFolder
Dim objFolderItem
Dim objVerb

Set objShell = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("shell:Start Menu")

If Not objFolder Is Nothing Then
	Set objFolderItem = objFolder.ParseName("Программы")
	
	If Not objFolderItem Is Nothing Then
		If objFolderItem.IsFolder Then
			Set objFolder = objFolderItem.GetFolder
			
			If Not objFolder Is Nothing Then
				Set objFolderItem = objFolder.ParseName("Internet Explorer.lnk")
				
				If Not objFolderItem Is Nothing Then
					For Each objVerb In objFolderItem.Verbs
						' &Закрепить в меню "Пуск"
						' &Изъять из меню "Пуск"
						
						If objVerb.Name = "&Закрепить в меню ""Пуск""" Then
							objVerb.DoIt()
						End If
					Next
				Else
					WScript.Echo "Can't parse name [Internet Explorer.lnk]"
				End If
			Else
				WScript.Echo "Can't get folder from item [Программы]"
			End If
		Else
			WScript.Echo "Folder item [Программы] is not a folder"
		End If
	Else
		WScript.Echo "Can't parse name [Программы]"
	End If
Else
	WScript.Echo "Can't get folder [Start Menu]"
End If

WScript.Quit 0

AutoIt:

читать дальше »

Код:

AutoItSetOption("MustDeclareVars", 1)

Local $oShell  = ObjCreate("Shell.Application")
Local $oFolder = $oShell.Namespace("shell:Start Menu")
Local $oFolderItem
Local $oVerb

If Not ObjName($oFolder) = "" Then
	$oFolderItem = $oFolder.ParseName("Программы")

	If Not ObjName($oFolderItem) = "" Then
		If $oFolderItem.IsFolder Then
			$oFolder = $oFolderItem.GetFolder

			If Not ObjName($oFolder) = "" Then
				$oFolderItem = $oFolder.ParseName("Internet Explorer.lnk")

				If Not ObjName($oFolderItem) = "" Then
					For $oVerb In $oFolderItem.Verbs
						; &Закрепить в меню "Пуск"
						; &Изъять из меню "Пуск"

						If $oVerb.Name = "&Закрепить в меню ""Пуск""" Then
							$oVerb.DoIt()
						EndIf
					Next
				Else
					ConsoleWriteError("Can't parse name [Internet Explorer.lnk]" & @CRLF)
				EndIf
			Else
				ConsoleWriteError("Can't get folder from item [Программы]" & @CRLF)
			EndIf
		Else
			ConsoleWriteError("Folder item [Программы] is not a folder" & @CRLF)
		EndIf
	Else
		ConsoleWriteError("Can't parse name [Программы]" & @CRLF)
	EndIf
Else
	ConsoleWriteError("Can't get folder [Start Menu]" & @CRLF)
EndIf

Exit(0)

Полагаю, что на основе этого будет понятнее.