CreateObject创建失败!!

幽幽浮浮 2015-10-23 06:59:00
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "VBScript"


这句话为何在 windows 10 64位/office 2013 64位 中文环境中,无法创建呢?哪怕用vbs文件,也无法创建。

是哪个部件没有注册吗?
...全文
1363 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dogfish 2016-12-06
  • 打赏
  • 举报
回复
引用 2 楼 longmarchufo 的回复:
32位的就可以,是吗?
是的。64位找不到入口的。
幽幽浮浮 2016-08-24
  • 打赏
  • 举报
回复
32位的就可以,是吗?
myqoo 2016-08-23
  • 打赏
  • 举报
回复
64位的 office 组件不可以创建
第一个文件ajax_txt.asp的代码: (此页是AJAX异步提交txt文本文件的路径到ajax_txt_save.asp页面,并从ajax_txt_save.asp获取返回的数据) 无标题文档 <script type="text/javascript">

JS读取文本文件的内容并赋值给textarea控件





已导入:0 条记录


第二个文件ajax_txt_save.asp的代码: (此页是用ASP中的FSO来读取txt文本文件中的内容并输出,为ajax_txt.asp这个页面的AJAX异步获取提供数据) <% '//禁止缓存该页 让AJAX读取该页始终为最新而非过期缓存页 Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" response.Charset="GB2312" '//数据返回的编码类型 显示中文数据必须 Dim objFSO Dim objText Dim ObjFile Dim strTextContent Dim objDrive '创建一个文件操作对象实例 Set objFSO = CreateObject("Scripting.FileSystemObject") '要打开的文件 ObjFile=trim(request("filesname")) '从文浏览控件中获取 IF objFSO.FileExists(ObjFile) then Set objText = objFSO.OpenTextFile(ObjFile,1) '循环读取数据 k=0 While not objText.AtEndOfStream '到文件的末尾 strTextContent = strTextContent & objText.ReadLine() & vbcrlf k=k+1 wend objText.Close response.write strTextContent & "," & k else strTextContent= "文件不存在" response.end() end if %> 以上代码经测试,100%能使用,且不受浏览器的安全级别限制,祝你好运!

4,008

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