ActiveXperts Network Monitor ships with a large collection of WMI based PowerShell scripts and VBScript scripts to monitor and manage a network.
Use ActiveXperts Netork Monitor to monitor your virtualization servers, domains, computers and devices. It runs on a single Windows server, without agents required on the monitored systems. It has many built-in checks and also allows administrators to create custom checks using PowerShell, VBScript, WMI and SSH.
The foundations for Manageability in Windows 7/2008/Vista/XP/2000 and Millennium Edition/'98 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 Win32_TCPIPPrinterPort WMI class can be used in ActiveXperts Network Monitor to monitor your servers.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_TCPIPPrinterPort",,48) For Each objItem in colItems Wscript.Echo "ByteCount: " & objItem.ByteCount Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "CreationClassName: " & objItem.CreationClassName Wscript.Echo "Description: " & objItem.Description Wscript.Echo "HostAddress: " & objItem.HostAddress Wscript.Echo "InstallDate: " & objItem.InstallDate Wscript.Echo "Name: " & objItem.Name Wscript.Echo "PortNumber: " & objItem.PortNumber Wscript.Echo "Protocol: " & objItem.Protocol Wscript.Echo "Queue: " & objItem.Queue Wscript.Echo "SNMPCommunity: " & objItem.SNMPCommunity Wscript.Echo "SNMPDevIndex: " & objItem.SNMPDevIndex Wscript.Echo "SNMPEnabled: " & objItem.SNMPEnabled Wscript.Echo "Status: " & objItem.Status Wscript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName Wscript.Echo "SystemName: " & objItem.SystemName Wscript.Echo "Type: " & objItem.Type Next