将Powershell代码转换为VBA或从VBA运行Powershell脚本

问题描述

这是我在Stack Overflow上遇到的第一个问题，我真的希望我做对了。如果没有，请告诉我，我会纠正。

我在Windows 10 64位系统上运行Office365 Build 16.0.12527.20612 32位系统。

我搜索了2天并尝试了不同的方法，但没有成功。我熟悉VBA，并且已经编码了一些宏。我在Excel中有计算机名称和序列号的列表。我有一个Powershell脚本，可以从Dell获取计算机信息。感兴趣的是保修信息。最好是我想编写一个与脚本具有相同功能的宏。这是Powershell脚本：

    $ServiceTag = "A1B2C3D4"
    Try {
        # Get Access Token - expires in 3600 seconds
        $accesstokenEndpointUrl = "https://apigtwb2c.us.dell.com/auth/oauth/v2/token"
        $requestBody = @{
            grant_type    = "client_credentials"
            client_id     = "123456789012345" # api key
            client_secret = "098765432109876" # api secret
            
        }
        write-output "requestbode: $requestBody"
        $token = (Invoke-RestMethod -uri $accesstokenEndpointUrl -Headers @{ } -Method Post -Body $requestBody).Access_token
        write-output "Token: $token"
        # url for api warranty query - tag is comma seperated list of service tags
        $url = "https://apigtwb2c.us.dell.com/PROD/sbil/eapi/v5/asset-entitlements"
        $headers = @{"Authorization" = "Bearer $token" }
        $body = @{
            servicetags = $ServiceTag
        }
        
        $resp = Invoke-RestMethod -Uri $url -Headers $headers -Method Get  -Body $body
        write-output $resp
        
    }
    Catch {
        Write-Host $($_.Exception.Message)
    }

我无法正确拨打Web服务。我没有保存任何宏，因为它们不起作用。我可以打电话给该服务，但得到的响应是“数据丢失或重复”。我认为这是我无法正确创建的requestBody。然后我想我可以尝试从VBA运行脚本并将其输出到文件，然后在VBA中读取文件。我尝试了在堆栈溢出时发现的不同方法，但是我遇到了并发错误（事件日志引用powershell.exe），或者根据我尝试的示例拒绝了权限。我可以从同一个宏启动其他程序，例如记事本。

如果有人可以提供帮助，我将不胜感激。

我尝试过：

    Sub RunPS()
    strCommand = "Powershell.exe - ExecutionPolicy ByPass -File ""D:\temp\DellCheck.ps1"""
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run (strCommand)
End Sub

我在WshShell.Run（strCommand）上得到了这个： error

解决方法

我发现我的问题出在哪里。我写这篇文章是为了对处于相同情况的其他人有所帮助。

要注意的是，我在64位Windows上运行32位Office。我怀疑这可能是问题的一部分，因此我在问题中提到了它。在64位Windows中从32位应用程序调用某些内容时，它是从c：\ windows \ syswow64运行的。我已经设置了执行策略并进行了多次检查，但是当您从开始菜单启动powershell时，它将启动64位。转到C：\ Windows \ SysWOW64 \ WindowsPowerShell \ v1.0并以管理员身份运行powershell.exe。设置执行策略。我做到了：“不受限制的执行策略”。
然后我注意到Windows Antimalware / bitdefender发出警告。如果程序调用powershell，则bitdefender似乎将其视为恶意软件。进入设置，病毒和威胁防护，并排除syswow64 \ windowspowersehll \ v1.0文件夹。请记住，这可能会带来安全风险，因为其他程序现在可以运行powershell命令。

然后按预期工作。我使用了来自堆栈溢出的样本来调用脚本并获取结果。我在VBA（Excel）中使用了此功能：

|name  | revision|Status  |
+------+---------+--------+
|Test2 | 2       |Active  |
|Proj2 | 2       |Active  |

OBS！在我发现的样本中

SELECT 
    System_rev,ROW_NUMBER() OVER (PARTITION BY system_title ORDER BY System_Rev DESC) system_title,TP.ProjectNodeName AS Project_Name,System_state
FROM 
    Tfs_Warehouse.dbo.DimTeamProject TP
INNER JOIN 
    Tfs_Warehouse.dbo.DimWorkItem wi ON TP.ProjectNodeSK = wi.TeamProjectSK
WHERE 
    wi.CDS_Project_HotFixRelated LIKE '1'
    AND system_title = 1
    AND wi.System_IsDeleted  = '0'
    AND wi.System_WorkItemType LIKE 'Request'
    -- AND CONVERT(VARCHAR,wi.System_CreatedDate,121) <= DATEADD(month,-1,GETDATE())
GROUP BY
    System_Title,System_Rev

失败，并显示错误“参数不可选”。我猜壳牌是个保留字。我使用了oShell。

powershell powershell vba webservice-client