Function CommitOptionsWMI()
    Dim $strDNS1, $strDNS2, $strWINS1, $strWINS2, $strComputers
    $strDNS1 = $txtDNS1.text
    $strDNS2 = $txtDNS2.text
    $strWINS1 = $txtWINS1.text
    $strWINS2 = $txtWINS2.text
    $strComputers = $txtComputers.text
    $astrComputers = Split($strComputers, @CRLF)
    For Each $strItem in $astrComputers
      $objWMIData = GetObject('winmgmts:{impersonationLevel=impersonate}!//' + $strItem + '/root/cimv2')
      $colWMIData = $objWMIData.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True')
      For Each $strQuery in $colWMIData  
        $txtResults.appendtext($strQuery.WINSPrimaryServer + @CRLF)
        $txtResults.appendtext($strQuery.WINSSecondaryServer + @CRLF)
        For Each $strDNS in $strQuery.DNSServerSearchOrder
          $txtResults.appendtext($strDNS + @CRLF)
        Next
      Next
    Next
    $frmOptions.Hide
EndFunction