vbscript: Accept "><" as inequality operator.

dlls/vbscript/lex.c

@@ -500,9 +500,13 @@ static int parse_next_token(void *lval, unsigned *loc, parser_ctx_t *ctx)
         }
         return '<';
     case '>':
-        if(*++ctx->ptr == '=') {
+        switch(*++ctx->ptr) {
+        case '=':
             ctx->ptr++;
             return tGTEQ;
+        case '<':
+            ctx->ptr++;
+            return tNEQ;
         }
         return '>';
     default:

dlls/vbscript/tests/lang.vbs

@@ -181,6 +181,10 @@ Call ok(1 <= 2, "! 1 <= 2")
 Call ok(2 <= 2, "! 2 <= 2")
 Call ok(1 =< 2, "! 1 =< 2")
 Call ok(2 =< 2, "! 2 =< 2")
+Call ok(not (2 >< 2), "2 >< 2")
+Call ok(2 >< 1, "! 2 >< 1")
+Call ok(not (2 <> 2), "2 <> 2")
+Call ok(2 <> 1, "! 2 <> 1")
 
 Call ok(isNull(0 = null), "'(0 = null)' is not null")
 Call ok(isNull(null = 1), "'(null = 1)' is not null")