GFI LanGuard 脚本调试程序支持泛型函数

Echo

Echo 是显示输出的简单函数。

语法

Echo (String)

返回结果

不返回数据。

示例

该示例将显示“Test”一词：

Function Main

echo "test"

End Function

WriteToLog

Writetolog 会将传递给它的所有字符串都写入到脚本引擎日志文件。

语法

WriteToLog(String)

返回结果

不返回数据。

示例

Function Main

WritetoLog "test"

End Function

StatusBar

StatusBar 用于在当前活动组件的状态栏中显示字符串。

语法

StatusBar(String)

返回结果

不返回数据。

示例

Function Main

StatusBar "test"

End Function

AddListItem

AddListItem 是一个允许脚本向用户返回反馈的函数。 该函数将添加传递给它的任何字符串作为触发漏洞的一个子节点。 AddListItem 函数具有 2 个不同的参数。 第一个参数指定父节点，第二个参数是要添加到树中的字符串。 如果父节点左侧为空，该函数会将指定字符串添加到顶部的可用节点（漏洞父节点）。 即使树可以根据需要具有很多同级节点，但只能有 1 个级别。

语法

AddListItem(String,String)

返回结果

不适用

示例

Function MAIN
     Dim wmi As Object
     Dim objset As Object
     Dim obj As Object
     Dim monitor As Object
     Dim prop As Object
     Set wmi = GetObject("winmgmts:\\127.0.0.1\root\cimv2")
     Set objset = wmi.instancesof("Win32_service")
     For Each obj In objset
          Set monitor = obj
          For Each prop In monitor.properties_
               If VarType(prop.value) = 8 Then
               If Not (IsNull(prop.value)) Then
               If prop.name = "Name" Then
               If left(prop.value,1) = "a" then
                    AddListItem("A",prop.value)
               End If
               If left(prop.value,1) = "b" then
                    AddListItem("B",prop.value)
               End If
               If left(prop.value,1) = "c" Then
                    AddListItem("C",prop.value)
               End if
               End If
               End If
               End If
          Next
          Next
     main = true
End Function

SetDescription

SetDescription 可用于向用户返回简单的反馈，方法为使用编程方法更改漏洞说明以指示触发漏洞的更详细的原因。 SetDescription 只有一个参数。 触发漏洞后，传递给函数的字符串将设置为该漏洞的新说明。

语法

SetDescription(String)

返回结果

不适用

示例

Function Main

SetDescription (“将设置此新描述来取代漏洞中指定的描述”)

Main=true

End Function