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

Sub EnumNameSpaces(strNameSpace)
    Wscript.Echo strNameSpace
    Set objSWbemServices = _
        GetObject("winmgmts:\\" & strComputer & "\" & strNameSpace)
    Set colNameSpaces = objSWbemServices.InstancesOf("__NAMESPACE")
    For Each objNameSpace In colNameSpaces
        Call EnumNameSpaces(strNameSpace & "\" & objNameSpace.Name)
    Next
End Sub
WScript.Echo("all done " & Now)