SQL Native Client の自動インストールスクリプト
SQL Native Client はOS標準ではないため、各PCにインストールする必要があります。
SQL Serverを使用するプログラムを起動する前に、SQL Native Client がインストールされているか判定し、自動的にインストールするスクリプトを書いてみたので、載せておきます。
'******************************************************************** '* SQL Native Client インストール '******************************************************************** Option Explicit On Error Resume Next Dim objFSO ' FileSystemObject Dim objWshShell ' WshShell オブジェクト Dim objExec ' WshShell オブジェクト Dim strCmdLine ' インストールコマンド(ユーザ操作無し) Dim strFile1 ' dllファイル Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") If Err.Number = 0 Then strFile1 = "C:\WINDOWS\system32\sqlncli.dll" strCmdLine = "msiexec /i ""\\Landisk\Software\SQL Server Native Client\sqlncli.msi"" /qb /norestart" 'インストールファイルの有無確認 If objFSO.FileExists(strFile1) = False Then 'ネイティブクラインアントのサイレントインストール Set objWshShell = WScript.CreateObject("WScript.Shell") Set objExec = objWshShell.Exec(strCmdLine) Do While objExec.Status = 0 ' 1秒待ってみる WScript.Sleep(1000) Loop Set objWshShell = Nothing End If Else WScript.Echo "エラー: " & Err.Description End If Set objFSO = Nothing