• Home
 · 
• Windows System Services
 · 
• ADSI sample - retrieves computers that are connected to a specific domain controller. Written in VB

ADSI sample - retrieves computers that are connected to a specific domain controller. Written in VB

ADSI sample - retrieves computers that are connected to a specific domain controller. Written in VBScript, using ADSI.

Rate ADSI sample - retrieves computers that are connected to a specific domain controller. Written in VB

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

' This script lists computers that are connected to a specific domain controller

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


Sub ListConnectedComputers( strDomain )
	Dim objPDC
	
	Set objPDC = getobject("WinNT://" & strDomain )
	objPDC.filter = Array("Computer")
	
	For Each objComputer In objPDC
		WScript.Echo "Name: " & objComputer.Name
	Next

End Sub



' Main

Dim strDomain
Do
   strDomain = inputbox( "Please enter a domainname", "Input" )
Loop until strDomain <> ""
ListConnectedComputers( strDomain )

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