几个 WMI 的例子（初级） - 4[1]

读取日志记录：

imports system

imports system.management

module module1

    public sub main()

        dim strcomputer = "magicdog"

        dim wbemservices, wbemobjectset, wbemobject

        wbemservices = getobject("winmgmts:\\" & strcomputer)

        wbemobjectset = wbemservices.instancesof("win32_ntlogevent")

        for each wbemobject in wbemobjectset