General List All Assigned Shortcut Keys for Shortcuts in Windows 11

  • Staff

A shortcut is a link to an item (such as a file, folder, or app) on your PC.

You can assign a shortcut key (aka: keyboard shortcut) to use to open a shortcut on your desktop, taskbar, and Start menu.

This tutorial will show you how to find and list all currently assigned shortcut keys (hotkeys) in use by shortcuts for your account in Windows 10 and Windows 11.

Here's How:

1 Download the file below originally from winhelponline on GitHub.

2 Save the file to your desktop.

3 Unblock the file.

4 Extract (drag and drop) the ListHostKeys.vbs file from the file.

5 Run the ListHostKeys.vbs file.

The ListHostKeys.vbs file will not install anything on your computer.

(Contents of ListHostKeys.vbs file for reference)
'Script Info: Obtains the List of Shortcuts With a Hotkey assigned
'Author: Ramesh Srinivasan, for The Winhelponline Blog
'Created on May 5 2016
'Modified on May 19 2016
'Reviewed on May 22 2021

Option Explicit
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim WshShell: Set WshShell = WScript.CreateObject("WScript.Shell")
Dim arrFolders, objFolder, fldr, colfiles, colFolders
Dim objFile, objSubFolder, oShellLink, strHotKey

arrFolders = Array ( _
WshShell.SpecialFolders("AllUsersDesktop") _
, WshShell.SpecialFolders("Desktop") _
, WshShell.SpecialFolders("AllUsersStartMenu") _
, WshShell.SpecialFolders("StartMenu") _
, WshShell.SpecialFolders("AppData") & _
"\Microsoft\Internet Explorer\Quick Launch" _

For Each fldr In arrFolders
    If objFSO.FolderExists (fldr) Then Call GetHotKeys (fldr)

Sub GetHotKeys (strFolder)
    Set objFolder = objFSO.GetFolder(strFolder)
    Set colFiles = objFolder.Files
    For Each objFile In colFiles
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "lnk" Then
            Set oShellLink = WshShell.CreateShortcut(objFile.Path)
            If Trim(oShellLink.Hotkey) <> "" Then
                strHotKey = strHotKey & "[" & Trim(oShellLink.Hotkey) & _
                "]" & vbCrLf & objFile.Path & vbCrLf & vbCrLf
            End If
        End If
    Set colFolders = objFolder.SubFolders
    For Each objSubFolder In colFolders
End Sub

WshShell.PopUp strHotKey,,"Hotkeys Curently in Use by Shortcuts", 65
Set WshShell = Nothing
Set objFSO = Nothing

6 This script recursively searches for shortcuts in the Desktop and Start menu (per-user and per-machine locations), Quick Launch (W10 only), Taskbar – User Pinned & all of their subfolders, and shows the list of shortcuts with hotkey assignments in a popup window. (see screenshot below)


That's it,
Shawn Brink



  • Shortcut.png
    3.4 KB · Views: 33
    870 bytes · Views: 45
Last edited:
Top Bottom