ica ping wmi vbscript alternative

Here is a great way to use the wmi root\cimv2 repository, attach to Win32_PerfFormattedData_CitrixICA_ICASession and pull in some additional metrics in an effort to build from ica ping.

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("host")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_CitrixICA_ICASession", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
      WScript.Echo "Caption: " & objItem.Caption
      WScript.Echo "Description: " & objItem.Description
      WScript.Echo "Frequency_Object: " & objItem.Frequency_Object
      WScript.Echo "Frequency_PerfTime: " & objItem.Frequency_PerfTime
      WScript.Echo "Frequency_Sys100NS: " & objItem.Frequency_Sys100NS
      WScript.Echo "InputAudioBandwidth: " & objItem.InputAudioBandwidth
      WScript.Echo "InputClipboardBandwidt: " & objItem.InputClipboardBandwidt
      WScript.Echo "InputCOM1Bandwidth: " & objItem.InputCOM1Bandwidth
      WScript.Echo "InputCOM2Bandwidth: " & objItem.InputCOM2Bandwidth
      WScript.Echo "InputCOMBandwidth: " & objItem.InputCOMBandwidth
      WScript.Echo "InputControlChannelBandwidth: " & objItem.InputControlChannelBandwidth
      WScript.Echo "InputDriveBandwidth: " & objItem.InputDriveBandwidth
      WScript.Echo "InputFontDataBandwidth: " & objItem.InputFontDataBandwidth
      WScript.Echo "InputLicensingBandwidth: " & objItem.InputLicensingBandwidth
      WScript.Echo "InputLPT1Bandwidth: " & objItem.InputLPT1Bandwidth
      WScript.Echo "InputLPT2Bandwidth: " & objItem.InputLPT2Bandwidth
      WScript.Echo "InputManagementBandwidth: " & objItem.InputManagementBandwidth
      WScript.Echo "InputPNBandwidth: " & objItem.InputPNBandwidth
      WScript.Echo "InputPrinterBandwidth: " & objItem.InputPrinterBandwidth
      WScript.Echo "InputSeamlessBandwidth: " & objItem.InputSeamlessBandwidth
      WScript.Echo "InputSessionBandwidth: " & objItem.InputSessionBandwidth
      WScript.Echo "InputSessionCompression: " & objItem.InputSessionCompression
      WScript.Echo "InputSessionLineSpeed: " & objItem.InputSessionLineSpeed
      WScript.Echo "InputSpeedScreenDataChannelBandwidth: " & objItem.InputSpeedScreenDataChannelBandwidth
      WScript.Echo "InputTextEchoBandwidth: " & objItem.InputTextEchoBandwidth
      WScript.Echo "InputThinWireBandwidth: " & objItem.InputThinWireBandwidth
      WScript.Echo "InputVideoFrameBandwidth: " & objItem.InputVideoFrameBandwidth
      WScript.Echo "LatencyLastRecorded: " & objItem.LatencyLastRecorded
      WScript.Echo "LatencySessionAverage: " & objItem.LatencySessionAverage
      WScript.Echo "LatencySessionDeviation: " & objItem.LatencySessionDeviation
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "OutputAudioBandwidth: " & objItem.OutputAudioBandwidth
      WScript.Echo "OutputClipboardBandwidth: " & objItem.OutputClipboardBandwidth
      WScript.Echo "OutputCOM1Bandwidth: " & objItem.OutputCOM1Bandwidth
      WScript.Echo "OutputCOM2Bandwidth: " & objItem.OutputCOM2Bandwidth
      WScript.Echo "OutputCOMBandwidth: " & objItem.OutputCOMBandwidth
      WScript.Echo "OutputControlChannelBandwidth: " & objItem.OutputControlChannelBandwidth
      WScript.Echo "OutputDriveBandwidth: " & objItem.OutputDriveBandwidth
      WScript.Echo "OutputFontDataBandwidth: " & objItem.OutputFontDataBandwidth
      WScript.Echo "OutputLicensingBandwidth: " & objItem.OutputLicensingBandwidth
      WScript.Echo "OutputLPT1Bandwidth: " & objItem.OutputLPT1Bandwidth
      WScript.Echo "OutputLPT2Bandwidth: " & objItem.OutputLPT2Bandwidth
      WScript.Echo "OutputManagementBandwidth: " & objItem.OutputManagementBandwidth
      WScript.Echo "OutputPNBandwidth: " & objItem.OutputPNBandwidth
      WScript.Echo "OutputPrinterBandwidth: " & objItem.OutputPrinterBandwidth
      WScript.Echo "OutputSeamlessBandwidth: " & objItem.OutputSeamlessBandwidth
      WScript.Echo "OutputSessionBandwidth: " & objItem.OutputSessionBandwidth
      WScript.Echo "OutputSessionCompression: " & objItem.OutputSessionCompression
      WScript.Echo "OutputSessionLineSpeed: " & objItem.OutputSessionLineSpeed
      WScript.Echo "OutputSpeedScreenDataChannelBandwidth: " & objItem.OutputSpeedScreenDataChannelBandwidth
      WScript.Echo "OutputTextEchoBandwidth: " & objItem.OutputTextEchoBandwidth
      WScript.Echo "OutputThinWireBandwidth: " & objItem.OutputThinWireBandwidth
      WScript.Echo "OutputVideoFrameBandwidth: " & objItem.OutputVideoFrameBandwidth
      WScript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
      WScript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
      WScript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
      WScript.Echo
   Next
Next