On Error Resume Next Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\SecurityCenter2") If objWMIService is Nothing Then Wscript.StdOut.Write "NULL" Else Set installedAntiviruses = objWMIService.ExecQuery("Select * from AntivirusProduct") 'Iterates through all the antivirus software,retrieved by the WMI query,present on the system and prints only the ones that are active 'this is done by checking the 12th bit of the productState property of the antivirus 'if 12th bit is on then it means that the antivirus is in active state 'if 12th bit is off then it is inactive. 'see http://neophob.com/2010/03/wmi-query-windows-securitycenter2/ count=0 list="" For Each antivirus in installedAntiviruses If antivirus.productState And &h01000 Then 'checking the state of the 12th bit of productState property of the antivirus count=count+1 list=list & VBNewLine & VBtab & "*" & antivirus.displayName End if Next If count = 0 Then Wscript.StdOut.Write "NOT_FOUND" Else Wscript.Echo list End if End ifropia/zeta-7-4 LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/compilerplugins
diff options
context:
space:
mode:
authorStephan Bergmann <sbergman@redhat.com>2022-05-18 09:51:46 +0200
committerStephan Bergmann <sbergman@redhat.com>2022-05-18 10:52:59 +0200
commit41a967af06a9584a997e11079c3c931d34158c09 (patch)
tree494ca16d2d6148ad54ceacec4ab170f57efd8dd2 /compilerplugins
parent1b6ecb1dc544b7a462948a1c85d4bfc6f08865b8 (diff)
Extend loplugin:redundantcast to trivial reinterpret_cast from T to itself
Change-Id: I7c0be7b435d6b5f97bdd40484023584146638d70 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/134506 Tested-by: Jenkins Reviewed-by: Stephan Bergmann <sbergman@redhat.com>