インストールされているウィルス対策ソフトの情報を列挙するVBScript

使い道は不明です。

Option Explicit

Dim colItems
Dim oItem

On Error Resume Next
Set colItems = CreateObject("WbemScripting.SWbemLocator") _
              .ConnectServer(".", "root\SecurityCenter2") _
              .ExecQuery("Select * from AntiVirusProduct")
For Each oItem In colItems
  WScript.Echo "displayName:" & oItem.displayName
  WScript.Echo "instanceGuid:" & oItem.instanceGuid
  WScript.Echo "pathToSignedProductExe:" & oItem.pathToSignedProductExe
  WScript.Echo "pathToSignedReportingExe:" & oItem.pathToSignedReportingExe
  WScript.Echo "productState:" & oItem.productState
Next
Set colItems = Nothing

If Err.Number <> 0 Then
  Set colItems = CreateObject("WbemScripting.SWbemLocator") _
                .ConnectServer(".", "root\SecurityCenter") _
                .ExecQuery("Select * from AntiVirusProduct")
  For Each oItem In colItems
    WScript.Echo "companyName:" & oItem.companyName
    WScript.Echo "displayName:" & oItem.displayName
    WScript.Echo "enableOnAccessUIMd5Hash:" & oItem.enableOnAccessUIMd5Hash
    WScript.Echo "enableOnAccessUIParameters:" & oItem.enableOnAccessUIParameters
    WScript.Echo "instanceGuid:" & oItem.instanceGuid
    WScript.Echo "onAccessScanningEnabled:" & oItem.onAccessScanningEnabled
    WScript.Echo "pathToEnableOnAccessUI:" & oItem.pathToEnableOnAccessUI
    WScript.Echo "pathToUpdateUI:" & oItem.pathToUpdateUI
    WScript.Echo "productUptoDate:" & oItem.productUptoDate
    WScript.Echo "updateUIMd5Hash:" & oItem.updateUIMd5Hash
    WScript.Echo "updateUIParameters:" & oItem.updateUIParameters
    WScript.Echo "versionNumber:" & oItem.versionNumber
  Next
  Set colItems = Nothing
  Err.Clear
End If
On Error GoTo 0
広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト / 変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト / 変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト / 変更 )

Google+ フォト

Google+ アカウントを使ってコメントしています。 ログアウト / 変更 )

%s と連携中


%d人のブロガーが「いいね」をつけました。