You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > WMI > Samples > Applications
Quicklinks
ActiveXperts Network Monitor is an advanced and easy tool for monitoring LAN and WAN networks, network servers, workstations and TCP/IP devices. It has a large set of built-in checks, and you can add new checks by writing scripts. You can use VBScript (Windows) or RSH (UNIX) for it. VBScript checks can use WMI and ADSI. WMI is an interface to a broad range of properties of a computer/OS/application. With ADSI, you can monitor Directory Services.
Use the samples below to get used to various WMI classes, and use these classes in your own, custom ActiveXperts Network Monitor check. Each sample below can also be copied to a new file and then run from the command prompt (CSCRIPT.EXE <file>.vbs).
Win32_ApplicationServiceOn Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ApplicationService",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CreationClassName: " & objItem.CreationClassName
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Started: " & objItem.Started
Wscript.Echo "StartMode: " & objItem.StartMode
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
Wscript.Echo "SystemName: " & objItem.SystemName
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Binary",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Data: " & objItem.Data
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "ProductCode: " & objItem.ProductCode
Wscript.Echo "SettingID: " & objItem.SettingID
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BindImageAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "File: " & objItem.File
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Path: " & objItem.Path
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ClassInfoAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "AppID: " & objItem.AppID
Wscript.Echo "Argument: " & objItem.Argument
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CLSID: " & objItem.CLSID
Wscript.Echo "Context: " & objItem.Context
Wscript.Echo "DefInprocHandler: " & objItem.DefInprocHandler
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "FileTypeMask: " & objItem.FileTypeMask
Wscript.Echo "Insertable: " & objItem.Insertable
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "ProgID: " & objItem.ProgID
Wscript.Echo "RemoteName: " & objItem.RemoteName
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Wscript.Echo "VIProgID: " & objItem.VIProgID
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CommandLineAccess",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CommandLine: " & objItem.CommandLine
Wscript.Echo "CreationClassName: " & objItem.CreationClassName
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName
Wscript.Echo "SystemName: " & objItem.SystemName
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Condition",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Condition: " & objItem.Condition
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Feature: " & objItem.Feature
Wscript.Echo "Level: " & objItem.Level
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_CreateFolderAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "DirectoryName: " & objItem.DirectoryName
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DuplicateFileAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "DeleteAfterCopy: " & objItem.DeleteAfterCopy
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Destination: " & objItem.Destination
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "FileKey: " & objItem.FileKey
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "Source: " & objItem.Source
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_EnvironmentSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Environment: " & objItem.Environment
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Value: " & objItem.Value
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ExtensionInfoAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Argument: " & objItem.Argument
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Command: " & objItem.Command
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "Extension: " & objItem.Extension
Wscript.Echo "MIME: " & objItem.MIME
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "ProgID: " & objItem.ProgID
Wscript.Echo "ShellNew: " & objItem.ShellNew
Wscript.Echo "ShellNewValue: " & objItem.ShellNewValue
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Verb: " & objItem.Verb
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_FileSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Attributes: " & objItem.Attributes
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "CheckSum: " & objItem.CheckSum
Wscript.Echo "CRC1: " & objItem.CRC1
Wscript.Echo "CRC2: " & objItem.CRC2
Wscript.Echo "CreateTimeStamp: " & objItem.CreateTimeStamp
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "FileID: " & objItem.FileID
Wscript.Echo "FileSize: " & objItem.FileSize
Wscript.Echo "Language: " & objItem.Language
Wscript.Echo "MD5Checksum: " & objItem.MD5Checksum
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Sequence: " & objItem.Sequence
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_FontInfoAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "File: " & objItem.File
Wscript.Echo "FontTitle: " & objItem.FontTitle
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_IniFileSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Action: " & objItem.Action
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "CheckSum: " & objItem.CheckSum
Wscript.Echo "CRC1: " & objItem.CRC1
Wscript.Echo "CRC2: " & objItem.CRC2
Wscript.Echo "CreateTimeStamp: " & objItem.CreateTimeStamp
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "FileSize: " & objItem.FileSize
Wscript.Echo "IniFile: " & objItem.IniFile
Wscript.Echo "key: " & objItem.key
Wscript.Echo "MD5Checksum: " & objItem.MD5Checksum
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Section: " & objItem.Section
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Value: " & objItem.Value
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LaunchCondition",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Condition: " & objItem.Condition
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_MIMEInfoAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CLSID: " & objItem.CLSID
Wscript.Echo "ContentType: " & objItem.ContentType
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "Extension: " & objItem.Extension
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_MoveFileAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DestFolder: " & objItem.DestFolder
Wscript.Echo "DestName: " & objItem.DestName
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "FileKey: " & objItem.FileKey
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Options: " & objItem.Options
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "SourceFolder: " & objItem.SourceFolder
Wscript.Echo "SourceName: " & objItem.SourceName
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_MSIResource",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "SettingID: " & objItem.SettingID
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ODBCAttribute",,48)
For Each objItem in colItems
Wscript.Echo "Attribute: " & objItem.Attribute
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Driver: " & objItem.Driver
Wscript.Echo "SettingID: " & objItem.SettingID
Wscript.Echo "Value: " & objItem.Value
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ODBCDataSourceSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "DataSource: " & objItem.DataSource
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DriverDescription: " & objItem.DriverDescription
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Registration: " & objItem.Registration
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ODBCDriverSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Driver: " & objItem.Driver
Wscript.Echo "File: " & objItem.File
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SetupFile: " & objItem.SetupFile
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ODBCSourceAttribute",,48)
For Each objItem in colItems
Wscript.Echo "Attribute: " & objItem.Attribute
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "DataSource: " & objItem.DataSource
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "SettingID: " & objItem.SettingID
Wscript.Echo "Value: " & objItem.Value
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ODBCTranslatorSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "File: " & objItem.File
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SetupFile: " & objItem.SetupFile
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Translator: " & objItem.Translator
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Patch",,48)
For Each objItem in colItems
Wscript.Echo "Attributes: " & objItem.Attributes
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "File: " & objItem.File
Wscript.Echo "PatchSize: " & objItem.PatchSize
Wscript.Echo "ProductCode: " & objItem.ProductCode
Wscript.Echo "Sequence: " & objItem.Sequence
Wscript.Echo "SettingID: " & objItem.SettingID
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PatchPackage",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "PatchID: " & objItem.PatchID
Wscript.Echo "ProductCode: " & objItem.ProductCode
Wscript.Echo "SettingID: " & objItem.SettingID
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Product",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "IdentifyingNumber: " & objItem.IdentifyingNumber
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "InstallLocation: " & objItem.InstallLocation
Wscript.Echo "InstallState: " & objItem.InstallState
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "PackageCache: " & objItem.PackageCache
Wscript.Echo "SKUNumber: " & objItem.SKUNumber
Wscript.Echo "Vendor: " & objItem.Vendor
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ProgIDSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Parent: " & objItem.Parent
Wscript.Echo "ProgID: " & objItem.ProgID
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Property",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "ProductCode: " & objItem.ProductCode
Wscript.Echo "Property: " & objItem.Property
Wscript.Echo "SettingID: " & objItem.SettingID
Wscript.Echo "Value: " & objItem.Value
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PublishComponentAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "AppData: " & objItem.AppData
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "ComponentID: " & objItem.ComponentID
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Qual: " & objItem.Qual
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_RemoveFileAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "DirProperty: " & objItem.DirProperty
Wscript.Echo "File: " & objItem.File
Wscript.Echo "FileKey: " & objItem.FileKey
Wscript.Echo "FileName: " & objItem.FileName
Wscript.Echo "InstallMode: " & objItem.InstallMode
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_RemoveIniAction",,48)
For Each objItem in colItems
Wscript.Echo "Action: " & objItem.Action
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "key: " & objItem.key
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Section: " & objItem.Section
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Value: " & objItem.Value
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SelfRegModuleAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Cost: " & objItem.Cost
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "File: " & objItem.File
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ServiceControl",,48)
For Each objItem in colItems
Wscript.Echo "Arguments: " & objItem.Arguments
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Event: " & objItem.Event
Wscript.Echo "ID: " & objItem.ID
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "ProductCode: " & objItem.ProductCode
Wscript.Echo "SettingID: " & objItem.SettingID
Wscript.Echo "Wait: " & objItem.Wait
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ServiceSpecification",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Dependencies: " & objItem.Dependencies
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DisplayName: " & objItem.DisplayName
Wscript.Echo "ErrorControl: " & objItem.ErrorControl
Wscript.Echo "ID: " & objItem.ID
Wscript.Echo "LoadOrderGroup: " & objItem.LoadOrderGroup
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Password: " & objItem.Password
Wscript.Echo "ServiceType: " & objItem.ServiceType
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "StartName: " & objItem.StartName
Wscript.Echo "StartType: " & objItem.StartType
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ShortcutAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Arguments: " & objItem.Arguments
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "HotKey: " & objItem.HotKey
Wscript.Echo "IconIndex: " & objItem.IconIndex
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Shortcut: " & objItem.Shortcut
Wscript.Echo "ShowCmd: " & objItem.ShowCmd
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "Target: " & objItem.Target
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Wscript.Echo "WkDir: " & objItem.WkDir
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ShortcutSAP",,48)
For Each objItem in colItems
Wscript.Echo "Action: " & objItem.Action
Wscript.Echo "Element: " & objItem.Element
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoftwareElement",,48)
For Each objItem in colItems
Wscript.Echo "Attributes: " & objItem.Attributes
Wscript.Echo "BuildNumber: " & objItem.BuildNumber
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CodeSet: " & objItem.CodeSet
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "IdentificationCode: " & objItem.IdentificationCode
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "InstallState: " & objItem.InstallState
Wscript.Echo "LanguageEdition: " & objItem.LanguageEdition
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "OtherTargetOS: " & objItem.OtherTargetOS
Wscript.Echo "Path: " & objItem.Path
Wscript.Echo "SerialNumber: " & objItem.SerialNumber
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoftwareElementCondition",,48)
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CheckID: " & objItem.CheckID
Wscript.Echo "CheckMode: " & objItem.CheckMode
Wscript.Echo "Condition: " & objItem.Condition
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoftwareFeature",,48)
For Each objItem in colItems
Wscript.Echo "Accesses: " & objItem.Accesses
Wscript.Echo "Attributes: " & objItem.Attributes
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "IdentifyingNumber: " & objItem.IdentifyingNumber
Wscript.Echo "InstallDate: " & objItem.InstallDate
Wscript.Echo "InstallState: " & objItem.InstallState
Wscript.Echo "LastUse: " & objItem.LastUse
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "ProductName: " & objItem.ProductName
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "Vendor: " & objItem.Vendor
Wscript.Echo "Version: " & objItem.Version
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoftwareFeatureAction",,48)
For Each objItem in colItems
Wscript.Echo "Action: " & objItem.Action
Wscript.Echo "Element: " & objItem.Element
Next
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_TypeLibraryAction",,48)
For Each objItem in colItems
Wscript.Echo "ActionID: " & objItem.ActionID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Cost: " & objItem.Cost
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Direction: " & objItem.Direction
Wscript.Echo "Language: " & objItem.Language
Wscript.Echo "LibID: " & objItem.LibID
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
Wscript.Echo "Version: " & objItem.Version
Next