dutsnekcirf's questions

我发现 Ansible 创建 DNS 记录的方式与我手动创建的方式不同；特别是在创建反向 DNS 记录 (PTR) 时。我在 Rocky Linux 8.5 版上运行 Ansible 2.9.27 版。

假设，例如，我从身份管理控制台手动为一台名为“MyTest”、IP 地址为 100.99.97.7 的机器添加了 DNS 记录，并选中它的复选框以创建反向记录。然后从域中的另一台机器（mts.sys）我使用“dig -x 100.99.97.7”执行反向查找。它将在结果答案中收到“MyTest.mts.sys”。这是期望的结果。

如果我使用 Ansible 创建 DNS 记录，那么我必须使用两个 Ansible 任务来完成它。第一个任务是创建基本 A 记录，第二个任务是将 PTR 记录添加到反向 DNS 区域。以下是目前这两个任务的样子：

- name: MyTest.mts.sys forward
  ipa_dnsrecord:
    ipa_pass: <password-redacted>
    ipa_user: <user-redacted>
    zone_name: mts.sys
    record_name: MyTest
    record_type: 'A'
    record_value: 100.99.97.7
    state: present

- name: MyTest.mts.sys reverse
  ipa_dnsrecord:
    ipa_pass: <password-redacted>
    ipa_user: <user-redacted>
    zone_name: 97.99.100.in-addr.arpa
    record_name: '7'
    record_type: 'PTR'
    record_value: 'MyTest'
    state: present

运行这两个任务后，我可以通过在 Identity Manager 中查看记录来确认已创建记录。他们出现了; 据我所知，就像我手动创建它们一样。但是，如果我使用与以前相同的命令；“dig -x 100.99.97.7”然后答案返回为“MyTest.mts.sys.97.99.100.in-addr-arpa”。发生这种情况时，它会阻止我在剧本的后期成功安装 Foreman。

使用 Ansible 在 FreeIPA 中创建 DNS 记录（A 和 PTR）的正确方法是什么？

我发现如果我尝试访问家庭网络内部的基于 Web 的服务，那么 Chrome 将无法正确解析 URL。例如，如果我尝试使用其 fqdn 浏览到我的 Plex 服务器；plex.mydomain.com。仅当启用“安全 DNS”设置时。它似乎将我的网络请求定向到我的网络之外的 DNS 服务器。实际上，我不会将我带到我的 Plex 服务器 Web 前端，而是将我重定向到我的 pfsense 路由器上的一个页面，并显示错误警告我潜在的 DNS 重新绑定攻击。

我运行自己的内部 DNS 服务器。它是一个简单的 Windows 2012r2 服务器。我内部网络上的所有内容都指向此服务器，该服务器配置为将请求转发到 Google 的 DNS 服务器以获取它不知道的记录。

我喜欢使用安全 DNS（或基于 HTTPS 的 DNS）的想法。但由于上述原因，我似乎无法使用它。不过我想知道，如果我要配置我的内部 DNS 服务器以支持 DNSSEC，那么这可能会解决问题。我想我还需要调整我的 Chrome 设置以使用我的内部 DNS 服务器来提供安全 DNS 服务。这一切听起来都正确吗？

有没有其他人观察到这个问题？

我几乎已经完成了这项工作。我在想我真的只需要另一双眼睛。我认为我的问题只是一个简单的编程结构问题。循环过多或以错误的顺序打开/关闭记录集。

我正在尝试将记录中包含的所有附件文件从一个 dao 记录集中复制到另一个 dao 记录集中的相应记录中。两个记录集都从同一个表中提取数据。第一个记录集 (rstOld) 包含具有去年日期值的记录，这些记录可以包含任意数量的附件。第二个记录集 (rstNew) 包含具有今年日期值的记录，并且这些记录不包含任何附件。

为此，我开始循环遍历 rstNew 中的每条记录。对于 rstNew 中的每条记录，我将收集 Name 字段的值，然后开始第二个循环。第二个循环将在 rstOld 中找到具有匹配名称字段的记录。从那里我只需将所有附件从 rstOld 中的记录复制到 rstNew 中的记录。

