XP Search на дума - за "pas" не намира нищо

Сигурно много "хора" се дразнят от гадния SEARCH на XP-то дето не намира нищо
Долния скрип помага :)
copy, paste, save as "search.vbs", run, run, run.....restart :Super:
някой ако иска да го направи на културно ехе
--------------------------------------------------------------------

Option Explicit
On Error Resume Next

Dim WshShell, N, P, P1, P2, ItemType, MyBox, FileType, Title, Prompt, RegKey, X

Set WSHShell = WScript.CreateObject("WScript.Shell")
P = "HKEY_CLASSES_ROOT\."
P1 = "\PersistentHandler\"
N = "{5e941d80-bf96-11cd-b579-08002b30bfeb}"

Prompt = "Въведете разширението на файла." & vbCR
Prompt = Prompt & "Като: txt, pas, inf"
Title = "Въведете Файл Tип"

FileType = InputBox(Prompt, Title, "pas")
If FileType = "" Then
'MyBox = MsgBox("Изход.",4096,"Error.")
Set WshShell = Nothing
WScript.Quit
Else
RegKey = P & FileType & P1
X = WshShell.RegRead(RegKey)
End If

If X = N Then
MyBox = MsgBox("Вече съществува и е без промяна." & vbCR & "Не е извършена промяна.", 4096, "Без Промени")
Set WshShell = Nothing
WScript.Quit
End If

If X <> N AND X <> "" Then
MyBox = MsgBox("Вече съществува и е с променен." & vbCR & "Не е извършена промяна.", 4096, "Без Промени")
Set WshShell = Nothing
WScript.Quit
End If

If Err.Number <> 0 Then
WshShell.RegWrite RegKey, N
MyBox = MsgBox("Готово." & vbCR & "Необходим е Рестарт.", 4096, "Добре")
Set WshShell = Nothing
End If