GFI LanGuard 腳本自動化

關于

關于自動化組件
要調用自動化組件，應使用 CreateObject函數。 此功能返回鏈接至您想要使用的自動化的對象。

示例

使用 Microsoft 的 ? 正則表達式對象：

函數 Main

Dim regexp As Object

Dim test As String

Set regexp = CreateObject("VBScript.RegExp")

regexp.pattern = "[A-Za-z]:(\\[A-Za-z0-9_.-])*"

test = "c:\windows\"

If regexp.test(test) Then

echo("這是路徑")

Else

echo("這不是路徑")

End If

End 函數

以上示例使用正則表達式檢查變量測試是否具有路徑。

該系統具有較高的靈活性，不僅允許使用這些對象來增強 GFI LanGuard 腳本，還允許腳本引擎用于任何需要的目的。 例如，它現在可能創建腳本掃描蠕蟲 X，并在發現之后清除，還將根據所做的更改參考生成 Excel 報告，同時在 GFI LanGuard 中顯示已找到蠕蟲并成功清除。

以下是此類自動化的示例，腳本將運行在本地計算機上的服務及其狀態列示在 Excel 工作表中。 此特定示例需要安裝 Excel，也需要在 Windows 2000 以上的版本中預先安裝 WMI。

示例

自動化對象腳本的使用示例

以下腳本連接了 excel 自動化對象，創建了新表，并導出了服務列表及其各自的狀態。 該腳本需要 Excel 和 WMI。

注
需要在 Windows 2000 以上的版本中預先安裝 Windows Management Instrumentation。 必須將其安裝在 Windows 9x 和 Windows NT 上。下載鏈接：http://go.gfi.com/?pageid=_wmi

函數 Main

將 excel 作為腳本所需要的創建對象

Dim book As Object

Dim sheet As Object

Dim range As Object

Dim columns As Object

Dim wmiobj As Object

Dim objswbemobject As Object

strComputer = "127.0.0.1"

Set wmiobj = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'獲取允許檢索各種信息的 wmi 對象

If wmiobj is Nothing Then

echo ("Error1 無法創建 WMI 對象")

Else

Set excel = CreateObject("Excel.application")

'連接到 Excel 自動化對象

If excel is Nothing Then

Echo("無法創建 Excel 對象")

Else

'顯示 excel 的版本

echo ("initalised session with Excel Version "&excel.version)

'添加工作簿

Set book = excel.workbooks.add

'向工作簿中添加工作表

Set sheet = Book.Worksheets.add

sheet.cells(1,1) = "This Sheet has been generated from with a GFI LanGuard Script"

'設置列名稱

sheet.cells(3,1) = "服務名稱"

sheet.cells(3,2) = "State"

sheet.cells(3,3) = "Started"

'檢索服務信息

Set wmiinst=wmiobj.instancesof("Win32_Service")

If wmiinst is Nothing Then

echo ("error2: 無法檢索服務信息")

Else

lnpos = 4

For Each objswbemobject In wmiinst

'循環所有服務對象

lnpos = lnpos + 1

sheet.cells(lnpos,1) = objswbemobject.DisplayName

'將服務信息輸入到 excel 表中

sheet.cells(lnpos,2) = objswbemobject.State

sheet.cells(lnpos,3) = objswbemobject.Started

Next

'自動適配列

sheet.columns.AutoFit

'顯示 excel 表

sheet.application.visible = true

End If

End If

End If

End 函數

使用自動化腳本

本主題介紹使用 ActiveX、COM 和 OLE 腳本自動化對象的相關信息。 要綁定自動化對象，請使用 CreateObject函數。 此功能返回鏈接至您想要使用的自動化的對象