如何使用vbscript枚举域内计算机个数

这篇文章主要介绍了如何使用vbscript枚举域内计算机个数，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

代码如下:

On Error Resume Next Set objRootDSE = GetObject("LDAP://rootDSE") strDomain = ObjRootDSE.Get("defaultNamingContext") Const ADS_SCOPE_SUBTREE = 2 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 Name FROM 'LDAP://" & strDomain & "' WHERE objectCategory='computer'" Set objRecordSet = objCommand.Execute Wscript.Echo objRecordSet.RecordCount

感谢你能够认真阅读完这篇文章，希望小编分享的"如何使用vbscript枚举域内计算机个数"这篇文章对大家有帮助，同时也希望大家多多支持，关注行业资讯频道，更多相关知识等着你来学习!