Что делают эти операторы 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, два находят имя компьютера ($CompName[i]), которое соответствует предоставленному идентификатору (CompIP).

Если совпадение найдено, оно устанавливает $NodeNumber в качестве индекса совпадения, $ComputerID в качестве имени компьютера и $DemoMode в 0.

Если совпадений не найдено, устанавливается $NodeNumber на 1, $ComputerID на Demo Mode и $DemoMode на 1.