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 if/libreoffice-5-0'>distro/cib/libreoffice-5-0 LibreOffice 核心代码仓库文档基金会
summaryrefslogtreecommitdiff
path: root/svx/source/sdr/primitive2d
AgeCommit message (Expand)Author
5 daystdf#135320 sd fix soft edges are not shown on text framesBalazs Varga
2024-11-22PVS: V560 A part of conditional expression is always trueXisco Fauli
2024-11-20Resolves tdf#163856 - Disentangle boundaries optionsHeiko Tietze
2024-11-12clang-tidy: performance-unnecessary-copy-initialization in svxNoel Grandin
2024-10-26cid#1555767 COPY_INSTEAD_OF_MOVECaolán McNamara
2024-10-22move vcl::DeleteOnDeinit to toolsNoel Grandin
2024-10-21Support FixedCellHeight in SdrAutoFitTextPrimitive2DArmin Le Grand (allotropia)
2024-09-29Related: tdf#161826 - A bit more accurate Glow effect for texts in shapesBalazs Varga