奇怪的是，它会在 rstNew 中找到匹配项的第一条记录上正常工作。之后，它不再适用于任何后续记录。

到目前为止，这是我的代码：

    Dim db As Database
    Dim strOldSQL As String
    Dim rstOld As DAO.Recordset2
    Dim strNewSQL As String
    Dim rstNew As DAO.Recordset2
    Dim rstOldAttachments As DAO.Recordset2
    Dim rstNewAttachments As DAO.Recordset2
    Dim strCurrentSiteName As String
    Dim strOldSiteName As String
Set db = CurrentDb()

    'First let's open a recordset that contains all of the records from this year.
    strNewSQL = "SELECT tblAuditForms.SiteName, tblAuditForms.Attachments, tblAuditForms.AuditYear FROM tblAuditForms WHERE AuditYear = #" & Format(cboMyDate, "mm/dd/yyyy") & "# ORDER By tblAuditForms.SiteName;"
    Set rstNew = db.OpenRecordset(strNewSQL)
    rstNew.MoveFirst
    rstNew.Edit
    
    Do While Not rstNew.EOF 'Now we need to loop through these records.
    
        strCurrentSiteName = rstNew.Fields("SiteName").Value 'Get the name of the site for the current record that we're on. We'll use this to compare with the sites in the previous audit.
                    
        'Now let's open a recordset that contains all records from the previous audit.
        strOldSQL = "SELECT tblAuditForms.SiteName, tblAuditForms.Attachments, Year([AuditYear]) FROM tblAuditForms WHERE Year([AuditYear]) = " & Me.cboPreviousDate & " ORDER BY tblAuditForms.SiteName;"
        Set rstOld = db.OpenRecordset(strOldSQL)
        rstOld.MoveFirst
        
        Do While Not rstOld.EOF 'Loop through each of the records from the previous audit until we find a record that matches the current site name.
        
            strOldSiteName = rstOld.Fields("SiteName").Value
        
            If strCurrentSiteName = strOldSiteName Then 'If this is true, then we've found a record from the previous audit that matches the one from our current audit.
                'Now it's just a matter of copying the attachments from the old record into the new one.  Working with attachments is annoying though.
                
                'This next block should loop through the attachments (if any) in the old record and copy them into the new record.
                Set rstOldAttachments = rstOld.Fields("Attachments").Value
                rstOldAttachments.MoveFirst
                
                Set rstNewAttachments = rstNew.Fields("Attachments").Value

                Do While Not rstOldAttachments.EOF
                    
                    rstNewAttachments.AddNew
                    rstNewAttachments.Fields("FileData").Value = rstOldAttachments.Fields("FileData").Value
                    rstNewAttachments.Fields("FileName").Value = rstOldAttachments.Fields("FileName").Value
                    rstNewAttachments.Fields("FileType").Value = rstOldAttachments.Fields("FileType").Value
                    rstNewAttachments.Update
                
                    rstOldAttachments.MoveNext
                Loop
                
                'Now that we've found the site from the previous audit and copied its attachments into the new record we can close the old recordset and move onto the next site in the current audit.
                rstOldAttachments.Close
                rstNewAttachments.Close
                Exit Do
            
            End If
                        
            rstOld.MoveNext
        Loop
         
        rstOld.Close
        rstNew.Update
        rstNew.MoveNext
    Loop
        
    'If we've gotten this far then we've looped through all of the new records that we just created from the weekly staffing workbook.
    rstNew.Close
    
    

就像我之前说的，这段代码将在通过 rstNew 记录集的第一个循环上工作，但在任何后续循环上都不起作用。我是否过早地摆脱了循环？或过早关闭记录集？

我有一个 MS Access 数据库，当前配置为使用“选项卡式文档”，如“当前数据库”属性中所示。我喜欢选项卡式文档的外观和清洁度，但我希望我的初始登录表单是浮动表单。是否可以在每个表单的基础上单独指定此属性？

