几个 WMI 的例子（初级） - 3[6]

imports system

imports system.management

module module1

    public sub main()

        dim strcomputer = " computername"

        dim wbemservices, wbemobjectset, wbemobject

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

        wbemobjectset = wbemservices.instancesof("win32_service")

        for each wbemobject in wbemobjectset

            console.writeline("服务名称：" & wbemobject.displayname)