WDSによるメール検索

こんなHTAを作ってみました。
------------------
< html>
< head>
< script language="VBScript">
Sub Window_onLoad
window.resizeTo 400,400
End Sub

Sub MailSearchByWDS
Set objShell = CreateObject("Wscript.Shell")
strCommandline = "C:\Progra~1\Window~4\WindowsSearch.exe /url search-ms://crumb=kind:email&query="

If HasAttachment.Checked Then
strCommandline = strCommandline + HasAttachment.Value + " "
End If

If FromToOption(1).Checked Then
strCommandline = strCommandline+ FromToOption(1).Value + " "
ElseIf FromToOption(2).Checked Then
strCommandline = strCommandline + "(From:" + FromToOptionParaStr.Value + " OR To:" + FromToOptionParaStr.Value + ") "
ElseIf FromToOption(3).Checked Then
strCommandline = strCommandline + "From:" + FromToOptionParaStr.Value + " "
ElseIf FromToOption(4).Checked Then
strCommandline = strCommandline + "To:" + FromToOptionParaStr.Value + " "
End If

If (Len(StartDate.Value)>=1) and (Len(EndDate.Value)>=1) Then
strCommandline = strCommandline+ "Sent:>=" + StartDate.Value + "< =" + EndDate.Value + " "
ElseIf (Len(StartDate.Value)>=1) and (Len(EndDate.Value)=0) Then
strCommandline = strCommandline+ "Sent:>=" + StartDate.Value + " "
ElseIf (Len(StartDate.Value)=0) and (Len(EndDate.Value)>=1) Then
strCommandline = strCommandline+ "Sent:< =" + EndDate.Value + " "
End If

objShell.Run strCommandline + QueryString.Value
End Sub
< /script>
< /head>

< body>
< center>< b>WDSによるメール検索 v.0.01< /b>< /center>
< hr>
検索テキスト(< U>T< /U>)< input type="text" name="QueryString" accessKey="T" size="40">< br>
< hr>
< input type="checkbox" name="HasAttachment" value="has:attachment" accessKey="A">添付ファイル付き(< U>A< /U>)< BR>
< hr>
< input type="radio" name="FromToOption" value="" accessKey="0" checked>指定なし(< U>0< /U>)< BR>
< input type="radio" name="FromToOption" value="from:○○○" accessKey="1">from:○○○(< U>1< /U>)< BR>
< input type="radio" name="FromToOption" accessKey="2">From:XX OR To:XX(< U>2< /U>)< BR>
< input type="radio" name="FromToOption" accessKey="3">From:のみ(< U>3< /U>)< BR>
< input type="radio" name="FromToOption" accessKey="4">To:のみ(< U>4< /U>)< BR>
From/Toオプション(< U>D< /U>)< input type="text" name="FromToOptionParaStr" accessKey="D">< br>
< hr>
期間指定
< U>(S< /U>)< input type="text" name="StartDate" accessKey="S" size="15">
～
< U>(E< /U>)< input type="text" name="EndDate" accessKey="E" size="15">
< br>
< hr>
< center>< input type="submit" onclick="MailSearchByWDS" value="検索実行">< /center>< br>
< /body>
< /html>