显示当前域内所有计算机名称及数目

		
显示当前域内所有计算机名称及数目  

Const ADS_SCOPE_SUBTREE = 2  
Set objRootDSE = GetObject("LDAP://rootDSE")  
strDomain = ObjRootDSE.Get("defaultNamingContext")  
Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand = CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  
Set objCommand.ActiveConnection = objConnection  
objCommand.Properties("Page Size") = 1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
objCommand.CommandText = "SELECT * FROM ’LDAP://" & strDomain & "’ WHERE objectCategory=’computer’"  
Set objRecordSet = objCommand.Execute  
objRecordSet.MoveFirst   
Do Until objRecordSet.EOF   
Wscript.Echo objRecordSet.Fields("ADsPath").Value   
objRecordSet.MoveNext   
Loop  
Wscript.Echo ""  
Wscript.Echo "Total Computer: "&objRecordSet.RecordCount  
显示当前域内所有用户名称及数目  
Const ADS_SCOPE_SUBTREE = 2  
Set objRootDSE = GetObject("LDAP://rootDSE")  
strDomain = ObjRootDSE.Get("defaultNamingContext")  
Set objConnection = CreateObject("ADODB.Connection")  
Set objCommand = CreateObject("ADODB.Command")  
objConnection.Provider = "ADsDSOObject"  
objConnection.Open "Active Directory Provider"  
Set objCommand.ActiveConnection = objConnection  
objCommand.Properties("Page Size") = 1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
objCommand.CommandText = "SELECT * FROM ’LDAP://" & strDomain & "’ WHERE objectCategory=’user’"  
Set objRecordSet = objCommand.Execute  
objRecordSet.MoveFirst   
Do Until objRecordSet.EOF   
Wscript.Echo objRecordSet.Fields("ADsPath").Value   
objRecordSet.MoveNext   
Loop  
Wscript.Echo ""  
Wscript.Echo "Total User: "&objRecordSet.RecordCount 
						
		
	

补充：综合编程 , 安全编程 ,

上一个：几种常用的保护应用程序的方法
下一个：Cookie的传递流程编程实现及安全问题