'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM)
'
' NAME: listWmiProviders.vbs
'
' AUTHOR: Ed Wilson , MS
' DATE  : 10/26/2003
'
' COMMENT: <comment>
'
'==========================================================================
strComputer = "."

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

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