如何在VBScript中将字符串转换为变量名？

在VBScript里，确实没有像Python的globals()或者JavaScript的window[varName]那样直接的方式来通过字符串获取变量，但我们可以通过两种方式实现你的需求——一种是利用Execute语句直接解析字符串变量名，另一种是用字典来管理权限变量（更安全推荐）。

先结合你的场景来看，你需要从Web服务拿到逗号分隔的权限列表，循环检查对应的运行时变量是否为"yes"，下面是具体的实现方案：

方案1：使用Execute语句直接转换字符串为变量名 #

Execute可以把字符串当作VBScript代码执行，我们可以用它来把权限名称字符串转换成对应的变量值，然后进行检查。修改你的子程序如下：

Sub checkPermission(PermissionNames)
    permissionNamesArray = Split(permissionNames, ",", -1, 1)
    For Each x In permissionNamesArray
        Dim permissionValue
        ' 把字符串变量名转换成实际变量的值
        Execute "permissionValue = " & x
        
        ' 检查权限状态
        If permissionValue = "yes" Then
            WScript.Echo "用户已拥有权限: " & x
        Else
            WScript.Echo "用户缺少权限: " & x
        End If
    Next
End Sub

' 模拟运行时设置的权限变量
adminPermission = "yes"
deletePermission = "no"
configPermission = "yes"
SuperCustomerPermission = "yes"

' 从Web服务获取的权限列表
Dim permissionNames
permissionNames = "adminPermission,deletePermission,configPermission,SuperCustomerPermission"

' 调用检查子程序
Call checkPermission(permissionNames)

注意事项： #

• 作用域问题：如果权限变量是在子程序外部定义的全局变量，Execute可以直接访问；如果是其他子程序的局部变量，需要改用ExecuteGlobal（但要谨慎，因为它会在全局作用域执行代码，可能带来意外影响）。
• 安全风险：如果权限列表可能被外部篡改，Execute存在代码注入风险，这种情况下更推荐下面的字典方案。

方案2：用字典管理权限变量（更安全的实践） #

把所有权限变量存入Scripting.Dictionary（键值对集合），这样可以直接通过权限名称字符串作为键来获取对应的值，不需要依赖Execute，更安全也更清晰：

' 初始化权限字典，存放所有运行时权限
Dim permissionsDict
Set permissionsDict = CreateObject("Scripting.Dictionary")

' 模拟运行时设置权限（可以在设置变量的同时更新字典）
permissionsDict.Add "adminPermission", "yes"
permissionsDict.Add "deletePermission", "no"
permissionsDict.Add "configPermission", "yes"
permissionsDict.Add "SuperCustomerPermission", "yes"

Sub checkPermission(PermissionNames)
    permissionNamesArray = Split(permissionNames, ",", -1, 1)
    For Each x In permissionNamesArray
        ' 先检查权限是否存在于字典中
        If permissionsDict.Exists(x) Then
            If permissionsDict(x) = "yes" Then
                WScript.Echo "用户已拥有权限: " & x
            Else
                WScript.Echo "用户缺少权限: " & x
            End If
        Else
            WScript.Echo "检测到未知权限: " & x
        End If
    Next
End Sub

' 从Web服务获取的权限列表
Dim permissionNames
permissionNames = "adminPermission,deletePermission,configPermission,SuperCustomerPermission"

' 调用检查子程序
Call checkPermission(permissionNames)

优势： #

• 避免了Execute的安全风险，权限检查更可控。
• 可以方便地添加、修改或删除权限项，同时支持检查未知权限。
• 如果你的权限变量是在运行时动态设置的（比如用户购买产品后设置SuperCustomerPermission），只需要同步更新字典即可，后续检查逻辑不需要修改。

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