大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

如何使用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枚举域内计算机个数”这篇文章对大家有帮助,同时也希望大家多多支持创新互联网站建设公司,,关注创新互联行业资讯频道,更多相关知识等着你来学习!


文章名称:如何使用vbscript枚举域内计算机个数-创新互联
分享地址:http://dzwzjz.com/article/ddchhh.html
在线咨询
服务热线
服务热线:028-86922220
TOP