vba - Microsoft Access VBA - 运行 WScript.Shell.run 时权限被拒绝

Question

在 Access 中运行以下 VBA 时，会弹出 Microsoft Box，指示“Permission Denied”

Public Sub RunPolicyImportBatchFile()

    Dim strCommand As String
    Dim lngErrorCode As Long
    Dim wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    Dim waitOnReturn As Boolean: waitOnReturn = True
    Dim windowStyle As Integer: windowStyle = 1

    'Run the batch file using WshShell object
    strCommand = "C:\Support\Masters\Access\Policy\Batch\PolicyRename.bat"
    wsh.Run strCommand, windowStyle, waitOnReturn

这在我的计算机上运行良好，但在对等计算机上运行时接收权限被拒绝。

标签： vbams-access-2016