今天有人问我,为什么他的VBS脚本在64位Windows 7中用VbsEdit可以直接执行,但是直接双击就会出错:ActiveX 部件不能创建对象: ‘MSWinsock.Winsock’。
在64位系统中存在两组不同的wscript.exe和cscript.exe,一组是64位的,在C:\Windows\System32文件夹;一组是32位的,在C:\Windows\SysWOW64文件夹。由于64位和32位的内存模式不同,64位进程无法加载32位DLL,故以DLL封装COM组件无法在64位进程调用。
具体到上面的问题,MSWinsock.Winsock是32位COM组件,而直接双击运行VBS文件默认是以C:\Windows\System32\wscript.exe为宿主的,也就是64位的进程,64位进程无法加载32位的DLL,所以会出现“ActiveX 部件不能创建对象”的错误。如果想不报错的话需要手动指定用32位的宿主来执行。
那为什么用VbsEdit可以直接执行呢?因为早期版本的VbsEdit在64位系统上会自动调用32位的wscript.exe或者cscript.exe来执行脚本。对于比较新的VbsEdit,已经区分为32位的VbsEdit何64位的VbsEdit,不同版本的VbsEdit会调用对应版本的wscript.exe或者cscript.exe来执行。
怎样才能在64位系统里直接双击运行包含32位COM组件调用的VBS脚本呢?一种方法是改注册表,但是这个方法不通用;另一种方法是在VBS代码中做检测:
Option Explicit
Run32()
DimWinsock
SetWinsock = CreateObject("MSWinsock.Winsock")
MsgBox"成功创建MSWinsock.Winsock对象"
SubRun32()
'Author: Demon
'Date: 2015/7/9
'Website: http://demon.tw
DimstrComputer, objWMIService, colItems, objItem, strSystemType
strComputer ="."
SetobjWMIService = GetObject("winmgmts:\\"& strComputer &"\root\cimv2")
SetcolItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For EachobjItemincolItems
strSystemType = objItem.SystemType
Next
IfInStr(strSystemType,"x64") >0Then
Dimfso, WshShell, strFullName
Setfso = CreateObject("Scripting.FileSystemObject")
SetWshShell = CreateObject("WScript.Shell")
strFullName = WScript.FullName
IfInStr(1, strFullName,"system32",1) >0Then
strFullName =Replace(strFullName,"system32","SysWOW64",1,1,1)
WshShell.Run strFullName &" "&_
""""& WScript.ScriptFullName &"""",10,False
WScript.Quit
End If
End If
End Sub
随机文章:
这篇文章发布于 2015年07月9日,星期四,12:38,归类于 程序设计。您可以跟踪这篇文章的评论通过 RSS 2.0 feed。
您可以留下评论,或者从您的站点trackback。