Contact Info

Crumbtrail » Administration » Scripts » WMI Performance Counters » VBScript

ClassicCOMClassSetting - WMI sample in VBScript

The foundations for Manageability in Windows 2019/2012/2008/ and Windows 10/8/7/Vista/XP are Windows Management Instrumentation (WMI; formerly WBEM) and WMI extensions for Windows Driver Model (WDM).

ActiveXperts Network Monitor provides the ability to build monitor check routines based on WMI. ActiveXperts has collected more than a hundred WMI samples. You can use these samples as a base for new check routines you can write yourself.

On this site, you can find many WMI samples.

The ClassicCOMClassSetting WMI class can be used in ActiveXperts Network Monitor to monitor your servers.



Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_ClassicCOMClassSetting")

For Each objItem in colItems
	WScript.Echo "AppID:" & objItem.AppID
	WScript.Echo "AutoConvertToClsid:" & objItem.AutoConvertToClsid
	WScript.Echo "AutoTreatAsClsid:" & objItem.AutoTreatAsClsid
	WScript.Echo "Caption:" & objItem.Caption
	WScript.Echo "ComponentId:" & objItem.ComponentId
	WScript.Echo "Control:" & objItem.Control
	WScript.Echo "DefaultIcon:" & objItem.DefaultIcon
	WScript.Echo "Description:" & objItem.Description
	WScript.Echo "InprocHandler:" & objItem.InprocHandler
	WScript.Echo "InprocHandler32:" & objItem.InprocHandler32
	WScript.Echo "InprocServer:" & objItem.InprocServer
	WScript.Echo "InprocServer32:" & objItem.InprocServer32
	WScript.Echo "Insertable:" & objItem.Insertable
	WScript.Echo "JavaClass:" & objItem.JavaClass
	WScript.Echo "LocalServer:" & objItem.LocalServer
	WScript.Echo "LocalServer32:" & objItem.LocalServer32
	WScript.Echo "LongDisplayName:" & objItem.LongDisplayName
	WScript.Echo "ProgId:" & objItem.ProgId
	WScript.Echo "SettingID:" & objItem.SettingID
	WScript.Echo "ShortDisplayName:" & objItem.ShortDisplayName
	WScript.Echo "ThreadingModel:" & objItem.ThreadingModel
	WScript.Echo "ToolBoxBitmap32:" & objItem.ToolBoxBitmap32
	WScript.Echo "TreatAsClsid:" & objItem.TreatAsClsid
	WScript.Echo "TypeLibraryId:" & objItem.TypeLibraryId
	WScript.Echo "Version:" & objItem.Version
	WScript.Echo "VersionIndependentProgId:" & objItem.VersionIndependentProgId
	WScript.Echo ""
	WScript.Echo "########"
	WScript.Echo ""