时间戳

首页 > 解决方案 > 这些 VBScript 语句有什么作用？

vbscript - 这些 VBScript 语句有什么作用？

问题描述

我不知道任何人可以阅读 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")

计算机名称是 TABLET4。IP 地址为 172.10.10.7。

标签： vbscript

解决方案

无论是哪种语言，代码的意图都很明确。

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

如果找到匹配项，则设置$NodeNumber为匹配项的索引、$ComputerID计算机名称$DemoMode和0.

如果未找到匹配项，则设置$NodeNumber为1、$ComputerIDtoDemo Mode和$DemoModeto 1。

推荐阅读