今天有人问我，为什么他的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。