install.vbs

   1 Option Explicit
   2
   3 Dim oAntiVirusProduct
   4 Dim productName
   5 Dim productGuid
   6
   7 productName = "Bogo Antivirus 2012"
   8 productGuid = "{385C2AD3-E043-1337-CAFE-BABEDEADBEEF}"
   9
  10 ' GUID is just some random GUID.
  11 ' productGuid = "{385C2AD3-E043-4696-9BD2-961867F4734F}"
  12
  13 Set oAntiVirusProduct = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter:AntiVirusProduct").Spawninstance_
  14
  15 oAntiVirusProduct.instanceGuid = productGuid
  16 oAntiVirusProduct.displayName = productName
  17 oAntiVirusProduct.productUptoDate = true
  18 oAntiVirusProduct.onAccessScanningEnabled = true
  19 oAntiVirusProduct.Put_