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

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です