RunAsX64
Test

Sub Test()
  Set sc = CreateObject("ScriptControl")    ' 64 位模式下提示：ActiveX部件不能创建对象:'ScriptControl'
  sc.Language = "javascript"
  t = sc.eval("new Date().getTime()")
  Msgbox t
End Sub

' RunAsX64() By Yu2n
' 64位系统下强制以32位模式运行脚本
' 示例：在代码开头加上 RunAsX64 ...
Sub RunAsX64()
  On Error Resume Next
  If InStr(1,WScript.FullName,"\SysWOW64\",vbTextCompare) > 0 Then Exit Sub
  Dim wso, sCommand, sArgs
  Set wso = CreateObject("WScript.Shell")
  If wso.Run("cmd /c set ProgramFiles|find /i ""x86"" ",0,True) = 0 Then
    If Err.Number = 0 Then
      sCommand = "%windir%\SysWOW64\cscript.exe //NoLogo """ & WScript.ScriptFullName & """"
      For Each oArg In WScript.Arguments
        sArgs = sArgs & " " & """" & oArg & """"
      Next
      wso.Run sCommand & sArgs, 1, False
      WScript.Quit
    End If
  End If
End Sub
复制代码

' Is64OS() By Yu2n
' 示例：If Is64OS() = True Then ...
' Ps: 已堕落到不执着于 “纯” VBS
Function Is64OS()
  On Error Resume Next
  Is64OS = False
  Set wso = CreateObject("WScript.Shell")
  If wso.Run("cmd /c set ProgramFiles|find /i ""x86"" ",0,True) = 0 Then
    If Err.Number = 0 Then Is64OS = True
  End If
End Function
复制代码