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
推荐文章: