object WmiDemoForm: TWmiDemoForm
  Left = 96
  Top = 180
  Caption = 'ICS WMI Test Demo'
  ClientHeight = 806
  ClientWidth = 879
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Segoe UI'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 13
  object PanelTop: TPanel
    Left = 0
    Top = 0
    Width = 879
    Height = 588
    Align = alTop
    Caption = 'PanelTop'
    TabOrder = 0
    ExplicitWidth = 877
    object PanelLogins: TPanel
      Left = 1
      Top = 1
      Width = 877
      Height = 41
      Align = alTop
      TabOrder = 1
      ExplicitWidth = 875
      object Label1: TLabel
        Left = 10
        Top = 15
        Width = 51
        Height = 13
        Caption = 'Computer'
      end
      object Label3: TLabel
        Left = 206
        Top = 13
        Width = 97
        Height = 13
        Caption = 'Remote User Name'
      end
      object Label9: TLabel
        Left = 450
        Top = 15
        Width = 91
        Height = 13
        Caption = 'Remote Password'
      end
      object NetComputer: TEdit
        Left = 73
        Top = 10
        Width = 113
        Height = 21
        TabOrder = 0
        Text = '.'
      end
      object NetUserName: TEdit
        Left = 310
        Top = 10
        Width = 124
        Height = 21
        TabOrder = 1
      end
      object NetPassword: TEdit
        Left = 555
        Top = 10
        Width = 113
        Height = 21
        PasswordChar = '*'
        TabOrder = 2
      end
      object doExit2: TButton
        Left = 780
        Top = 9
        Width = 75
        Height = 25
        Caption = 'Exit'
        TabOrder = 3
        OnClick = doExitClick
      end
    end
    object PageControl: TPageControl
      Left = 1
      Top = 42
      Width = 877
      Height = 545
      ActivePage = TabSheetWmi
      Align = alClient
      TabOrder = 0
      ExplicitWidth = 875
      object TabSheetWmi: TTabSheet
        Caption = 'WMI Classes'
        ImageIndex = 1
        object WmiListView: TListView
          Left = 0
          Top = 116
          Width = 869
          Height = 401
          Align = alClient
          Columns = <
            item
              Width = 120
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
              Width = 150
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end>
          ColumnClick = False
          GridLines = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
        object PanelWmi: TPanel
          Left = 0
          Top = 0
          Width = 869
          Height = 116
          Align = alTop
          TabOrder = 1
          ExplicitWidth = 867
          object Label5: TLabel
            Left = 10
            Top = 13
            Width = 58
            Height = 13
            Caption = 'Namespace'
          end
          object Label2: TLabel
            Left = 391
            Top = 4
            Width = 254
            Height = 26
            Caption = 
              'The List View is set from a dynamic array so values may be acces' +
              'sed programmatically'
            WordWrap = True
          end
          object LabelStatus: TLabel
            Left = 662
            Top = 10
            Width = 196
            Height = 53
            AutoSize = False
            Color = clYellow
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'Segoe UI'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            Transparent = False
            WordWrap = True
          end
          object Label6: TLabel
            Left = 574
            Top = 85
            Width = 43
            Height = 13
            Caption = 'Property'
          end
          object WmiClass: TComboBox
            Left = 135
            Top = 45
            Width = 511
            Height = 21
            TabOrder = 2
            Text = 'Win32_OperatingSystem'
            Items.Strings = (
              'Win32_OperatingSystem'
              'Win32_Keyboard'
              'Win32_AutochkSetting'
              'Win32_DiskDrive'
              'Win32_DiskDrivePhysicalMedia'
              'Win32_PhysicalMedia'
              'Win32_LogicalDisk'
              'Win32_MappedLogicalDisk'
              'Win32_TapeDrive'
              'Win32_BaseBoard'
              'Win32_BIOS'
              'Win32_Bus'
              'Win32_DeviceSettings'
              'Win32_Fan'
              'Win32_IDEController'
              'Win32_MemoryDevice'
              'Win32_PhysicalMemory'
              'Win32_PNPDevice'
              'Win32_PortConnector'
              'Win32_Processor'
              'Win32_SCSIController '
              'Win32_SCSIControllerDevice'
              'Win32_SerialPort'
              'Win32_SerialPortConfiguration'
              'Win32_SerialPortSetting'
              'Win32_SoundDevice'
              'Win32_SystemBIOS'
              'Win32_USBController'
              'Win32_USBControllerDevice'
              'Win32_NetworkAdapter'
              'Win32_NetworkAdapterConfiguration'
              'Win32_NetworkAdapterSetting'
              'Win32_Printer'
              'Win32_PrinterConfiguration'
              'Win32_POTSModem'
              'Win32_POTSModemToSerialPort'
              'Win32_DesktopMonitor'
              'Win32_DisplayConfiguration'
              'Win32_VideoController'
              'Win32_VideoSettings'
              'Win32_ActiveRoute'
              'Win32_IP4PersistedRouteTable'
              'Win32_IP4RouteTable'
              'Win32_NetworkClient'
              'Win32_NetworkConnection'
              'Win32_BootConfiguration'
              'Win32_ComputerSystem'
              'Win32_MotherboardDevice'
              'Win32_SystemUsers'
              'Win32_SystemTimeZone'
              'Win32_SystemSetting'
              'Win32_Account'
              'Win32_UserAccount'
              'Win32_SystemAccount'
              'Win32_Group'
              'Win32_LogonSession'
              'Win32_ComputerSystemWindowsProductActivation'
              'Win32_WindowsProductActivation'
              'Win32_FontIntoAction'
              'Win32_ScheduledJob'
              'Win32_Process'
              'Win32_ServiceControl'
              'Win32_Product'
              'Win32_TemperatureProbe '
              'Win32_StartupCommand'
              'Win32_BaseService'
              'Win32_Service'
              'Win32_Desktop'
              'Win32_Environment'
              'Win32_LogicalProgramGroup'
              'Win32_ProgramGroup'
              'Win32_UninterruptiblePowerSupply'
              'Win32_Battery'
              'Win32_PortableBattery'
              'Win32_CurrentProbe'
              'Win32_VoltageProbe'
              'Win32_PerfFormattedData_RemoteAccess_RASTotal'
              'Win32_PerfFormattedData_RemoteAccess_RASPort'
              'Win32_PerfRawData_RemoteAccess_RASPort'
              '(following are in Namespace root\wmi)'
              'MSNdis_HardwareStatus'
              'MSNdis_80211_TransmitPowerLevel'
              'MSNdis_80211_ReceivedSignalStrength'
              'MSNdis_MediaConnectStatus'
              'MSTapeDriveParam'
              'MSRedbook_DriverInformation'
              'MSSerial_PortName'
              'MSStorageDriver_FailurePredictStatus'
              'MSStorageDriver_ATAPISmartData'
              '(following are in Namespace root\microsoftdns)'
              'MicrosoftDNS_Server'
              'MicrosoftDNS_Domain'
              'MicrosoftDNS_Zone'
              'MicrosoftDNS_Cache'
              'MicrosoftDNS_RootHints'
              'MicrosoftDNS_Statistic'
              'MicrosoftDNS_ServerDomainContainment'
              'MicrosoftDNS_DomainDomainContainment'
              'MicrosoftDNS_DomainResourceRecordContainment'
              'MicrosoftDNS_ResourceRecord'
              'MicrosoftDNS_AAAAType'
              'MicrosoftDNS_AFSDBType'
              'MicrosoftDNS_ATMAType'
              'MicrosoftDNS_AType'
              'MicrosoftDNS_CNAMEType'
              'MicrosoftDNS_HINFOType'
              'MicrosoftDNS_ISDNType'
              'MicrosoftDNS_KEYType'
              'MicrosoftDNS_MBType'
              'MicrosoftDNS_MDType'
              'MicrosoftDNS_MFType'
              'MicrosoftDNS_MGType'
              'MicrosoftDNS_MINFOType'
              'MicrosoftDNS_MRType'
              'MicrosoftDNS_MXType'
              'MicrosoftDNS_NSType'
              'MicrosoftDNS_NXTType'
              'MicrosoftDNS_PTRType'
              'MicrosoftDNS_RPType'
              'MicrosoftDNS_RTType'
              'MicrosoftDNS_SIGType'
              'MicrosoftDNS_SOAType'
              'MicrosoftDNS_SRVType'
              'MicrosoftDNS_TXTType'
              'MicrosoftDNS_WINSRType'
              'MicrosoftDNS_WINSType'
              'MicrosoftDNS_WKSType'
              'MicrosoftDNS_X25Type')
          end
          object doGetClass: TButton
            Left = 10
            Top = 45
            Width = 106
            Height = 22
            Caption = 'Get WMI Class'
            TabOrder = 5
            OnClick = doGetClassClick
          end
          object WmiNamespace: TComboBox
            Left = 85
            Top = 10
            Width = 170
            Height = 21
            TabOrder = 0
            Text = 'root\CIMV2'
            Items.Strings = (
              'root\CIMV2'
              'root\WMI'
              'root\microsoftdns'
              'root\Virtualization'
              'root\Hardware')
          end
          object doGetOneProp: TButton
            Left = 10
            Top = 80
            Width = 106
            Height = 22
            Caption = 'Get One Property'
            TabOrder = 6
            OnClick = doGetOnePropClick
          end
          object WmiCommand: TComboBox
            Left = 135
            Top = 80
            Width = 421
            Height = 21
            TabOrder = 3
            Text = 'SELECT * FROM Win32_LogicalDisk WHERE Name = "C:"'
            Items.Strings = (
              'SELECT * FROM Win32_LogicalDisk WHERE Name = "C:"'
              'SELECT * FROM Win32_OperatingSystem'
              
                'SELECT * FROM Win32_DiskDrive WHERE Name ="\\\\.\\PHYSICALDRIVE0' +
                '"'
              
                'SELECT * FROM Win32_NetworkAdapter WHERE Name = "RAS Async Adapt' +
                'er"'
              
                'SELECT * FROM Win32_ServiceControl  WHERE Name = "Remote Procedu' +
                're Call (RPC)"'
              
                'SELECT * FROM Win32_NetworkAdapter WHERE ConfigManagerErrorCode ' +
                '= 0'
              
                'SELECT Name, MACAddress, ConfigManagerErrorCode, NetConnectionID' +
                '  FROM Win32_NetworkAdapter WHERE AdapterType = '#39'Ethernet 802.3'#39
              
                'SELECT Name, Model, InterfaceType, MediaType, Size from Win32_Di' +
                'skDrive'
              
                'SELECT Name, Description, DriveType, FileSystem, FreeSpace, Size' +
                ', VolumeSerialNumber from Win32_LogicalDisk'
              
                'SELECT Description, IPAddress, IPSubnet, IPConnectionMetric, MAC' +
                'Address, DefaultIPGateway FROM Win32_NetworkAdapterConfiguration' +
                ' WHERE DefaultTTL > 1'
              '')
          end
          object WmiOneProp: TComboBox
            Left = 635
            Top = 80
            Width = 145
            Height = 21
            TabOrder = 4
            Text = 'VolumeName'
            Items.Strings = (
              'VolumeName'
              'Caption'
              'Name'
              'MACAddress'
              'ConfigManagerErrorCode'
              'AdapterType'
              'Handle'
              'Size')
          end
          object WmiLogOutput: TCheckBox
            Left = 282
            Top = 10
            Width = 151
            Height = 17
            Caption = 'Log Output'
            Checked = True
            State = cbChecked
            TabOrder = 1
          end
        end
      end
      object TabSheetNetwork: TTabSheet
        Caption = 'Computer'
        object Panel2: TPanel
          Left = 3
          Top = 10
          Width = 869
          Height = 116
          TabOrder = 0
          object Label15: TLabel
            Left = 140
            Top = 70
            Width = 109
            Height = 13
            Caption = 'New Computer Name'
          end
          object Label4: TLabel
            Left = 275
            Top = 20
            Width = 293
            Height = 26
            Caption = 
              'A confirmatin dialog appears before these buttons work.'#13#10'These w' +
              'ork on local and remote PCs. '
          end
          object doRenameComp: TButton
            Left = 20
            Top = 65
            Width = 101
            Height = 25
            Caption = 'Rename Computer'
            TabOrder = 2
            OnClick = doRenameCompClick
          end
          object NewCompName: TEdit
            Left = 265
            Top = 65
            Width = 141
            Height = 21
            TabOrder = 3
          end
          object doReboot: TButton
            Left = 140
            Top = 20
            Width = 102
            Height = 25
            Caption = 'Reboot PC'
            TabOrder = 0
            OnClick = doRebootClick
          end
          object doCloseDown: TButton
            Left = 20
            Top = 20
            Width = 101
            Height = 25
            Caption = 'Power Down PC'
            TabOrder = 1
            OnClick = doCloseDownClick
          end
        end
      end
      object TabSheet1: TTabSheet
        Caption = 'Network'
        ImageIndex = 2
        object GroupBoxAddr: TGroupBox
          Left = 6
          Top = 10
          Width = 860
          Height = 393
          Caption = 'Ethernet 802.3 Network Adaptors'
          TabOrder = 0
          object Label11: TLabel
            Left = 22
            Top = 324
            Width = 338
            Height = 66
            AutoSize = False
            Caption = 
              'Static and gatway IP addresses may be updated for a specific ada' +
              'pter, first getting existing addresses, update the grids, blanki' +
              'ng old addresses if needed, new ones at the end, then click Set.' +
              ' '#13#10'Program requires ADMIN access to update addresses.'
            WordWrap = True
          end
          object doGetAdaptors: TButton
            Left = 10
            Top = 284
            Width = 75
            Height = 25
            Caption = 'List Adaptors'
            TabOrder = 0
            OnClick = doGetAdaptorsClick
          end
          object ListNetAdaptors: TListView
            Left = 10
            Top = 20
            Width = 436
            Height = 246
            Columns = <
              item
                Caption = 'Adpt #'
              end
              item
                Caption = 'Name'
                Width = 200
              end
              item
                Caption = 'Connection'
                Width = 200
              end>
            GridLines = True
            HotTrack = True
            ReadOnly = True
            RowSelect = True
            TabOrder = 1
            ViewStyle = vsReport
            OnDblClick = ListNetAdaptorsDblClick
          end
          object doGetAddresses: TButton
            Left = 101
            Top = 284
            Width = 85
            Height = 25
            Caption = 'Get Addresses'
            TabOrder = 2
            OnClick = doGetAddressesClick
          end
          object doSetAddresses: TButton
            Left = 206
            Top = 284
            Width = 86
            Height = 25
            Caption = 'Set Addresses'
            TabOrder = 3
            OnClick = doSetAddressesClick
          end
          object NetUseDhcp: TCheckBox
            Left = 319
            Top = 292
            Width = 97
            Height = 17
            Caption = 'Use DHCP'
            TabOrder = 4
          end
          object ListNetIPs: TStringGrid
            Left = 460
            Top = 20
            Width = 385
            Height = 231
            ColCount = 2
            DefaultColWidth = 200
            DefaultRowHeight = 17
            FixedCols = 0
            RowCount = 10
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAlwaysShowEditor]
            TabOrder = 5
            ColWidths = (
              212
              200)
          end
          object ListNetGateways: TStringGrid
            Left = 460
            Top = 257
            Width = 326
            Height = 119
            ColCount = 2
            DefaultColWidth = 200
            DefaultRowHeight = 17
            FixedCols = 0
            RowCount = 10
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goAlwaysShowEditor]
            TabOrder = 6
            ColWidths = (
              212
              200)
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'DNS Server'
        ImageIndex = 3
        object GroupBoxDns: TGroupBox
          Left = 5
          Top = 10
          Width = 861
          Height = 496
          Caption = 'Windows DNS Server Zones and Records'
          TabOrder = 0
          object Label13: TLabel
            Left = 20
            Top = 292
            Width = 232
            Height = 13
            Caption = 'Double Click on a Zone for Resource Records'
          end
          object LabelDnsStatus: TLabel
            Left = 15
            Top = 382
            Width = 261
            Height = 74
            AutoSize = False
            Color = clYellow
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'Segoe UI'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            Transparent = False
            WordWrap = True
          end
          object doListZones: TButton
            Left = 20
            Top = 315
            Width = 111
            Height = 25
            Caption = 'List DNS Zones'
            TabOrder = 0
            OnClick = doListZonesClick
          end
          object doListRecs: TButton
            Left = 160
            Top = 316
            Width = 111
            Height = 25
            Caption = 'List Zone Records'
            TabOrder = 1
            OnClick = doListRecsClick
          end
          object ListZones: TListView
            Left = 15
            Top = 20
            Width = 281
            Height = 266
            Columns = <
              item
                Caption = 'Zone Name'
                Width = 140
              end
              item
                Caption = 'Type'
                Width = 70
              end
              item
                Caption = 'Reverse'
                Width = 60
              end>
            GridLines = True
            HotTrack = True
            ReadOnly = True
            RowSelect = True
            TabOrder = 2
            ViewStyle = vsReport
            OnDblClick = ListZonesDblClick
          end
          object ListRecords: TListView
            Left = 310
            Top = 20
            Width = 536
            Height = 336
            Hint = 'Double Click on a Resource Record to Delete'
            Columns = <
              item
                Caption = 'Host Name'
                Width = 160
              end
              item
                Caption = 'Rec Type'
                Width = 60
              end
              item
                Caption = 'Data (IP address, host name)'
                Width = 270
              end
              item
                Caption = 'Instance'
              end
              item
                Caption = 'Text Representation'
                Width = 300
              end>
            GridLines = True
            HotTrack = True
            ReadOnly = True
            RowSelect = True
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            ViewStyle = vsReport
            OnClick = ListRecordsClick
            OnDblClick = ListRecordsDblClick
          end
          object GroupBoxNewRec: TGroupBox
            Left = 310
            Top = 371
            Width = 536
            Height = 116
            Caption = 'Update DNS Record'
            TabOrder = 4
            object Label7: TLabel
              Left = 5
              Top = 25
              Width = 61
              Height = 13
              Caption = 'Record Type'
            end
            object Label8: TLabel
              Left = 5
              Top = 55
              Width = 56
              Height = 13
              Caption = 'Host Name'
            end
            object Label10: TLabel
              Left = 5
              Top = 85
              Width = 63
              Height = 13
              Caption = 'Record Data'
            end
            object LabelDnsZone: TLabel
              Left = 170
              Top = 25
              Width = 32
              Height = 13
              Caption = 'Zone: '
            end
            object DnsRecType: TComboBox
              Left = 80
              Top = 20
              Width = 71
              Height = 21
              TabOrder = 0
              Text = 'A'
              Items.Strings = (
                'A'
                'AAAA'
                'CNAME'
                'PTR'
                'NS'
                'MX'
                'TXT'
                'CAA')
            end
            object DnsRecName: TEdit
              Left = 80
              Top = 50
              Width = 316
              Height = 21
              TabOrder = 1
            end
            object DnsRecData: TEdit
              Left = 80
              Top = 80
              Width = 316
              Height = 21
              TabOrder = 2
              OnDblClick = DnsRecDataDblClick
            end
            object doDnsRecUpd: TButton
              Left = 420
              Top = 14
              Width = 86
              Height = 25
              Caption = 'Update Record'
              Enabled = False
              TabOrder = 3
              OnClick = doDnsUpdateRec
            end
            object doDnsRecAdd: TButton
              Left = 420
              Top = 44
              Width = 86
              Height = 25
              Caption = 'Add Record'
              Enabled = False
              TabOrder = 4
              OnClick = doDnsUpdateRec
            end
            object doDnsRecDel: TButton
              Left = 420
              Top = 75
              Width = 86
              Height = 25
              Caption = 'Delete Record'
              Enabled = False
              TabOrder = 5
              OnClick = doDnsUpdateRec
            end
            object DnsRecZone: TEdit
              Left = 220
              Top = 20
              Width = 121
              Height = 21
              Color = clMenu
              ReadOnly = True
              TabOrder = 6
            end
          end
          object doCheckDnsSrv: TButton
            Left = 20
            Top = 351
            Width = 111
            Height = 25
            Caption = 'Check DNS Server'
            TabOrder = 5
            OnClick = doCheckDnsSrvClick
          end
        end
      end
    end
  end
  object LogWin: TMemo
    Left = 0
    Top = 588
    Width = 879
    Height = 218
    Align = alClient
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
    WordWrap = False
    OnDblClick = LogWinDblClick
    ExplicitWidth = 877
    ExplicitHeight = 210
  end
end