Просмотр списка wmi-провайдеров на хосте

strComputer = "."

Set objSWbemServices = _
    GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colWin32Providers = objSWbemServices.InstancesOf("__Win32Provider")

For Each objWin32Provider In colWin32Providers
    Wscript.Echo objWin32Provider.Name
Next