'========================================================================== ' ' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM) ' ' NAME: ' ' AUTHOR: Ed Wilson , MS ' DATE : 10/26/2003 ' ' COMMENT: ' '========================================================================== strComputer = "." Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\root") Set colNameSpaces = objSwbemServices.InstancesOf("__NAMESPACE") For Each objNameSpace In colNameSpaces Wscript.Echo objNameSpace.Name Next