64 ビット マシン上で 32 ビット モードで VBScript を実行するにはどうすればよいですか?
質問
.vbs で終わるテキスト ファイルがあり、次のように記述しました。
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.ACE.OLEDB.12.0"
Conn.Properties("Data Source") = "C:\dummy.accdb"
Conn.Properties("Jet OLEDB:Database Password") = "pass"
Conn.Open
Conn.Close
Set Conn = Nothing
- これを Windows 32 ビット マシンで実行すると、何も考えずに実行され、(予想通り) 終了します。
- Windows 64 ビット マシンでこれを実行すると、エラーが発生します。
プロバイダーが見つかりません。正しく取り付けられていない可能性があります。
しかし、インストールされています。問題の根本は、プロバイダーが 32 ビットのプロバイダーであることだと思います。私の知る限り、64 ビットのプロバイダーは存在しません。
64 ビット マシン上の IIS を介して VBScript を (ASP ファイルとして) 実行する場合、32 ビット モードで実行するように選択できます。その後、プロバイダーを見つけることができます。
Windows 64 ビットでプロバイダーを見つけるにはどうすればよいですか?何らかの方法で CScript (.vbs テキスト ファイルを実行する) を 32 ビット モードで実行するように指示できますか?
解決
続く http://support.microsoft.com/kb/896456する
、プロンプト32ビットのコマンドを起動する手順は、次の
* Click Start, click Run, type %windir%\SysWoW64\cmd.exe, and then click OK.
次に入力します。
cscript vbscriptfile.vbs
他のヒント
' C:\Windows\System32\WScript.exe = WScript.exe
Dim ScriptHost : ScriptHost = Mid(WScript.FullName, InStrRev(WScript.FullName, "\") + 1, Len(WScript.FullName))
Dim oWs : Set oWs = CreateObject("WScript.Shell")
Dim oProcEnv : Set oProcEnv = oWs.Environment("Process")
' Am I running 64-bit version of WScript.exe/Cscript.exe? So, call script again in x86 script host and then exit.
If InStr(LCase(WScript.FullName), LCase(oProcEnv("windir") & "\System32\")) And oProcEnv("PROCESSOR_ARCHITECTURE") = "AMD64" Then
' rebuild arguments
If Not WScript.Arguments.Count = 0 Then
Dim sArg, Arg
sArg = ""
For Each Arg In Wscript.Arguments
sArg = sArg & " " & """" & Arg & """"
Next
End If
Dim sCmd : sCmd = """" & oProcEnv("windir") & "\SysWOW64\" & ScriptHost & """" & " """ & WScript.ScriptFullName & """" & sArg
WScript.Echo "Call " & sCmd
oWs.Run sCmd
WScript.Quit
End If
あなたがします。cscript実行可能ファイルを実行を管理している場合は、32ビットの実装であるX:\windows\syswow64\cscript.exe
バージョンを実行します。
' ***************
' *** 64bit check
' ***************
' check to see if we are on 64bit OS -> re-run this script with 32bit cscript
Function RestartWithCScript32(extraargs)
Dim strCMD, iCount
strCMD = r32wShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "\SysWOW64\cscript.exe"
If NOT r32fso.FileExists(strCMD) Then strCMD = "cscript.exe" ' This may not work if we can't find the SysWOW64 Version
strCMD = strCMD & Chr(32) & Wscript.ScriptFullName & Chr(32)
If Wscript.Arguments.Count > 0 Then
For iCount = 0 To WScript.Arguments.Count - 1
if Instr(Wscript.Arguments(iCount), " ") = 0 Then ' add unspaced args
strCMD = strCMD & " " & Wscript.Arguments(iCount) & " "
Else
If Instr("/-\", Left(Wscript.Arguments(iCount), 1)) > 0 Then ' quote spaced args
If InStr(WScript.Arguments(iCount),"=") > 0 Then
strCMD = strCMD & " " & Left(Wscript.Arguments(iCount), Instr(Wscript.Arguments(iCount), "=") ) & """" & Mid(Wscript.Arguments(iCount), Instr(Wscript.Arguments(iCount), "=") + 1) & """ "
ElseIf Instr(WScript.Arguments(iCount),":") > 0 Then
strCMD = strCMD & " " & Left(Wscript.Arguments(iCount), Instr(Wscript.Arguments(iCount), ":") ) & """" & Mid(Wscript.Arguments(iCount), Instr(Wscript.Arguments(iCount), ":") + 1) & """ "
Else
strCMD = strCMD & " """ & Wscript.Arguments(iCount) & """ "
End If
Else
strCMD = strCMD & " """ & Wscript.Arguments(iCount) & """ "
End If
End If
Next
End If
r32wShell.Run strCMD & " " & extraargs, 0, False
End Function
Dim r32wShell, r32env1, r32env2, r32iCount
Dim r32fso
SET r32fso = CreateObject("Scripting.FileSystemObject")
Set r32wShell = WScript.CreateObject("WScript.Shell")
r32env1 = r32wShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%")
If r32env1 <> "x86" Then ' not running in x86 mode
For r32iCount = 0 To WScript.Arguments.Count - 1
r32env2 = r32env2 & WScript.Arguments(r32iCount) & VbCrLf
Next
If InStr(r32env2,"restart32") = 0 Then RestartWithCScript32 "restart32" Else MsgBox "Cannot find 32bit version of cscript.exe or unknown OS type " & r32env1
Set r32wShell = Nothing
WScript.Quit
End If
Set r32wShell = Nothing
Set r32fso = Nothing
' *******************
' *** END 64bit check
' *******************
を配置スクリプトとそれに続くコードの先頭に上記のコードは、32ビットのODBCドライバへのアクセス権を持つ32ビットモードで実行されます。 ソースでます。
私たちは、キーのデフォルト値は常に "SYSWOW64" に "SYSTEM32" を変更することにより、32ビットモードで実行するVBScript強制することができ、 "コンピュータ\ HKLM \ SOFTWARE] \クラス\ VBSFile \シェル\オープン\コマンド"
64ビットマシン上で32ビットのスクリプトを実行するための別の方法: %WINDIR%\ SYSWOW64 \ます。cscript.exe vbscriptfile.vbs
ランチャースクリプトでは、あなたがそれを強制することができ、それは両方のアーキテクチャ
のために同じスクリプトと同じランチャーを維持することが可能:: For 32 bits architecture, this line is sufficent (32bits is the only cscript available)
set CSCRIPT="cscript.exe"
:: Detect windows 64bits and use the expected cscript (SysWOW64 contains 32bits executable)
if exist "C:\Windows\SysWOW64\cscript.exe" set CSCRIPT="C:\Windows\SysWOW64\cscript.exe"
%CSCRIPT% yourscript.vbs