Does Verbs() support Submenus

[shetty_rohan04 Participant Topics: 1 Replies: 1 Points: 17Rank: Member]

I have written a small piece of code which displays context menu for  Devices&Printers. This does not work for menu items, which have submenus.

$o = new-object -com Shell.Application
$folder = $o.NameSpace(“shell:::{A8A91A66-3A7D-4424-8D24-04E180695C7A}”)
foreach ($item in $folder.Items())
{
If ($item.Name -eq ‘iCR6X–1613950’)
{

# below does not print menu items which have submenu
$item.Verbs()
}
}

 

Any help is appreciated.

Rohan

[Doug Maurer Participant Topics: 9 Replies: 707 Points: 2,848Rank: Community Hero]

Both of these show the items I’d expect. They are not blank. Not sure why they would be blank for you?

PowerShell

foreach ($item in $folder.Items()){$item.name} foreach ($item in $folder.Items()) { foreach($verb in $item.verbs()) { $verb.name } }

1 2 3 4 5 6 7 8

foreach ($item in $folder.Items()){$item.name} foreach ($item in $folder.Items()) {     foreach($verb in $item.verbs())     {         $verb.name     } }

Some of the output

PowerShell

CutePDF Writer HP USB Optical Mouse Microsoft Print to PDF HP Compaq LA2405 Wide LCD Monitor Logitech H570e Mono Fax LifeCam Cinema &Network settings S&ound settings &Mouse settings &Keyboard settings &Regional S&ystem properties Device &installation settings Po&wer options Windows &Update

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

CutePDF Writer HP USB Optical Mouse Microsoft Print to PDF HP Compaq LA2405 Wide LCD Monitor Logitech H570e Mono Fax LifeCam Cinema   &Network settings             S&ound settings               &Mouse settings               &Keyboard settings           &Regional                     S&ystem properties           Device &installation settings Po&wer options               Windows &Update

[shetty_rohan04]

Thanks for the reply.

You can easily reproduce this by using the below powershell script(https://devblogs.microsoft.com/scripting/use-powershell-to-work-with-windows-explorer/), which also does not display menu containing submenus.

$o = new-object -com Shell.Application
$folder = $o.NameSpace(“C:\Windows\System32”)
$file=$folder.ParseName(“notepad.exe”)
$file.Verbs()|select Name

 

 

• This reply was modified 6 months, 2 weeks ago by shetty_rohan04.

[Author]

Posts