Option Explicit

Dim oAntiVirusProduct


Set oAntiVirusProduct = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter:AntiVirusProduct").Spawninstance_

' GUID is just some random GUID.
oAntiVirusProduct.instanceGuid = "{385C2AD3-E043-4696-9BD2-961867F4734F}"
oAntiVirusProduct.displayName = "ClamWin Free Antivirus"
oAntiVirusProduct.productUptoDate = true
oAntiVirusProduct.onAccessScanningEnabled = true
oAntiVirusProduct.Put_