Set obj = GetObject _ ("winmgmts:\\.\root") Set objNameSpaces = obj.InstancesOf("__NAMESPACE") For Each objNameSpace In objNameSpaces WScript.Echo objNameSpace.Name Next