将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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

powershell webservice-client