Create a text file and paste lines in

on error resume next
set WshShell = WScript.CreateObject("WScript.Shell")
Set Ag=Wscript.Arguments
set lnk = WshShell.CreateShortcut(A)
If lnk.hotkey <> "" then
msgbox A & vbcrlf & lnk.hotkey
End If

Rename it to findhotkey.vbs and put in c:\windows

Explorer looks in 4 places for hotkeys, these are read on startup. The
hotkey is stored in the shortcut. Only hotkeys on shortcuts in the four
locations are live.

Type in a command prompt

cd %UserProfile%\desktop
for %A in (*.lnk) do findhotkey.vbs "%1"
for %A in (*.pif) do findhotkey.vbs "%1"
for %A in (*.url) do findhotkey.vbs "%1"
cd %AllUsersProfile%\desktop
for %A in (*.lnk) do findhotkey.vbs "%1"
for %A in (*.pif) do findhotkey.vbs "%1"
for %A in (*.url) do findhotkey.vbs "%1"
cd %UserProfile%\Start Menu
for /r %A in (*.lnk) do findhotkey.vbs "%1"
for /r %A in (*.pif) do findhotkey.vbs "%1"
for /r %A in (*.url) do findhotkey.vbs "%1"
cd %AllUsersProfile%\Start Menu
for /r %A in (*.lnk) do findhotkey.vbs "%1"
for /r %A in (*.pif) do findhotkey.vbs "%1"
for /r %A in (*.url) do findhotkey.vbs "%1"

Each shortcut, that has a hotkey, will pop up a dialog with the name of the
shortcut and it's hotkey.


"Viperx116" <guest@xxxxxx-email.com> wrote in message
news:8e35839ea9b6eee0f5dc7ca2c1d8f886@xxxxxx-gateway.com...