Jacek Caban : vbscript: Added GetInterfaceSafetyOptions implementation.

[Alexandre Julliard]

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

Author: Jacek Caban 
Date:   Fri Sep  2 13:16:08 2011 +0200

vbscript: Added GetInterfaceSafetyOptions implementation.

---

dlls/vbscript/vbscript.c |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/dlls/vbscript/vbscript.c b/dlls/vbscript/vbscript.c
index 70b35f2..04a513f 100644
--- a/dlls/vbscript/vbscript.c
+++ b/dlls/vbscript/vbscript.c
@@ -438,8 +438,15 @@ static HRESULT WINAPI VBScriptSafety_GetInterfaceSafetyOptions(IObjectSafety *if
         DWORD *pdwSupportedOptions, DWORD *pdwEnabledOptions)
 {
     VBScript *This = impl_from_IObjectSafety(iface);
-    FIXME("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
-    return E_NOTIMPL;
+
+    TRACE("(%p)->(%s %p %p)\n", This, debugstr_guid(riid), pdwSupportedOptions, pdwEnabledOptions);
+
+    if(!pdwSupportedOptions || !pdwEnabledOptions)
+        return E_POINTER;
+
+    *pdwSupportedOptions = SUPPORTED_OPTIONS;
+    *pdwEnabledOptions = This->safeopt;
+    return S_OK;
 }

static HRESULT WINAPI VBScriptSafety_SetInterfaceSafetyOptions(IObjectSafety *iface, REFIID riid,