vbs 调用powershell 判断压缩包是否有加密

VBS（Visual Basic Scripting Edition）是一种早期的脚本语言，而PowerShell则是后来的Windows命令行工具和脚本语言。如果你想从VBS中调用PowerShell来检查压缩文件是否加密，可以使用WMI（Windows Management Instrumentation）或者通过创建一个PowerShell进程并传递命令。

以下是一个简单的示例，说明如何在VBS中启动PowerShell并执行相关的检查：

Set objShell = CreateObject("WScript.Shell")
strCmd = """path\to\your\powershell.exe""" & " -Command ""Get-Archive -Path 'your_compressed_file.zip' | Where-Object {$_.Attributes -band [System.IO.FileAttributes]::Archive} | Measure-ExpandProperty Sum"""

Set psProcess = objShell.Run(strCmd, 0, True) '0表示后台运行，True表示等待返回结果

If psProcess.Status = 0 Then
    WScript.Echo "The file is encrypted."
Else
    WScript.Echo "The file is not encrypted."
End If

在这个例子中，我们假设你已经有了一个名为`Get-Archive`的PowerShell命令行操作，用于检查文件属性。`Measure-Object`是为了获取总大小，如果文件被加密，可能会有额外的元数据导致总大小不同。