VBS调用PowerShell脚本返回字符串存入注册表为空但MsgBox可正常显示的问题排查与解决

你碰到的这个问题其实挺常见的——明明用MsgBox能正常显示PowerShell返回的字符串，但把它赋值给注册表键值时却为空。这大概率是进程执行的异步特性或者输出的额外字符在搞鬼，我帮你梳理下原因和对应的解决办法：

问题根源 #

1. 异步执行导致读取时机不对：WScript.Shell.Exec是异步执行命令的，你调用StdOut.ReadAll的时候，PowerShell可能还没完成输出，所以读到的是空内容；而MsgBox会阻塞脚本运行，给了PowerShell足够的时间输出内容，所以弹窗能正常显示。
2. PowerShell输出带额外换行：Write-Output默认会在输出末尾加换行符，虽然MsgBox能忽略这些换行正常显示，但如果直接写入注册表，有些情况下会被识别为无效内容或者看起来为空。

解决办法 #

方法1：等PowerShell跑完再读输出 #

在读取标准输出前，先循环等待进程执行完毕，确保内容已经完全生成：

psFile = "C:\Temp\file.ps1"
cmd = "powershell -executionpolicy remotesigned -File " & psFile
Set oShell = WScript.CreateObject("WScript.shell")
Set shellExec = oShell.Exec(cmd)
shellExec.StdIn.Close

' 循环等待进程结束，每100毫秒检查一次状态
Do While shellExec.Status = 0
    WScript.Sleep 100
Loop

' 读取输出并去除多余的换行符
returnedString = shellExec.StdOut.ReadAll
returnedString = Replace(returnedString, vbCrLf, "")
returnedString = Replace(returnedString, vbLf, "")

' 写入注册表（这里的路径和类型根据你的实际需求修改）
oShell.RegWrite "HKCU\Software\YourApp\TargetValue", returnedString, "REG_SZ"
MsgBox returnedString

方法2：让PowerShell输出不带换行的字符串 #

直接在调用PowerShell时用Out-String -NoNewline参数，避免后续处理换行符：

psFile = "C:\Temp\file.ps1"
' 用-Command方式调用脚本，并强制输出不带换行的内容
cmd = "powershell -executionpolicy remotesigned -Command ""& '" & psFile & "' | Out-String -NoNewline"""
Set oShell = WScript.CreateObject("WScript.shell")
Set shellExec = oShell.Exec(cmd)
shellExec.StdIn.Close

Do While shellExec.Status = 0
    WScript.Sleep 100
Loop

returnedString = shellExec.StdOut.ReadAll
oShell.RegWrite "HKCU\Software\YourApp\TargetValue", returnedString, "REG_SZ"
MsgBox returnedString

方法3：用临时文件中转输出（备选方案） #

如果上面两种方法都不奏效，可以用Run命令把PowerShell的输出写入临时文件，再从文件读取内容：

psFile = "C:\Temp\file.ps1"
tempFile = "C:\Temp\ps_output_temp.txt"
' 把PowerShell输出重定向到临时文件
cmd = "powershell -executionpolicy remotesigned -File " & psFile & " > """ & tempFile & """"
Set oShell = WScript.CreateObject("WScript.shell")

' 同步执行命令，等待完成后再继续
oShell.Run cmd, 0, True

' 读取临时文件内容
Set fso = CreateObject("Scripting.FileSystemObject")
Set outputFile = fso.OpenTextFile(tempFile, 1)
returnedString = outputFile.ReadAll
outputFile.Close
fso.DeleteFile tempFile ' 用完删除临时文件

' 写入注册表
oShell.RegWrite "HKCU\Software\YourApp\TargetValue", returnedString, "REG_SZ"
MsgBox returnedString

注意事项 #

• 确保你有写入目标注册表路径的权限，比如写入HKLM根目录需要管理员权限；
• 如果返回的字符串包含多行内容，可以把注册表值类型改成REG_MULTI_SZ。

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