如何在VBA中向keepassxc-cli传递主密码以获取条目

核心实现：通过标准输入传递主密码 #

keepassxc-cli支持从标准输入读取主密码，无需在CLI窗口中交互式输入。你可以在VBA中让用户输入密码后，通过管道将密码传递给命令，实现无缝调用。

VBA代码示例 #

以下脚本实现从KeePassXC数据库获取用户名和密码：

Sub RetrieveKeePassCredentials()
    ' 配置数据库路径和目标条目名称
    Dim dbPath As String: dbPath = """C:\Your\DB\Path\Database.kdbx"""
    Dim entryName As String: entryName = """Target Entry"""
    
    ' 安全获取用户输入的主密码（输入内容会显示为星号）
    Dim masterPwd As String
    masterPwd = InputBox("请输入KeePass数据库主密码:", "验证身份", , , , , , 2)
    If masterPwd = "" Then Exit Sub
    
    ' 初始化WScript.Shell用于执行命令并捕获输出
    Dim wsh As Object: Set wsh = CreateObject("WScript.Shell")
    Dim execObj As Object
    Dim output As String
    
    ' ------------------- 获取用户名 -------------------
    Dim getUsernameCmd As String
    getUsernameCmd = "echo " & Chr(34) & masterPwd & Chr(34) & " | ""C:\Program Files\KeePassXC\keepassxc-cli.exe"" show -u " & dbPath & " " & entryName
    Set execObj = wsh.Exec(getUsernameCmd)
    output = execObj.StdOut.ReadAll()
    Debug.Print "用户名: " & Trim(output) ' 输出到VBA立即窗口，可替换为MsgBox显示
    
    ' ------------------- 获取密码 -------------------
    Dim getPasswordCmd As String
    getPasswordCmd = "echo " & Chr(34) & masterPwd & Chr(34) & " | ""C:\Program Files\KeePassXC\keepassxc-cli.exe"" show -p " & dbPath & " " & entryName
    Set execObj = wsh.Exec(getPasswordCmd)
    output = execObj.StdOut.ReadAll()
    Debug.Print "密码: " & Trim(output)
End Sub

关键说明 #

• 使用WScript.Shell.Exec而非Shell函数：前者可以捕获命令的标准输出，方便获取返回的用户名/密码
• 路径和密码添加双引号：避免含空格的路径/密码导致命令解析错误
• 隐藏密码输入：InputBox第8参数设为2，输入时显示星号，提升安全性

keepassxc-cli常用命令示例 #

1. 查看条目完整信息 #

echo "你的主密码" | keepassxc-cli show "路径/数据库.kdbx" "条目名称"

2. 仅获取密码 #

echo "你的主密码" | keepassxc-cli show -p "路径/数据库.kdbx" "条目名称"

3. 模糊搜索条目 #

echo "你的主密码" | keepassxc-cli search "路径/数据库.kdbx" "关键词"

4. 添加新条目（指定用户名和密码） #

echo "你的主密码" | keepassxc-cli add -u "新用户名" -p "新密码" "路径/数据库.kdbx" "新条目名称"

5. 修改条目密码 #

echo "你的主密码" | keepassxc-cli edit -p "新密码" "路径/数据库.kdbx" "目标条目名称"

安全提示 #

• 绝不将主密码硬编码到VBA脚本中，始终通过用户输入获取
• 若需更安全的输入方式，可创建UserForm表单，设置PasswordChar = "*"完全隐藏输入内容
• 管道传递密码的安全性虽优于明文存储，但仍需确保运行环境的安全性

内容的提问来源于stack exchange，提问作者TobiO