Jacek Caban : vbscript: Added Err.Number implementation.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 7baaea03213438de8bc089781f031c071eca34cb
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=7baaea03213438de8bc089781f...

Author: Jacek Caban <jacek(a)codeweavers.com>
Date:   Fri Mar 21 14:38:11 2014 +0100

vbscript: Added Err.Number implementation.

---

 dlls/vbscript/global.c |   13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/global.c b/dlls/vbscript/global.c
index 7846bc0..c2b16e2 100644
--- a/dlls/vbscript/global.c
+++ b/dlls/vbscript/global.c
@@ -1886,8 +1886,17 @@ static HRESULT Err_HelpFile(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VA
 
 static HRESULT Err_Number(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    TRACE("\n");
+
+    if(!This->desc)
+        return E_UNEXPECTED;
+
+    if(args_cnt) {
+        FIXME("setter not implemented\n");
+        return E_NOTIMPL;
+    }
+
+    return return_int(res, This->desc->ctx->err_number);
 }
 
 static HRESULT Err_Source(vbdisp_t *This, VARIANT *args, unsigned args_cnt, VARIANT *res)