PATH = "Everything.exe" '書き換える
Set objArgs = WScript.Arguments
For i = 0 to objArgs.Count - 1
Word =CreateObject("Scripting.FileSystemObject").GetFileName(objArgs(i))
arrEsc = Split("$ ^ + [ ] ( ) { } .")
For j = 0 To UBound(arrEsc)
Word = Replace(Word, arrEsc(j), "\" & arrEsc(j))
Next
Word = "^" & Word & "$"
CreateObject("WScript.Shell").Run CHR(34) & PATH & CHR(34) & " -search " & CHR(34) & Word & CHR(34)
Next

拡張子vbsで保存してSendToフォルダに入れれば「送る」から同名検索を呼び出せる
Everything側で「正規表現を仕様」にチェックが入っている必用がある

コンテキストメニューに直接登録する場合は少し作業が面倒
レジストリを弄るのでよくわからないならやめた方がいい ※XPでしか試してない

上で作ったvbsファイルをexeファイルに変換する
MakeExe落としてきてmakewin.exeにD&Dする

作ったexeファイルをレジストリに登録する
キーを作成
[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\同名検索\command]

規定値のデータ
"作ったexeファイルのフルパス" "%1"