• Home
 · 
• Windows System Services
 · 
• ADSI sample - retrieves all domains in the namespace. Written in VBScript, using ADSI.

ADSI sample - retrieves all domains in the namespace. Written in VBScript, using ADSI.

ADSI sample - retrieves all domains in the namespace. Written in VBScript, using ADSI.

Rate ADSI sample - retrieves all domains in the namespace. Written in VBScript, using ADSI.

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' This script lists all domains in the namespace

' Goto http://www.activexperts.com/activmonitor and click on ADSI Samples
' for more samples


Sub ListDomains()
	Dim objNameSpace
	Dim Domain
	
	Set objNameSpace = GetObject("WinNT:")
	For Each objDomain In objNameSpace
		WScript.Echo "Name: " &  objDomain.Name
	Next
End Sub



' Main

ListDomains()

WScript.Echo( vbCrlf & "For more samples, goto http://www.activexperts.com/activmonitor and click" )
WScript.Echo( "on ADSI samples" )