(view source code of login_log_av_win7.vbs as plain text)
' Query the AV status
Set objWMISvc = GetObject( "winmgmts:{impersonationLevel=impersonate}!//./root/SecurityCenter2" )
Set colItems = objWMISvc.ExecQuery( "SELECT * FROM AntiVirusProduct" )
For Each objItem in colItems
strMsg = strMsg & objItem.displayName & "," & objItem.versionNumber & vbCrLf
Next
Set colItems = Nothing
Set objWMISvc = Nothing
' Log the result; variable 'strLog' and constant 'ForAppending' need to be set before
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
Set objLog = objFSO.OpenTextFile( strLog, ForAppending, True, TristateFalse )
objLog.WriteLine strMsg
objLog.Close
Set objLog = Nothing
Set objFSO = Nothing
page last modified: 2024-04-16; loaded in 0.0067 seconds