[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS无法创建object

各位大神!求助一个问题。

win 7 x64下,双击运行vbs没问题,但是用命令调用打开这个vbs就报错,无法创建object
我另外一台win7 x64电脑打开这个文件就没问题,但是我记不起是运行过一条什么指令了(肯定是运行过的)。

网上好多说注册两个文件
regsvr32 WSHom.Ocx
regsvr32 wshext.dll
但是老是注册不成功

说要用管理员注册,但是我是用管理员,还用了administrator,还是注册不了。

最后无解了,只能求助各位!
急!希望各位能大力帮助啊!
多谢多谢!!!

附上代码:
  1. Set WshShell=createobject("wscript.shell")
  2. WScript.Sleep 200
  3. Set FSO = CreateObject("Scripting.FileSystemObject")
  4. Set Form = WScript.CreateObject("Forms.Form.1")
  5. Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
  6. TextBox.Multiline = True
  7. Set GF = FSO.OpenTextFile("E:\LittleCode\ahk\EISP.txt",1)
  8. TextBox.Text = GF.ReadAll
  9. With TextBox
  10. .Selstart = 0 'Min
  11. .Sellength=Len(.Text)
  12. .Copy
  13. End With
  14. WshShell.SendKeys "^v"
  15. WshShell.Run "E:\LittleCode\ahk\CleanClip.bat /start",0
  16. WScript.Sleep 200
  17. WshShell.SendKeys "{TAB 36}"
  18. WScript.Sleep 200
  19. WshShell.SendKeys "{Enter}"
  20. WScript.Sleep 1000
  21. WshShell.SendKeys "{Enter}"
复制代码

本帖最后由 heart056571 于 2014-12-8 12:40 编辑

回复 2# yu2n


我的电脑有安装Office
而且我双击运行都可以,就后台调用不行。
我打开cmd,指向这个vbs文件,都可以运行。
但是在后台用bat去调用这个vbs都调用不了。
而且我另一台电脑调用就完全没问题。但记不住有过什么设置了。
不知道是不是64位系统要让它默认运行32位的wscript,这个又不知道怎么设置了。

上午又测试了半天,发现这样可以实现
后台的bat里面这样写:
runas /user:administrator "C:\Windows\System32\wscript.exe E:\LittleCode\ahk\4.vbs"
关键这样密码又写不进去,每次运行还得输密码。达不到后台的效果了。

还有你给的代码,如果里面是中文就会报错。
Error:  Unterminated string constant
Code:  800a0409

谢谢!请问还有办法吗?

TOP

返回列表