这些 VBScript 语句有什么作用？

Question

我不知道有谁会阅读 VBScript。不知有没有人帮我看看下面的语句？

Public Sub GetNodeName(CompIP)
    Dim i
    Dim ProcedureName
    ProcedureName = "GetNodeName(CompIP): " & CompIP
    ProcedureName = "ProcedureName & ": " & $Date & ": " & $Time

    For i = To $CompName -> Size
        If CompIP = $COMPUTER_IP[i] Then
            $NodeNumber = i
            $ComputerID = $CompName[i]
            i = $CompName -> Size + 1
            $DemoMode = 0
        Else 'Demomode
            $NodeNumber = 1
            $DemoMode = 1
            $ComputerID = "Demo Mode"
        End If
    Next

和

For i = 1 To $CompName -> Size
    If $CompName[i] = NodeName Then
        GetNodeNumber=i
        'Exit Loop
        i = $CompName -> Size + 1
    End if
Next

If GetNodeName = -1 Then $Trace("Node not found")

ComputerName 是 TABLET4。 IP 地址是 172.10.10.7.

Answer 1

无论使用何种语言，代码的意图都很明确。

子遍历并行数组 $CompName 和 $COMPUTER_IP 两个找到与提供的 id (CompIP) 对应的计算机名称 ($CompName[i])。

如果找到匹配项，它会将 $NodeNumber 设置为匹配项的索引，将 $ComputerID 设置为计算机名称，并将 $DemoMode 设置为 0。

如果未找到匹配项，则将 $NodeNumber 设置为 1，将 $ComputerID 设置为 Demo Mode，将 $DemoMode 设置为 1。

这些 VBScript 语句有什么作用？

What do these VBScript statements do?

vbscript