Moin,
das script läuft bei mir nicht... aber das hier
vbs-example
Habs hier mal rein kopiert:
Delphi-Quellcode:
'
**********************************
'by "Peter Urbanetz" <peter@[EMAIL
PROTECTED] > Oct 14, 2004 at 12:53 PM
'
**********************************
On Error Resume Next
strComputer = "." ' compname
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\SecurityCenter")
Set colItems = objWMIService.ExecQuery("Select * from FirewallProduct",,48)
For Each objItem
in colItems
MsgBox objItem.getObjectText_
Next
Set colItems = objWMIService.ExecQuery("Select * from AntiVirusProduct",,48)
For Each objItem
in colItems
MsgBox objItem.getObjectText_
Next
'
**********************************
'I hope it
is helpfull
'
Peter
'