Add(MainForm,2953706,252,147)
{
 link(onCreate,5307344:doEnum,[])
}
Add(VBJScript,5307344,308,161)
{
 WorkPoints=#6:doEnum|
 EventPoints=#6:onEnum|
 Script=#23:Sub doWork(Data, Index)|20:On Error Resume Next|17:strComputer = "."|74:Set objWMIService = GetObject("winmgmts:\" & strComputer & "ootcimv2")|80:Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48)|28:For Each objItem in colItems|54:    sys.onEnum "Availability: " & objItem.Availability|48:    sys.onEnum "Bandwidth: " & objItem.Bandwidth|44:    sys.onEnum "Caption: " & objItem.Caption|74:    sys.onEnum "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode|76:    sys.onEnum "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig|64:    sys.onEnum "CreationClassName: " & objItem.CreationClassName|52:    sys.onEnum "Description: " & objItem.Description|46:    sys.onEnum "DeviceID: " & objItem.DeviceID|52:    sys.onEnum "DisplayType: " & objItem.DisplayType|54:    sys.onEnum "ErrorCleared: " & objItem.ErrorCleared|62:    sys.onEnum "ErrorDescription: " & objItem.ErrorDescription|52:    sys.onEnum "InstallDate: " & objItem.InstallDate|46:    sys.onEnum "IsLocked: " & objItem.IsLocked|56:    sys.onEnum "LastErrorCode: " & objItem.LastErrorCode|68:    sys.onEnum "MonitorManufacturer: " & objItem.MonitorManufacturer|52:    sys.onEnum "MonitorType: " & objItem.MonitorType|38:    sys.onEnum "Name: " & objItem.Name|72:    sys.onEnum "PixelsPerXLogicalInch: " & objItem.PixelsPerXLogicalInch|72:    sys.onEnum "PixelsPerYLogicalInch: " & objItem.PixelsPerYLogicalInch|52:    sys.onEnum "PNPDeviceID: " & objItem.PNPDeviceID|84:    sys.onEnum "PowerManagementCapabilities: " & objItem.PowerManagementCapabilities|78:    sys.onEnum "PowerManagementSupported: " & objItem.PowerManagementSupported|54:    sys.onEnum "ScreenHeight: " & objItem.ScreenHeight|52:    sys.onEnum "ScreenWidth: " & objItem.ScreenWidth|42:    sys.onEnum "Status: " & objItem.Status|50:    sys.onEnum "StatusInfo: " & objItem.StatusInfo|76:    sys.onEnum "SystemCreationClassName: " & objItem.SystemCreationClassName|50:    sys.onEnum "SystemName: " & objItem.SystemName|4:Next|8:End Sub |
 UseName=0
 link(onEnum,5607307:doAdd,[])
}
Add(Memo,5607307,357,161)
{
 Left=385
 Top=160
 Align=5
}