mshtml: Added support for text/vbscript script type.

dlls/mshtml/script.c

@@ -48,6 +48,8 @@ static const WCHAR emptyW[] = {0};
 
 static const CLSID CLSID_JScript =
     {0xf414c260,0x6ac0,0x11cf,{0xb6,0xd1,0x00,0xaa,0x00,0xbb,0xbb,0x58}};
+static const CLSID CLSID_VBScript =
+    {0xb54f3741,0x5b07,0x11cf,{0xa4,0xb0,0x00,0xaa,0x00,0x4a,0x55,0xe8}};
 
 struct ScriptHost {
     IActiveScriptSite              IActiveScriptSite_iface;
@@ -718,10 +720,14 @@ static BOOL get_guid_from_type(LPCWSTR type, GUID *guid)
 {
     const WCHAR text_javascriptW[] =
         {'t','e','x','t','/','j','a','v','a','s','c','r','i','p','t',0};
+    const WCHAR text_vbscriptW[] =
+        {'t','e','x','t','/','v','b','s','c','r','i','p','t',0};
 
     /* FIXME: Handle more types */
     if(!strcmpiW(type, text_javascriptW)) {
         *guid = CLSID_JScript;
+    }else if(!strcmpiW(type, text_vbscriptW)) {
+        *guid = CLSID_VBScript;
     }else {
         FIXME("Unknown type %s\n", debugstr_w(type));
         return FALSE;