• Home
 · 
• Miscellaneous
 · 
• Get all the root name spaces of your machine using WMI script

Get all the root name spaces of your machine using WMI script

Get all the root name spaces of your machine using WMI script

Rate Get all the root name spaces of your machine using WMI script

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Computer = "."
Const ForAppending = 2
Set OutFile = CreateObject("WScript.Shell")
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\NameSpaces.txt", ForAppending, True)
TextFile.WriteLine "Name Spaces of this Machine"
TextFile.WriteLine "---------------------------"
TextFile.WriteLine

Call NameSpaces("root")
TextFile.Close
OutFile.Run "notepad.exe c:\NameSpaces.txt",1,True


Sub NameSpaces(NameSpace)

  TextFile.WriteLine NameSpace
  Set WMIService = GetObject("winmgmts:\\" & Computer & "\" & NameSpace)
  Set OupNameSpaces = WMIService.InstancesOf("__NAMESPACE")
  For Each ItemNameSpace In OupNameSpaces
  Call NameSpaces(NameSpace & "\" & ItemNameSpace.Name)
  Next

End Sub