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

We have a script which needs to be deployed to hosts across the domain footprint which needs to install a small application upon meeting certain criteria.  This seems to be a relatively easy task and can be easily accomplished in several ways. (example) One would be inclined to write a vbscript, use wmi, and enumerate some type of computer/vendor/model attribute prior to the install. To perhaps save some time, here is what we did and below is the criteria we used to make the decision through automation.

Criteria:

1. The remote host must be online at the time the script is run.
2. To return the neccessary value (laptop found) the host must be online and have some type of battery as a power source.  In this scenario, we are going to rely on win32_battery to provide us with the necessary results.
3. Upon detection, install symantec scrip to allow users to update their definitions.
4. Here is the functon we used to determine whether or not the remote host is a laptop w/ a battery.

Function IsLaptop( myComputer )
    On Error Resume Next
    Set objWMIService = GetObject( "winmgmts://" & myComputer & "/root/cimv2" )
    Set colItems = objWMIService.ExecQuery( "Select * from Win32_Battery", , 48 )
    IsLaptop = False
    For Each objItem in colItems
        IsLaptop = True
    Next
    If Err Then Err.Clear
    On Error Goto 0
End Function

Accessing the above Function:

Here is one way you can call upon the code(function) and return the results for later use.

If IsLaptop( "." ) Then
    WScript.Echo "Laptop"
Else
    WScript.Echo "Desktop or server"
End If