我几乎有这个工作。但是，我发现即使在我的 VBA 过程完成后，Microsoft Excel 仍然在后台打开（在任务管理器中可见）。如果我第二次运行该程序，它会在我身上出错。如果我终止 Microsoft Excel 进程，那么我可以再次运行我的 VBA 程序而不会出错。

我已经包含了对 Microsoft Excel 16.0 对象库的引用。

这是我的代码：

Dim appExcel As Excel.Application
Dim myWorkbook As Excel.Workbook
Dim myWorksheet As Excel.Worksheet
Dim strFilePath As String
Dim strWorksheetName As String

'Open the file as read-only.
strFilePath = <Path to file>
Set appExcel = CreateObject("Excel.Application")
Set myWorkbook = appExcel.Workbooks.Open(strFilePath, , True)
appExcel.Visible = False

Set myWorksheet = myWorkbook.Sheets(<The name of the worksheet I'm interested in>)

<read stuff from the worksheet in the same fashion that I would if I were doing this in Excel itself>

'Close the workbook without saving any changes.
myWorkbook.Close False
'appExcel.Quit
'Set appExcel = Nothing

如果我取消注释“appExcel.Quit”或“set appExcel = Nothing”语句似乎并不重要。那么正确关闭工作簿以使其完全从内存中删除的优雅方法是什么？

谢谢！

我有一个名为 tblAuditForms 的表。此表包括一个名为 AuditDate 的日期列。该表以“短日期”格式存储日期，因此时间不存储在表中。我想从此表中选择日期与 2020 年 6 月 11 日匹配的记录。我已确认表中有许多记录包含此日期。

这是我到目前为止所拥有的：

Dim myAuditDate As Date
Dim db As DAO.Database
Dim rst As DAO.Recordset2
Dim strSQL As String

myAuditDate = CDate("6/11/2020")

set db = CurrentDb
strSQL = "SELECT * FROM tblAuditForms WHERE AuditDate = " & Format(myAuditDate, "mm/dd/yyyy") & ";"

Set rst = db.OpenRecordset(strSQL)

rst.MoveFirst

该代码一直到失败的 rst.MoveFirst 行。看来记录集是空的。正如我之前提到的，我知道该表包含我提供的那个日期的记录。我怀疑问题出在我的 SQL 语句的格式上，但我不知道怎么做。我还用 # 个字符包围了日期，但这似乎没有帮助。在创建记录集时，在日期周围包含 ' 字符也会失败。

我很感激任何帮助。谢谢！

我有一个 bash 脚本，它会将传递给它的任何单词作为参数，然后使用 openssl 命令加密该单词。从那里我想获取返回的字符串并使用 sed 将其写入另一个文件。加密值有时包含“/”字符（但不总是），此时 sed 无法运行。

以下是脚本的要点：

#!/bin/bash

fileDirectory"/etc/ci"
fileName="key.bin"

encryptedOSPFPW='echo $1 | openssl enc -a -A -aes-256-cbc -md sha256 -pass file:"$fileDirectory"/"$fileName"'

sed -i "s/OSPFPW/$encryptedOSPFPW/g" /etc/quagga/ospfd.conf

exit 0

我怎样才能调整 sed 命令，以便它将替换返回的任何内容。我知道如果我用单引号替换双引号，sed 将按字面意思接受提供给它的任何内容，但是当我使用变量时这不起作用。

谢谢

我最近了解到MAC OS 可以将集成的NIC 变成trunk 端口。它执行此操作的方式是创建一个虚拟 NIC，该 NIC 分配给已定义为流经中继的每个 VLAN。以下网站提供了有关如何设置它的演练：此处。

我想知道这在 Windows 10 中是否可行。目的是将在笔记本电脑上的 VMware Workstation 中运行的虚拟机桥接到单独的虚拟 NIC，每个 NIC 配置为不同的 VLAN。然后每个虚拟 NIC 将桥接到 VMware 中的一个单独的 vmnic。然后膝上型计算机将连接到具有配置的中继端口的交换机。

我最近在这里了解了英特尔的高级网络服务功能。但如该网站所示，Windows 10 似乎不支持它